RosettaCodeData/Task/Run-length-encoding/AWK/run-length-encoding-2.awk

14 lines
165 B
Awk
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
BEGIN {
RS="[0-9]+[^0-9]"
final = "";
}
{
match(RT, /([0-9]+)([^0-9])/, r)
for(i=0; i < int(r[1]); i++) {
final = final r[2]
}
}
END {
print final
}