f8 :: Int -> Int f8 0 = 1 f8 x = (f8 $x`div`10) * (x`mod`10) euler8 :: String ->Int euler8 "\n" = 0 euler8 xs = maximum $(f8 $read $take 5 xs):[euler8 (drop 5 xs)] main = readFile "temp.txt" >>= \fs -> print $ euler8 fs サイトにあった数字…

うう...... Parsecいじっていたけれど、やはりいきなり書き始めるのはなかなかに辛いものがある。 ということでhttp://www.lab2.kuis.kyoto-u.ac.jp/~hanatani/tmp/Parsec.html にあるサンプルソースコードを読んでまずは流れを理解することにする。 module …