learning-sicp

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

exercise-35.scm (399B)

      1 (define-library (sicp tests chapter-2 exercise-35)
      2    (import (scheme base)
      3            (srfi :64)
      4            (sicp solutions chapter-2 exercise-35))
      5    (begin
      6      (define t '((1 2 3)
      7                  (3 (4 5 6)
      8                     (2 3))))
      9      (test-begin "chapter-2-exercise-35")
     10      (test-equal
     11          (count-leaves-2.2.2 t)
     12        (count-leaves t))
     13      (test-end "chapter-2-exercise-35")))