3 lines
91 B
Haskell
3 lines
91 B
Haskell
|
|
*Main> (ap (==) . liftM2 (.) undoLZW doLZW) ['\0'..'\255'] "TOBEORNOTTOBEORTOBEORNOT"
|
||
|
|
True
|