Run-length encoding: Difference between revisions
→{{header|FutureBasic}}
No edit summary |
|||
Line 2,864:
rl ++ // Same char, so increase counter
wend
t = fn StringWithFormat( @"%d", rl ) // Counter as string
t = fn StringByAppendingString( t, ch ) // Add character
Line 2,874:
print fn encode( @"WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW" )
print fn encode( fn decode( @"
handleevents // Join Mac event loop
</syntaxhighlight>
Output:
<pre>
12WB12W3B24WB14W
12WB12W3B24WB14W
</pre>
| |||