aland/huffman.lisp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix bug

Browse source
This commit is contained in:
Alan 2026-02-28 22:34:32 +11:00
parent 2e803fe746
commit a451f14888
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
huffman.lisp
View file

@ -47,8 +47,8 @@
(progn (progn
(setq code (+ code 1)) (setq code (+ code 1))
(when (> ,codelen-form codelen) (when (> ,codelen-form codelen)
(setq codelen ,codelen-form) (setq code (ash code (- ,codelen-form codelen)))
(setq code (ash code 1)))) (setq codelen ,codelen-form)))
(setq codelen ,codelen-form)) (setq codelen ,codelen-form))
collect (cons ,key-form (cons code codelen))))) collect (cons ,key-form (cons code codelen)))))
;; (macroexpand '(mkcanon (for pair in sorted-huffman-list while pair) (car pair) (cdr (cdr pair)))) ;; (macroexpand '(mkcanon (for pair in sorted-huffman-list while pair) (car pair) (cdr (cdr pair))))