Problem 40 http://projecteuler.net/index.php?section=problems&id=40 こんないい加減な書き方でも意外と速い。実際にはリストを作っていないようだ。 s [] = "" s (p:ps) = (show p) ++ (s ps) mul :: [Char] -> [Int] -> Int -> Int mul s [] k = 1 mul …

Problem 74 145という数は各桁の階乗の和が145に等しいという性質がよく知られている： 1! + 4! + 5! = 1 + 24 + 120 = 145 恐らく169はあまり知られていないが、169に戻ってくる最も長い数のチェーンを生成する。このようなループは3つしか存在しないことが…