{"height":"190","url":"https://jeneshicc.hatenadiary.org/entry/20081125/1227611991","categories":["Project Euler","Haskell"],"version":"1.0","type":"rich","width":"100%","provider_url":"https://hatena.blog","blog_url":"https://jeneshicc.hatenadiary.org/","author_url":"https://blog.hatena.ne.jp/jeneshicc/","description":"http://projecteuler.net/index.php?section=problems&id=104\u5358\u7d14\u306a\u89e3\u6cd5 import Data.List fib = 0:1:zipWith (+) fib (tail fib) fibMod = map (flip mod (10^9))$0:1:zipWith (+) fibMod (tail fibMod) main = print.findIndex pandigit.zip fibMod $fib where pandigit (x,y) = \"123456789\"==(sort.show) x && \"123456789\"== \u2026","published":"2008-11-25 20:19:51","provider_name":"Hatena Blog","author_name":"jeneshicc","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fjeneshicc.hatenadiary.org%2Fentry%2F20081125%2F1227611991\" title=\"Problem 104 - \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","title":"Problem 104","image_url":null}