Процедура encode-symbol

Процедура encode получает в качестве аргументов сообщение и дерево, и порождает список битов, который представляет закодированное сообщение.

(define (encode message tree)
  (if (null? message)
      '()
      (append (encode-symbol (car message) tree)
              (encode (cdr message) tree))))

Encode-symbol — процедура, которую Вы должны написать, возвращает список битов, который кодирует данный символ в соответствии с заданным деревом. Вы должны спроектировать encode-symbol так, чтобы она сообщала об ошибке, если символ вообще не содержится в дереве. Проверьте свою процедуру, закодировав тот результат, который Вы получили в упражнении 2.67 , с деревом-примером и проверив, совпадает ли то, что получаете Вы, с исходным сообщением.

---