learning-sicp

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

exercise-67.scm (434B)

      1 (define-library (sicp tests chapter-2 exercise-67)
      2    (import (scheme base)
      3            (srfi :64)
      4            (sicp solutions huffman-codes-stuff))
      5 
      6    (begin
      7      (test-begin "chapter-2-exercise-67")
      8      (test-equal
      9          '(A D A B B C A) ;; Is this it? Did I fuck any shit up? Manuel de Coding, the Portuguese decoder, agrees with this.
     10        (decode sample-message sample-tree))
     11      (test-end "chapter-2-exercise-67")
     12      ))