Assignment 3 Sample Output

Chez Scheme Version 5.0b
Copyright (c) 1994 Cadence Research Systems

> (load "03.ss")
> (repl)

;; original interpreter primitives
--> (+ 4 5)
9
--> (* 4 5)
20
--> (- 4 5)
-1
--> 5
5

;; list, cons, car, cdr primitives and emptylist variable
--> (list)
()
--> emptylist
()
--> (list 1 3 5)
(1 3 5)
--> (cons 1 emptylist)
(1)
--> (cons (cons (cons 1 emptylist) emptylist) emptylist)
(((1)))
--> (cons 1 (cons 4 (cons 5 emptylist)))
(1 4 5)
--> (car (list 6 4 2))
6
--> (cdr (list 6 4 2))
(4 2)

;; apply-proc procedure as apply
--> +
#<system procedure +>
--> cons
#<system procedure cons>

;; if
--> (if 1 2 3)
2
--> (if (- 3 (+ 1 2)) 2 3)
3
--> (if (if -1 0 1) (if 2 3 4) (if 5 6 7))
6

;; predicates equal, zero, greater, less
--> (equal 3 3)
1
--> (zero (sub1 5))
0
--> (if (greater 2 3) 5 6)
6
--> (if (less 4 3) (less 3 4) 7)
7

;; predicate null
--> (null emptylist)
1
--> (null (cdr (list 1)))
1
--> (null (cdr (list 1 2)))
0