{"width":"100%","title":"Project Euler 45,46","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finamori.hateblo.jp%2Fentry%2F20100215%2Fp2\" title=\"Project Euler 45,46 - inamori\u2019s diary\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","url":"https://inamori.hateblo.jp/entry/20100215/p2","blog_title":"inamori\u2019s diary","description":"Problem 45 http://projecteuler.net/index.php?section=problems&id=45 \u516d\u89d2\u6570\u306f\u4e09\u89d2\u6570\u306a\u306e\u3067\u3001\u4e09\u89d2\u6570\u306f\u7121\u8996\u3067\u304d\u308b\u3002\u4e94\u89d2\u6570\u3068\u516d\u89d2\u6570\u3092\u4e26\u3079\u3066\u6bd4\u8f03\u3057\u3066\u3044\u304f\u3060\u3051\u3002 polygonal p = [ div (n * ((p - 2) * n - (p - 4))) 2 | n equal (p:ps) (h:hs) | p == h = [p] ++ (equal ps hs) | p | p > h = equal (p:ps) hs main = print(last (take 3 (equal (polygonal 5) (poly\u2026","provider_url":"https://hatena.blog","type":"rich","author_url":"https://blog.hatena.ne.jp/inamori/","provider_name":"Hatena Blog","categories":["Haskell"],"height":"190","author_name":"inamori","image_url":null,"blog_url":"https://inamori.hateblo.jp/","version":"1.0","published":"2010-02-15 00:00:01"}