{"author_url":"https://blog.hatena.ne.jp/inamori/","width":"100%","height":"190","published":"2010-03-06 00:00:00","provider_url":"https://hatena.blog","categories":["Haskell"],"url":"https://inamori.hateblo.jp/entry/20100306/p1","type":"rich","title":"Project Euler 73","blog_url":"https://inamori.hateblo.jp/","image_url":null,"blog_title":"inamori\u2019s diary","version":"1.0","description":"http://projecteuler.net/index.php?section=problems&id=73 \u901f\u304f\u306a\u308b\u66f8\u304d\u65b9\u3082\u3042\u308b\u304c\u3001\u3053\u3053\u306f\u984c\u610f\u3092\u7d20\u76f4\u306b\u8868\u73fe\u3002 count_numerator d = length (filter (\\n -> gcd d n == 1) [(div d 3)+1..div (d-1) 2]) main = print (sum (map count_numerator [1..12000]))","author_name":"inamori","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finamori.hateblo.jp%2Fentry%2F20100306%2Fp1\" title=\"Project Euler 73 - 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>"}