"血をもって書け。そうすればあなたは、血が精神だということを経験するだろう。"

Problem13

以下の50桁の数字100個の総和の上位10桁を求めよ。(略)
http://odz.sakura.ne.jp/projecteuler/index.php?Problem%2013

Haskell

数字は"p13num"に書いてあるとする。
IOモナドを使って

main=readFile "p13num" >>= print . take 10 . show . sum . map (\x->read(x)::Integer) . lines

answer

"5537376230"