learning-sicp

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

exercise-18.scm (404B)

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