http://d.hatena.ne.jp/mzp/20070428/coinのネタ。SICPを流し読みしてたら出てきたので。 coins :: Int -> [Int] -> [(Int, Int)] coins sum coins = zip coins $ snd $ foldr f (sum,[]) coins where f a (n,b) = (n `rem` a , (n `div` a):b) Main> coins …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。