{"author_name":"shmorimo001","author_url":"https://blog.hatena.ne.jp/shmorimo001/","published":"2011-08-03 00:14:00","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fshmorimo001.hatenadiary.org%2Fentry%2F20110803%2F1312384440\" title=\" Problem 28 - \u306f\u306a\u307c\u304f\u308d\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://shmorimo001.hatenadiary.org/","title":" Problem 28","type":"rich","categories":[],"provider_url":"https://hatena.blog","version":"1.0","width":"100%","blog_title":"\u306f\u306a\u307c\u304f\u308d","provider_name":"Hatena Blog","height":"190","image_url":null,"url":"https://shmorimo001.hatenadiary.org/entry/20110803/1312384440","description":"p28 :: Integer -> Integer p28 limit = 1 + (sum $ concat $ map (\\x -> p28' limit 1 x) [2,4,6,8]) where p28' limit a b = takeWhile (\\x -> x <= limit) $ p28'' a b p28'' a b = (a+b) : p28'' (a+b) (b+8) 669171001"}