tanakaBox https://blog.hatena.ne.jp/tanakaBox/ ボクノス https://boxnos.hatenablog.com/ Scheme 100の階乗Problem 20 - PukiWiki n × (n - 1) × ... × 3 × 2 × 1 を n! と表す。100! の各桁の数字の合計を求めよ。 簡単。 前に作ったユーティリティを利用して、 (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)… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080406%2F1207466411" title=" Problem 20 - 100! - ボクノス" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-04-06 16:20:11 rich https://boxnos.hatenablog.com/entry/20080406/1207466411 1.0 100%