Run-length encoding: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 2,835:
<syntaxhighlight lang=FutureBasic>
local fn decode( string as CFStringRef ) as CFStringRef
CFStringRef ch, s, t // character,
Short i, rl // index, run
s = @"" // Initalize the output string
for i = 0 to len( string ) - 1 // Decode input string char by char
ch = mid( string, i, 1 ) // Read character at index
Line 2,846:
rl = intval( mid( string, i ) ) // Read run-length counter
i += fix( log10( rl ) + 1 ) // Move index past digits
ch = mid( string, i, 1 ) // Read character after run
end if
t = fn StringByPaddingToLength( ch, rl, ch, 0 ) // Assemble string of chars
s = fn StringByAppendingString( s, t ) // Add to decoded string
next // character
Line 2,857:
CFStringRef ch, s, t
Short i, rl
s = @""
for i = 0 to len( string ) - 1
ch = mid( string, i, 1)
rl = 1 // Start run-length counter
while fn StringIsEqual( mid( string, i + rl, 1), ch )
rl ++ // Same char, so increase counter
wend
// if rl == 1 then t = @"" else ...
t = fn StringWithFormat( @"%d", rl ) // Counter as string
t = fn StringByAppendingString( t, ch ) // Add character
s = fn StringByAppendingString( s, t ) // Add to output string
i += rl - 1 // Move counter
next
end fn = s
| |||