{"blog_title":"inamori\u2019s diary","url":"https://inamori.hateblo.jp/entry/20100413/p2","title":"Project Euler 3","author_url":"https://blog.hatena.ne.jp/inamori/","image_url":null,"author_name":"inamori","description":"http://projecteuler.net/index.php?section=problems&id=3 \u6700\u5927\u306e\u7d20\u6570\u3092\u6c42\u3081\u308c\u3070\u3088\u3044\u306e\u3067\u3059\u304c\u3001\u305b\u3063\u304b\u304f\u306a\u306e\u3067\u7d20\u56e0\u6570\u5206\u89e3\u306e\u30b3\u30fc\u30c9\u3092\u66f8\u304d\u307e\u3057\u305f\u3002\u3042\u307e\u308a\u3046\u307e\u304f\u66f8\u3051\u3066\u3044\u307e\u305b\u3093\u3002 let rec calc_exp n p = if n % p = 0 then let t = calc_exp (n / p) p (fst t + 1, snd t) else (0, n) let rec fac n p = if n = 1 then [] else if p * p > n then [(n, 1)] else let t = calc_exp n\u2026","provider_name":"Hatena Blog","width":"100%","categories":["F#"],"type":"rich","version":"1.0","height":"190","published":"2010-04-13 00:00:00","blog_url":"https://inamori.hateblo.jp/","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finamori.hateblo.jp%2Fentry%2F20100413%2Fp2\" title=\"Project Euler 3 - 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>"}