2011-12-22

SICP Exercise 2.67: Decoding a Message

Define an encoding tree and a sample message:
(define sample-tree
  (make-code-tree (make-leaf 'A 4)
                  (make-code-tree
                   (make-leaf 'B 2)
                   (make-code-tree (make-leaf 'D 1)
                                   (make-leaf 'C 1)))))

(define sample-message '(0 1 1 0 0 1 0 1 0 1 1 1 0))
Use the decode procedure to decode the message, and give the result.

Okay, let's stick it in the interpreter and see what we get:
> (decode sample-message sample-tree)
'(A D A B B C A)

No comments:

Post a Comment