winebarrel https://blog.hatena.ne.jp/winebarrel/ so what https://so-wh.at/ SICP 僕の解答 (define (product term a next b) (if (> a b) 1 (* (term a) (product term (next a) next b)))) ;(define (product term a next b) ; (define (iter a result) ; (if (> a b) ; result ; (iter (next a) (* result (term a))))) ; (iter a 1)) (define (factorial n) (product (lambda (x) x) 1 (lambda (x) (+ x 1)… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fso-wh.at%2Fentry%2F20070424%2Fp4" title=" 問題1.31 - so what" 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 2007-04-24 00:00:00 rich https://so-wh.at/entry/20070424/p4 1.0 100%