SICP 問題 2.57
(define (augend s) (if (null? (cdddr s)) (caddr s) (cons '+ (cddr s)))) (define (multiplicand p) (if (null? (cdddr p)) (caddr p) (cons '* (cddr p))))
これ作るので精一杯でした.
make-sumやmake-productを可変長引数に対応できるように変更するのは難しい...
(define (augend s) (if (null? (cdddr s)) (caddr s) (cons '+ (cddr s)))) (define (multiplicand p) (if (null? (cdddr p)) (caddr p) (cons '* (cddr p))))
これ作るので精一杯でした.
make-sumやmake-productを可変長引数に対応できるように変更するのは難しい...