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))
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。