{"provider_name":"Hatena Blog","title":"Problem 110","blog_title":"\u843d\u66f8\u304d\u3001\u6642\u3005\u843d\u5b66","width":"100%","url":"https://jeneshicc.hatenadiary.org/entry/20081126/1227695980","type":"rich","author_name":"jeneshicc","version":"1.0","blog_url":"https://jeneshicc.hatenadiary.org/","description":"import Number import Data.List import Data.Maybe dscList lim max' | lim < 1 = [[]] | otherwise = [x:ys|x<-[1..max'],ys<-dscList (lim' x) x] where lim' y = lim / (2*(fromIntegral y)+1) p110 = dscList 7999999 60 decode = product.zipWith (^) primes main = print.minimum.map decode $ p110 \u5c11\u3057\u9045\u3044\u304b\u3089\u3001\u3061\u3087\u3063\u3068\u3084\u308b\u6c17\u3092\u2026","height":"190","published":"2008-11-26 19:39:40","categories":["Project Euler","Haskell"],"image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fjeneshicc.hatenadiary.org%2Fentry%2F20081126%2F1227695980\" title=\"Problem 110 - \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>","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/jeneshicc/"}