learning-sicp

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

exercise-19.scm (466B)

      1 (define-library (sicp tests chapter-1 exercise-19)
      2   (import (scheme base)
      3           (srfi :64)
      4           (sicp solutions chapter-1 exercise-19))
      5 
      6   (begin
      7     (test-begin "chapter-1-exercise-19")
      8     (test-equal (fib 0) (fast-fib 0))
      9     (test-equal (fib 1) (fast-fib 1))
     10     (test-equal (fib 2) (fast-fib 2))
     11     (test-equal (fib 3) (fast-fib 3))
     12     (test-equal (fib 4) (fast-fib 4))
     13     (test-equal (fib 5) (fast-fib 5))
     14     (test-end "chapter-1-exercise-19")))