2006-08-10 Yコンビネータ Haskell Yコンビネータを使って1〜100まで加算する。 色々と調べたところこんな感じでできるようです。 main = print $ add 100 y f = f (y f) add = y (\f n -> if (n==0) then 0 else n + f (n-1))