{"width":"100%","blog_title":"inamori\u2019s diary","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finamori.hateblo.jp%2Fentry%2F20100211%2Fp2\" title=\"Project Euler 40,41 - 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>","url":"https://inamori.hateblo.jp/entry/20100211/p2","published":"2010-02-11 00:00:01","categories":["Haskell"],"provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/inamori/","type":"rich","author_name":"inamori","blog_url":"https://inamori.hateblo.jp/","title":"Project Euler 40,41","version":"1.0","height":"190","provider_url":"https://hatena.blog","image_url":null,"description":"Problem 40 http://projecteuler.net/index.php?section=problems&id=40 \u3053\u3093\u306a\u3044\u3044\u52a0\u6e1b\u306a\u66f8\u304d\u65b9\u3067\u3082\u610f\u5916\u3068\u901f\u3044\u3002\u5b9f\u969b\u306b\u306f\u30ea\u30b9\u30c8\u3092\u4f5c\u3063\u3066\u3044\u306a\u3044\u3088\u3046\u3060\u3002 s [] = \"\" s (p:ps) = (show p) ++ (s ps) mul :: [Char] -> [Int] -> Int -> Int mul s [] k = 1 mul (c:cs) (p:ps) k | p == k = read([c]) * (mul (cs) ps (k + 1)) | otherwise = mul cs (p:ps) (k + 1) n\u2026"}