30 lines
762 B
Plaintext
30 lines
762 B
Plaintext
begin globals
|
|
short ndx : bool odd : cfstringref stream
|
|
end globals
|
|
|
|
local fn recursion
|
|
cfstringref ch = mid( stream, ndx, 1 )
|
|
if fn StringContainsString( @",;:. ", ch ) == no
|
|
ndx++
|
|
if odd then fn recursion : print ch; ¬
|
|
else print ch; : fn recursion
|
|
end if
|
|
end fn
|
|
|
|
local fn oddWordTask( s as cfstringref )
|
|
ndx = 0 : odd = no : stream = s
|
|
print : print, stream : print,
|
|
while ndx < len( stream )
|
|
fn recursion : print mid( stream, ndx, 1 );
|
|
odd = yes - odd : ndx++
|
|
wend
|
|
print
|
|
end fn
|
|
|
|
window 1, @"Odd word task in FutureBasic", (0,0,310,155)
|
|
fn oddWordTask( @"what,is,the;meaning,of:life." )
|
|
fn oddWordTask( @"we,are;not,in,kansas;any,more." )
|
|
fn oddWordTask( @"This also works with normal spaces." )
|
|
|
|
HandleEvents
|