c2l.puter.site

;; ============================================================
;;   FULL CPS HUFFMAN ENCODER — PRODUCTION C2L, ALL TAIL CALLS
;; ============================================================

;; REVERSE IN CPS
define... [reverse xs k

;; REVERSE HELPER
define.. [loop xs acc k
or...

;; USE CONTINUATION
and.. null?. xs k. acc

;; ACCUMULATION STEP
and.. pair?. xs
loop... [cdr xs
   [cons car. xs acc
   k

;; RAISE ERROR
[error '[NOT LIST

;; BEGIN
loop... xs (list) k