list関数を実装しなさいという問題。これは簡単。
evaluateにlistの分岐を追加
[(list) (let ([args (evlis (cdr e) env)]) (make-list args))]
リストを作る関数
;; list exer 1.6 (define make-list (lambda (args) (if (eq? args '()) '() (cons (car args) (make-list (cdr args))))))
list関数を実装しなさいという問題。これは簡単。
evaluateにlistの分岐を追加
[(list) (let ([args (evlis (cdr e) env)]) (make-list args))]
リストを作る関数
;; list exer 1.6 (define make-list (lambda (args) (if (eq? args '()) '() (cons (car args) (make-list (cdr args))))))