Anonymous user
Run-length encoding: Difference between revisions
→{{header|TUSCRIPT}}
Line 2,873:
=={{header|TUSCRIPT}}==
<lang tuscript>
$$ MODE TUSCRIPT,{}
input="WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW",output=""
letter=ACCUMULATE
freq=SPLIT(freq),letter=SPLIT(letter)
output=JOIN(freq,"",letter)
output=
PRINT input
PRINT
</lang>
Output:
<pre>
</pre>
|