RosettaCodeData/Task/LZW-compression/Haskell/lzw-compression-3.hs

3 lines
91 B
Haskell
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
*Main> (ap (==) . liftM2 (.) undoLZW doLZW) ['\0'..'\255'] "TOBEORNOTTOBEORTOBEORNOT"
True