今日は Problem 31。
cf. Project Euler - Problem 31
cf. Life Goes On - ３１問目
id:rst76さんのをちょっと改良して1pのコインがない場合にも対応できるようにしてみた。問題の解答には必要ないんだけど。
module Main (main) where euler031 :: [Int] -> Int -> Int euler031 (x:[]) m | m `mod` x == 0 = 1 | otherwise = 0 euler031 (x:xs) m = sum $ map (\n -> euler031 xs (m - x*n)) [0..(m `div` x)] main :: IO () main = putStrLn $ show $ euler031 [200,100,50,20,10,5,2,1] 200
^o^ >runhaskell euler031.hs 73682
1pのコインがない場合：
*Main> euler031 [200,100,50,20,10,5,2] 200 1784
