今回こそProblem 8です。1000桁の数字から5つの連続する数字を取り出して その積を計算したときの最大の値を求める問題です。 main = print . getMax 0 $ getNum input getNum "" = [] getNum (c:cs) | c `elem` ['0'..'9'] = (read :: String -> Int) [c] :…