{"blog_title":"\u3066\u304d\u3068\u3046\u306a\u30e1\u30e2","height":"190","description":"\u5b8c\u5168\u6570\u3068\u3044\u3046\u306e\u306f\u81ea\u5206\u306e\u9664\u304f\u7d04\u6570\u306e\u548c\u304c\u81ea\u5206\u306b\u7b49\u3057\u3044\u6570\uff0e\u4f8b\u3048\u3070 6 = 1 + 2 + 3 28 = 1 + 2 + 4 + 7 + 14\u306a\u306e\u3067\uff0c6\u306828\u306f\u5b8c\u5168\u6570\u3067\u3042\u308b\uff0e\u3053\u308c\u3092Haskell\u3067\u66f8\u3044\u3066\u307f\u308b measure n = [ x | x <- [1..(n `div` 2)], n `mod` x == 0 ] perfect = [x | x <- [1..], x == sum (measure x)]*Main> take 1 $ perfect [6] *Main> take 2 $ perfect [6,28] *Main> take 3 $ perfect [6,28,496] \u2026","author_name":"boscono","author_url":"https://blog.hatena.ne.jp/boscono/","blog_url":"https://boscono.hatenablog.com/","provider_name":"Hatena Blog","published":"2006-06-15 00:00:00","type":"rich","url":"https://boscono.hatenablog.com/entry/20060615/p1","title":" \u5b8c\u5168\u6570","image_url":null,"version":"1.0","width":"100%","provider_url":"https://hatena.blog","categories":["Haskell"],"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboscono.hatenablog.com%2Fentry%2F20060615%2Fp1\" title=\" \u5b8c\u5168\u6570 - \u3066\u304d\u3068\u3046\u306a\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>"}