learning-sicp

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

exercise-40.scm (421B)

      1 (define-library (sicp tests chapter-2 exercise-40)
      2   (import (scheme base)
      3           (srfi :64)
      4           (sicp solutions chapter-2 exercise-40))
      5 
      6   (begin
      7     (test-begin "chapter-2-exercise-40")
      8     (test-equal
      9         '((2 1)
     10           (3 1) (3 2)
     11           (4 1) (4 2) (4 3))
     12       (unique-pairs 4))
     13     (test-equal
     14         (prime-sum-pairs 20)
     15       (my-prime-sum-pairs 20))
     16     (test-end "chapter-2-exercise-40")))