365754f55c
- top.ss - commented out compile-failure tests for now - cce-notes.txt - added my preliminary notes about the Honu codebase - examples/*-test.ss - added *-test.ss files for all *.honu files svn: r943
20 lines
457 B
Scheme
20 lines
457 B
Scheme
(define (testfact fact)
|
|
(list (= (fact 1) 1)
|
|
(= (fact 2) 2)
|
|
(= (fact 3) 6)
|
|
(= (fact 4) 24)
|
|
(= (fact 5) 120)))
|
|
|
|
(define (testfib fib)
|
|
(list (= (fib 0) 0)
|
|
(= (fib 2) 1)
|
|
(= (fib 4) 3)
|
|
(= (fib 6) 8)))
|
|
|
|
(append (testfact fact)
|
|
(testfact fact2)
|
|
(testfact impfact)
|
|
(testfact (lambda (n) (cadr (fibfact n))))
|
|
(testfib fib)
|
|
(testfib (lambda (n) (car (fibfact n)))))
|