fkino https://blog.hatena.ne.jp/fkino/ fkino blog https://fkino.hatenadiary.org/ 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)) 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffkino.hatenadiary.org%2Fentry%2F20060810%2F1155226544" title="Yコンビネータ - fkino blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2006-08-10 01:15:44 rich https://fkino.hatenadiary.org/entry/20060810/1155226544 1.0 100%