learning-sicp

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

exercise-41.scm (477B)

      1 (define-library (sicp tests chapter-2 exercise-41)
      2   (import (scheme base)
      3           (srfi :64)
      4           (sicp solutions chapter-2 exercise-41))
      5 
      6   (begin
      7     (define ratsui
      8       '((3 2 1)
      9         (4 2 1)
     10         (4 3 1)
     11         (4 3 2)
     12         (5 2 1)
     13         (5 3 1)
     14         (5 3 2)
     15         (5 4 1)
     16         (5 4 2)
     17         (5 4 3)))
     18 
     19     (test-begin "chapter-2-exercise-41")
     20     (test-equal
     21         ratsui
     22       (unique-triples 5))
     23     (test-end "chapter-2-exercise-41")))