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

4 lines
108 B
Plaintext

rle = RunLengthEncode[mystring]
{{"W", 12}, {"B", 1}, {"W", 12}, {"B", 3}, {"W", 24}, {"B", 1}, {"W", 14}}