Run-length encoding: Difference between revisions
Content added Content deleted
| Line 2,833: | Line 2,833: | ||
=={{header|FutureBasic}}== |
=={{header|FutureBasic}}== |
||
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> |
<syntaxhighlight lang=FutureBasic> |
||
Dynamic a(1, 1) as Short // Self-fulfilling array, so don't need width and height |
|||
local fn encode( string as CFStringRef) as CFStringRef |
local fn encode( string as CFStringRef) as CFStringRef |
||
| Line 2,877: | Line 2,874: | ||
end fn |
end fn |
||
local fn decode2D( string as CFStringRef ) // For Game of Life |
|||
CFStringRef ch |
|||
Short i, j, rl, f // Decoded char |
|||
Short v = 0, w = 0, x = 0, y = 0 // Temp width, max width, array coordinates |
|||
for i = 0 to len( string ) - 2 // Final char is always ! |
|||
ch = mid( string, i, 1 ) |
|||
if intval( ch ) == 0 |
|||
rl = 1 |
|||
else |
|||
rl = intval( mid( string, i ) ) |
|||
i += fix( log10( rl ) + 1 ) |
|||
ch = mid( string, i, 1 ) |
|||
end if |
|||
select ch // Decode character as: |
|||
case @"$" : f = -1 // - new line |
|||
case @"b" : f = 0 // - dead |
|||
case @"o" : f = 1 // - live |
|||
case else : // Ignore |
|||
end select |
|||
for j = 1 to rl // Fill array with run of chars |
|||
if f = -1 |
|||
x = 0 : y ++ : v = 0 // New line |
|||
else |
|||
a(x, y) = f |
|||
x ++ : v ++ : if v > w then w = v |
|||
end if |
|||
next |
|||
next |
|||
for j = 0 to y : for i = 0 to w - 1 |
|||
print a(i, j); |
|||
next : print : next |
|||
end fn |
|||
fn decode( @"12W1B12W3B24W1B14W" ) // Assignment |
fn decode( @"12W1B12W3B24W1B14W" ) // Assignment |
||
fn encode( @"WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW" ) |
fn encode( @"WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW" ) |
||
fn decode2D( @"bo$2bo$3o!" ) // Glider |
|||
handleevents // Join Mac event loop |
handleevents // Join Mac event loop |
||
| Line 2,923: | Line 2,886: | ||
WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW |
WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW |
||
12WB12W3B24WB14W |
12WB12W3B24WB14W |
||
011 |
|||
001 |
|||
111 |
|||
</pre> |
</pre> |
||