http://projecteuler.net/index.php?section=problems&id=15 20×20の格子を通る経路の場合の数を求める。 40C20です。 main = print $ combination 40 20 combination :: Integer -> Integer -> Integer combination m n = div (fact m) (fact n * fact (m -…

http://projecteuler.net/index.php?section=problems&id=16 あまり簡単なのでもう１問。 21000の各桁の数字の和を求める。 import Data.Char main = print $ euler016 2 1000 euler016 :: Integer -> Integer -> Int euler016 a n = sum $ map digitToInt $…

http://projecteuler.net/index.php?section=problems&id=17 せっかくなので、さらにもう１問。 1から1000までの数を英語で表記して、その文字数を足し合わせる。 main = print $ euler017 1000 euler017 :: Int -> Int euler017 n = sum $ map (length . wo…