{"url":"https://jeneshicc.hatenadiary.org/entry/20081223/1230006546","version":"1.0","author_url":"https://blog.hatena.ne.jp/jeneshicc/","width":"100%","description":"http://projecteuler.net/index.php?section=problems&id=155 \u30e1\u30e2\u30ea\u4e0d\u8db3\u306b\u306a\u3063\u305f\u308a\u3057\u305f\u3002 \u7d20\u76f4\u306a\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u3002 import Data.Array import qualified Data.Set as S n = 18 main = print.sum.map S.size.elems$ caps caps = listArray (1,n) $ (S.singleton 1) : map c' [2..n] :: Array Int (S.Set Rational) where c n = S.fromList $ do k <-[1\u2026","height":"190","author_name":"jeneshicc","provider_url":"https://hatena.blog","blog_url":"https://jeneshicc.hatenadiary.org/","categories":["Project Euler","Haskell"],"image_url":null,"published":"2008-12-23 13:29:06","blog_title":"\u843d\u66f8\u304d\u3001\u6642\u3005\u843d\u5b66","type":"rich","title":"Problem 155","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fjeneshicc.hatenadiary.org%2Fentry%2F20081223%2F1230006546\" title=\"Problem 155 - \u843d\u66f8\u304d\u3001\u6642\u3005\u843d\u5b66\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>"}