今回はProblem 13です。50桁の数字100個の総和の上10桁を求める問題ですね。 main = putStrLn . take 10 . show . sum $ num num = [ -- ここに50桁の数字100個 ] 見難くなるので数字は省略しましたが、100個のリストを作れば簡単でした。