{"version":"1.0","height":"190","blog_url":"https://inamori.hateblo.jp/","type":"rich","title":"Project Euler 24","published":"2010-05-04 00:00:00","author_url":"https://blog.hatena.ne.jp/inamori/","width":"100%","provider_url":"https://hatena.blog","description":"http://projecteuler.net/index.php?section=problems&id=24 \u3053\u306e\u554f\u984c\u306f\u624b\u8a08\u7b97\u30ec\u30d9\u30eb\u306e\u8a08\u7b97\u91cf\u3067\u6e08\u307f\u307e\u3059\u3002 let rec factorial n = if n = 0 then 1 else n * (factorial (n - 1)) let to_number a = List.fold (fun x y -> x * 10L + int64 y) 0L a let rec solve (a : int list) n r = if r = 0 then a else let f = factorial n let q = r / f \u2026","blog_title":"inamori\u2019s diary","provider_name":"Hatena Blog","image_url":null,"author_name":"inamori","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finamori.hateblo.jp%2Fentry%2F20100504%2Fp1\" title=\"Project Euler 24 - 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/20100504/p1","categories":["F#"]}