learning-sicp

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

exercise-61.scm (490B)

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