{"published":"2006-08-10 01:15:44","image_url":null,"blog_title":"fkino blog","provider_url":"https://hatena.blog","height":"190","width":"100%","blog_url":"https://fkino.hatenadiary.org/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ffkino.hatenadiary.org%2Fentry%2F20060810%2F1155226544\" title=\"Y\u30b3\u30f3\u30d3\u30cd\u30fc\u30bf - 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>","author_url":"https://blog.hatena.ne.jp/fkino/","author_name":"fkino","categories":["Haskell"],"provider_name":"Hatena Blog","type":"rich","description":"Y\u30b3\u30f3\u30d3\u30cd\u30fc\u30bf\u3092\u4f7f\u3063\u30661\u301c100\u307e\u3067\u52a0\u7b97\u3059\u308b\u3002 \u8272\u3005\u3068\u8abf\u3079\u305f\u3068\u3053\u308d\u3053\u3093\u306a\u611f\u3058\u3067\u3067\u304d\u308b\u3088\u3046\u3067\u3059\u3002 main = print $ add 100 y f = f (y f) add = y (\\f n -> if (n==0) then 0 else n + f (n-1))","url":"https://fkino.hatenadiary.org/entry/20060810/1155226544","version":"1.0","title":"Y\u30b3\u30f3\u30d3\u30cd\u30fc\u30bf"}