6 lines
219 B
Common Lisp
6 lines
219 B
Common Lisp
CL-USER> (test "TOBEORNOTTOBEORTOBEORNOT")
|
|
T
|
|
CL-USER> (lzw-compress "TOBEORNOTTOBEORTOBEORNOT")
|
|
#(84 79 66 69 79 82 78 79 84 256 258 260 265 259 261 263)
|
|
CL-USER> (lzw-decompress-to-string *)
|
|
"TOBEORNOTTOBEORTOBEORNOT"
|