{"provider_name":"Hatena Blog","title":"Problem 153","width":"100%","author_name":"jeneshicc","url":"https://jeneshicc.hatenadiary.org/entry/20081221/1229880435","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fjeneshicc.hatenadiary.org%2Fentry%2F20081221%2F1229880435\" title=\"Problem 153 - \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>","blog_title":"\u843d\u66f8\u304d\u3001\u6642\u3005\u843d\u5b66","description":"http://projecteuler.net/index.php?section=problems&id=153\u3068\u308a\u3042\u3048\u305a\u66f8\u3044\u305f\u304c\u3001\u901f\u304f\u52d5\u304b\u306a\u3044\u3002\uff0810^8\u3063\u3066\u304b\u306a\u308a\u5927\u304d\u3044\u6c17\u304c\u3059\u308b\u3093\u3067\u3059\u304c\u3002\uff09 import Number import Data.List -- \u30ca\u30fc\u30a4\u30d6\u306a\u5b9f\u88c5 divisors n = [(a,b)| a <- [1..n], b <- [0..n-1], mod (n*a) (a*a+b*b) == 0, mod (n*b) (a*a+b*b) == 0] sumDiv = sum.map f.divisors where f (a,b) | b == 0 = a | ot\u2026","type":"rich","blog_url":"https://jeneshicc.hatenadiary.org/","author_url":"https://blog.hatena.ne.jp/jeneshicc/","height":"190","published":"2008-12-21 02:27:15","version":"1.0","image_url":null,"provider_url":"https://hatena.blog","categories":["Project Euler","Haskell","Java","C++"]}