5 lines
227 B
Haskell
5 lines
227 B
Haskell
*Main> doLZW ['\0'..'\255'] "TOBEORNOTTOBEORTOBEORNOT"
|
|
[84,79,66,69,79,82,78,79,84,256,258,260,265,259,261,263]
|
|
|
|
*Main> undoLZW ['\0'..'\255'] [84,79,66,69,79,82,78,79,84,256,258,260,265,259,261,263]
|
|
"TOBEORNOTTOBEORTOBEORNOT"
|