Anonymous user
Run-length encoding: Difference between revisions
m
→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 2,873:
def long m, many=1
while r$<>"" and many>0 {
many=val(r$, "INT", &m)
repl$+=string$(mid$(r$, m, 1), many)
r$=mid$(r$,m+1)
Line 2,893:
Checked: True
</pre >
=={{header|Mathematica}}==
Custom functions using Map, Apply, pure functions, replacing using pattern matching, delayed rules and other functions:
| |||