RosettaCodeData/Task/Run-length-encoding/APL/run-length-encoding.apl

5 lines
136 B
APL
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
retRLL rll;count
[1] count2-/((1,(2/rll),1)×1+rll)~0
[2] ret(count,¨(1,2/rll)/rll)~' '