tanakaBox https://blog.hatena.ne.jp/tanakaBox/ ボクノス https://boxnos.hatenablog.com/ Scheme 問題 2.1 そういえば「再代入の方法を知らない」という事実に気がついた。正負を逆にするだけで大変だ・・・。う〜ん、う〜ん。新しい変数を用意して代入する手もあるけど、なんかBASIC!って感じなので、パス。考えた末に、 (define (make-rat n d) (define (rat-normal x) (if (negative? (denom x)) (cons (* -1 (numer x)) (* -1 (denom x))) x)) (define (rat-gcd x) (let ((g (gcd (numer x) (denom x)))) (cons (/ (numer … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20070716%2F1184589058" title=" SICPを読む(34) 問題2.1 ちとはまった。 - ボクノス" 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-07-16 21:30:58 rich https://boxnos.hatenablog.com/entry/20070716/1184589058 1.0 100%