tanakaBox https://blog.hatena.ne.jp/tanakaBox/ ボクノス https://boxnos.hatenablog.com/ Scheme 嗚呼、Schemeすることは難しい事じゃない。ただ脳に身を任せ・・・（謎 問題 3.6 乱数発生器を改造して、resetを付ける問題。generateは要らないと思うので、無くした。 (define random-init 12345) (define (rand-update x) (modulo (+ (* 214013 x) 253011) 32767)) (define rand (let ((x random-init)) (lambda m (set! x (if (and (not (null? m)) (eq? (car m) 'reset)) (if (null? (cdr … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080425%2F1209056851" title=" SICPを読む(94) 問題 3.6 - 乱数発生器改 - ボクノス" 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-25 02:07:31 rich https://boxnos.hatenablog.com/entry/20080425/1209056851 1.0 100%