exercise-11.scm (343B)
1 (define-library (sicp tests chapter-1 exercise-11) 2 (import (scheme base) 3 (srfi :64) 4 (sicp solutions chapter-1 exercise-11)) 5 6 (begin 7 (test-begin "chapter-1-exercise-11") 8 (test-equal 9 (map f-recursive '(0 1 2 3 4 5 6 7)) 10 (map f-iterative '(0 1 2 3 4 5 6 7))) 11 (test-end "chapter-1-exercise-11")))