id:a-san さんの両替するのに何通りあるか？に刺激されて，両替の組み合わせを列挙する enumChange をつくってみた。Maybe の扱いでちょっと苦労したよ。 cf. http://d.hatena.ne.jp/a-san/20060508#p1 enumChange coins amount = map peel (cc amount 0) wh…

id:hyuki さんのを見て。 cf. http://sicp.g.hatena.ne.jp/hyuki/20060512/pascal といっても Scheme はよくわからんので Ruby版（id:rubyco:20060429:pascal）を見ながら書いた。 combination n k | k == 1 = 1 | k == n = 1 | otherwise = (combination (n…