#lang racket
;; This will not run due to undefined terms.
;;;;;;;;;
;; 4.1 ;;
;;;;;;;;;
(define (list-of-values1 exprs env)
; Like list-of-values but always evaluates left to right.
(cond [(no-operands? exprs) empty]
[else
(define lov-car (my-eval (first-operand exprs) env))
(define lov-cdr (list-of-values (rest-operands exprs) env))
(cons lov-car lov-cdr)]))
(define (list-of-values2 exprs env)
; Like list-of-values but always evaluates right to left.
(cond [(no-operands? exprs) empty]
[else
(define lov-cdr (list-of-values (rest-operands exprs) env))
(define lov-car (my-eval (first-operand exprs) env))
(cons lov-car lov-cdr)]))
Comments
0 B
|👍
/👎
0 B
|👍
/👎