2015/10/26

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を可変長引数に対応できるように変更するのは難しい...


© 2022 wat-aro