RosettaCodeData/Task/Run-length-encoding/Mathematica/run-length-encoding-2.math

5 lines
137 B
Plaintext

mystring="WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW";
RunLengthEncode[mystring]
RunLengthDecode[%]
%==mystring