learning-sicp

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

exercise-68.scm (369B)

      1 (define-library (sicp tests chapter-2 exercise-68)
      2   (import (scheme base)
      3           (srfi :64)
      4           (sicp solutions huffman-codes-stuff))
      5 
      6   (begin
      7     (test-begin "chapter-2-exercise-68")
      8     (test-equal
      9         sample-message
     10       (encode
     11        (decode sample-message
     12                sample-tree)
     13        sample-tree))
     14     (test-end "chapter-2-exercise-68")))
     15