{"description":"\u306a\u305c\uff15\u6841\u4ee5\u5185\u304b\u3092\u8a00\u3048\u3066\u3044\u306a\u3044\u3002 Prelude List> let f x=foldr (*) 1 [1..x]; g x=x==(sum $ map (f.read.(:[])) $show x) in sum [x|x<-[3..100000],g x] 40730 it :: Integer (5.22 secs, 3383707256 bytes)","author_url":"https://blog.hatena.ne.jp/n9d/","width":"100%","published":"2011-09-17 00:00:01","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fn9d.hatenadiary.org%2Fentry%2F20110917%2Fp2\" title=\"problem34 - \u8a08\u7b97\u6a5f\u3068\u622f\u308c\u308b\u65e5\u3005\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","height":"190","categories":[],"type":"rich","blog_title":"\u8a08\u7b97\u6a5f\u3068\u622f\u308c\u308b\u65e5\u3005","title":"problem34","provider_name":"Hatena Blog","version":"1.0","blog_url":"https://n9d.hatenadiary.org/","author_name":"n9d","image_url":null,"url":"https://n9d.hatenadiary.org/entry/20110917/p2"}