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