Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #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)]))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement