RosettaCodeData/Task/Run-length-encoding/Mathematica/run-length-encoding-1.math
2023-07-01 13:44:08 -04:00

1 line
88 B
Text

RunLengthEncode[input_String]:= (l |-> {First@l, Length@l}) /@ (Split@Characters@input)