;; ============================================================
;;   FULL CPS HUFFMAN ENCODER — PRODUCTION C2L, ALL TAIL CALLS
;;   COMPILE TO SCHEME HERE: c2l.puter.site
;;   WORK IS ONGOING
;;   THIS IS PUBLIC DOMAIN SOFTWARE BY ZELAH HUTCHINSON
;;   I RELEASE THIS SOFTWARE UNDER THE TERMS OF THE UNLICENSE
;; ============================================================

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


;; LOOP
define.. [loop xs acc k
or...

;; CONTINUE
[and null?. xs k. acc

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

;; ERROR
[error '[NOT LIST


;; BEGIN
[loop xs (list) k

;; ============================================================

;; FOLDL IN CPS
define.. [foldl f acc xs k
or...

;; CONTINUE
[and null?. xs k. acc

;; PAIR
and.. pair?. xs
f... car. xs
 acc
 lambda.. [new-acc
  [foldl f new-acc cdr. xs k

;; ERROR
error. '[NOT LIST

;; ============================================================