Run-length encoding: Difference between revisions
Content added Content deleted
(Added K Version) |
|||
| Line 1,237: | Line 1,237: | ||
return output; |
return output; |
||
}</lang> |
}</lang> |
||
=={{header|K}}== |
|||
<lang k>rle: {,/($-':i,#x),'x@i:&1,~=':x}</lang> |
|||
{{trans|J}} |
|||
<lang k>rld: {d:"0123456789"; ,/(.(d," ")@d?/:x)#'x _dvl d}</lang> |
|||
'''Example:''' |
|||
<lang k> rle "WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW" |
|||
"12W1B12W3B24W1B14W" |
|||
rld "12W1B12W3B24W1B14W" |
|||
"WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW"</lang> |
|||
=={{header|Liberty BASIC}}== |
=={{header|Liberty BASIC}}== |
||