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

RunLengthEncode[s_String] := StringJoin[
  {ToString[Length[#]] <> First[#]} & /@ Split[StringSplit[s, ""]]
  ]

RunLengthDecode[s_String] := StringJoin[
  Table[#[[2]], {ToExpression[#[[1]]]}] & /@
   Partition[StringSplit[s, x : _?LetterQ :> x], 2]
  ]