(define (list-of-values exps env)
(if (no-operands? exps)
'()
(let ((left-values (eval (first-operands exps))))
(let ((right-values (list-of-values (rest-operands exps))))
(cons left-values right-values)))))
오른쪽부터 셈하도록 하려면 left-values와 right-values의 위치를 바꿔주면 된다.

댓글 없음:
댓글 쓰기