今日のはまった
condとcaseについて。
(define (make-color r g b a) (lambda (cmd) (cond ((eqv? cmd 'r) r) ((eqv? cmd 'g) g) ((eqv? cmd 'b) b) ((eqv? cmd 'a) a))))
condの部分をcaseで置き換えるにはこうする。
(define (make-color r g b a) (lambda (cmd) (case cmd ((r) r) ((g) g) ((b) b) ((a) a))))
↓こうではない。
(define (make-color r g b a) (lambda (cmd) (case cmd (('r) r) (('g) g) (('b) b) (('a) a))))
いんさ〜と・こいん 第4回
先日アップした。収録からンヶ月もたってしまいました。遅れたのは私が編集さぼってたのが原因。しかも手抜き…。反省します。
続きを読む