8問目
http://projecteuler.net/index.php?section=problems&id=8
1000個の数字の中から連続する5つの数字を選んで、積が最大となるものを求める。
だいぶHaskellっぽいプログラムが書けました。
import Data.Char import Data.List main = print $ euler008 5 "731..450" euler008 :: Int -> String -> Int euler008 len str = maximum $ map (product.take len) $ tails $ map digitToInt str