Run-length encoding: Difference between revisions
→{{header|FutureBasic}}
Line 2,835:
This gives RLE encoding for strings and RLE decoding for strings and arrays, e.g., for [[Conway's_Game_of_Life|Conway's Game of Life]]
<syntaxhighlight lang=FutureBasic>
local fn encode( string as CFStringRef) as CFStringRef
Line 2,878 ⟶ 2,875:
local fn decode2D( string as CFStringRef )
Boolean a(500, 500) // Or larger to hold bigger objects
CFStringRef ch
Short i, j, rl, f // Decoded char
| |||