exercise-36.scm (416B)
1 (define-library (sicp tests chapter-2 exercise-36) 2 (import (scheme base) 3 (srfi :64) 4 (sicp solutions chapter-2 exercise-36)) 5 6 (begin 7 (test-begin "chapter-2-exercise-36") 8 (test-equal 9 '(22 26 30) 10 (accumulate-n + 0 '((1 2 3) 11 (4 5 6) 12 (7 8 9) 13 (10 11 12)))) 14 (test-end "chapter-2-exercise-36")))