learning-sicp

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

exercise-3.scm (708B)

      1 (define-library (sicp tests chapter-1 exercise-3)
      2   (import
      3    (scheme base)
      4    (srfi :64)
      5    (only (sicp solutions chapter-1 exercise-3)
      6          sum-of-squares-of-two-largest-out-of-three))
      7 
      8   (begin
      9     (test-begin "chapter-1-exercise-3")
     10     (test-equal (sum-of-squares-of-two-largest-out-of-three 2 3 5) 34)
     11     (test-equal (sum-of-squares-of-two-largest-out-of-three 2 5 3) 34)
     12     (test-equal (sum-of-squares-of-two-largest-out-of-three 3 2 5) 34)
     13     (test-equal (sum-of-squares-of-two-largest-out-of-three 3 5 2) 34)
     14     (test-equal (sum-of-squares-of-two-largest-out-of-three 5 2 3) 34)
     15     (test-equal (sum-of-squares-of-two-largest-out-of-three 5 3 2) 34)
     16     (test-end "chapter-1-exercise-3")))