learning-sicp

My embarrassing half assed SICP run.
git clone https://kaka.farm/~git/learning-sicp
Log | Files | Refs

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")))