learning-sicp

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

exercise-62.scm (608B)

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