Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
1 665c255d 2023-08-04 jrmu (defun generate-huffman-tree (pairs)

2 665c255d 2023-08-04 jrmu   (successive-merge (make-leaf-set pairs)))

3 665c255d 2023-08-04 jrmu (defun successive-merge (node-set)

4 665c255d 2023-08-04 jrmu   (if (null (cadr node-set))

5 665c255d 2023-08-04 jrmu       (car node-set)

6 665c255d 2023-08-04 jrmu       (successive-merge

7 665c255d 2023-08-04 jrmu        (adjoin-set (make-code-tree (car node-set)

8 665c255d 2023-08-04 jrmu 				   (cadr node-set))

9 665c255d 2023-08-04 jrmu 		   (cddr node-set)))))