learning-sicp

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

exercise-33.scm (552B)

      1 (define-library (sicp tests chapter-2 exercise-33)
      2   (import (scheme base)
      3           (srfi :64)
      4           (sicp utils)
      5           (sicp solutions chapter-2 exercise-33))
      6 
      7   (begin
      8     (test-begin "chapter-2-exercise-33")
      9     (test-equal
     10         '(1 4 9 16 25 36)
     11       (map-2.33 (lambda (x) (* x x))
     12                 (enumerate-interval 1 6)))
     13     (test-equal
     14         '(1 2 3 4 5 6)
     15       (append-2.33 '(1 2 3)
     16                    '(4 5 6)))
     17     (test-equal
     18         10
     19       (length-2.33 '(1 2 3 4 5 6 7 8 9 10)))
     20     (test-end "chapter-2-exercise-33")))