{"blog_url":"https://boxnos.hatenablog.com/","blog_title":"\u30dc\u30af\u30ce\u30b9","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080406%2F1207466411\" title=\" Problem 20 - 100! - \u30dc\u30af\u30ce\u30b9\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","version":"1.0","type":"rich","author_url":"https://blog.hatena.ne.jp/tanakaBox/","description":"100\u306e\u968e\u4e57Problem 20 - PukiWiki n \u00d7 (n - 1) \u00d7 ... \u00d7 3 \u00d7 2 \u00d7 1 \u3092 n! \u3068\u8868\u3059\u3002100! \u306e\u5404\u6841\u306e\u6570\u5b57\u306e\u5408\u8a08\u3092\u6c42\u3081\u3088\u3002 \u7c21\u5358\u3002 \u524d\u306b\u4f5c\u3063\u305f\u30e6\u30fc\u30c6\u30a3\u30ea\u30c6\u30a3\u3092\u5229\u7528\u3057\u3066\u3001 (define (number->list n) (define (iter acc n) (let ((q (quotient n 10)) (m (cons (modulo n 10) acc))) (if (zero? q) m (iter m q)))) (iter '() n)) (apply + (number->list (apply * (iota 100 1)\u2026","image_url":null,"url":"https://boxnos.hatenablog.com/entry/20080406/1207466411","width":"100%","published":"2008-04-06 16:20:11","provider_url":"https://hatena.blog","categories":["Scheme"],"title":" Problem 20 - 100!","author_name":"tanakaBox","height":"190","provider_name":"Hatena Blog"}