;
;	test script for assignment 3
;	CS 381 fall term, 2001
;
(myEval '3)
3
(myEval 't)
t
(myEval 'nil)
nil
(myEval '(quote 3))
3
(myEval '(quote (a b c)))
'(a b c)
(myEval '(+ 2 3))
5
(myApply '+ '(2 3))
5
(myApply 'car '((2 3)))
2
(myApply 'cdr '((2 3)))
'(3)
(myApply 'atom '(3))
t
(myApply 'cons '(3 (4 5)))
'(3 4 5)
(myEval '(car (quote (a b c))))
'A
(myEval '(numberp (quote (a b c))))
nil
(evalCond '(((< 2 3) 7) (t 12)))
7
(evalCond '(((< 2 1) 7) (t 12)))
12
(evalCond nil)
nil
(evalCond '(((< 2 1) 7) ((< 2 3) 42) ((< 2 3) 12)))
42
(myEval '(cond ((< 2 3) 7) (t 8)))
7
(myEval '(cond ((< 4 3) 7) ((< 8 5) 4)))
nil