More testing.

This commit is contained in:
Sam Tobin-Hochstadt 2008-06-13 17:04:22 -04:00
parent df91f204d2
commit 27073e07fd

View File

@ -12,6 +12,7 @@
(map* + (list 1 2 3) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30) (list 10 20 30))
(: h (Integer Integer Integer * -> Integer))
(define (h x y . z) 0)
(define (h x y . z) (apply + (cons x (cons y z))))
(map* h (list 1 2 3) (list 4 5 6))
(map* h (list 1 2 3) (list 4 5 6))
(map* h (list 1 2 3) (list 4 5 6) (list 4 5 6))