Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
;; $Id: lists.tst,v 1.5 2006/10/17 05:32:26 leavens Exp leavens $ (newline) (displayln "Test case $RCSfile: lists.tst,v $ of $Date: 2006/10/17 05:32:26 $") (newline) (run-regression-tests-equal? `( ( (run "emptylist") ==> () ) ( (run "cons(342, emptylist)") ==> (342) ) ( (run "list(1, 2, 3)") ==> (1 2 3) ) ( (run "car(list(5, 4, 1, 9, 8, 7))") ==> 5 ) ( (run "cdr(list(5, 4, 1, 9, 8, 7))") ==> (4 1 9 8 7) ) ( (run "cons(4, emptylist)") ==> (4)) ( (run "car(cons(4, emptylist))") ==> 4) ( (run "cdr(cons(4, emptylist))") ==> ()) ( (run "cons(5, cons(4, emptylist))") ==> (5 4)) ( (run "car(cons(5, cons(4, emptylist)))") ==> 5) ( (run "cdr(cons(5, cons(4, emptylist)))") ==> (4)) ( (run "list(list())") ==> (()) ) ( (run "list(cons(1, cons(2, emptylist)), cons(3, emptylist))") ==> ((1 2) (3)) ) ( (run "cons(emptylist, emptylist)") ==> (()) ) ( (run "cons(cons(342, emptylist), emptylist)") ==> ((342)) ) ( (run "car(car(cons(cons(342, emptylist), emptylist)))") ==> 342 ) ( (run "cdr(car(list(list(541, 342))))") ==> (342) ) ( (run "list(list(list(list(342))))") ==> ((((342)))) ) ))