SICP 問題 4.01

;; 評価順によらず，左から右に評価するlist-of-values
(define (list-of-values exps env)
  (if (no-operands? exps)
      '()
      (let ((first-eval (eval (first-operand exp) env)))
        (cons first-eval
              (list-of-values (rest-operands exps) env)))))

;; 右から左に評価するlist-of-values
(define (list-of-values exps env)
  (if (no-operands? exps)
      '()
      (let ((first-eval (list-of-values (rest-operands exps) env)))
        (cons (eval (first-operand exp) env)
              first-eval))))

計算機プログラムの構造と解釈 第2版