RosettaCodeData/Task/Look-and-say-sequence/Q/look-and-say-sequence.q
2018-06-22 20:57:24 +00:00

2 lines
73 B
Text

las:{{raze string[count@'x],'@'[;0]x:where[differ x]_x}\[x;1#"1"]}
las 8