learning-sicp

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

exercise-75.scm (506B)

      1 (define-library (sicp tests chapter-2 exercise-75)
      2   (import (scheme base)
      3           (srfi :64)
      4           (sicp solutions chapter-2 exercise-75)))
      5 
      6 (begin
      7   (test-begin "chapter-2-exercise-75")
      8   (test-equal
      9       ((make-from-mag-ang 1.0 0.0) 'real-part)
     10     1.0)
     11   (test-equal
     12       ((make-from-mag-ang 1.0 0.0) 'imag-part)
     13     0.0)
     14   (test-equal
     15       ((make-from-mag-ang 1.0 0.0) 'magnitude)
     16     1.0)
     17   (test-equal
     18       ((make-from-mag-ang 1 0.0) 'angle)
     19     0.0)
     20   (test-end "chapter-2-exercise-75"))