39 lines
660 B
Plaintext
39 lines
660 B
Plaintext
def fn F( n as long ) as long
|
|
def fn M( n as long ) as long
|
|
|
|
local fn F( n as long ) as long
|
|
long result
|
|
|
|
if n == 0 then exit fn = 1
|
|
result = n - fn M( fn F( n-1 ) )
|
|
end fn = result
|
|
|
|
local fn M( n as long ) as long
|
|
long result
|
|
|
|
if n == 0 then exit fn = 0
|
|
result = n - fn F( fn M( n-1 ) )
|
|
end fn = result
|
|
|
|
long i, counter
|
|
|
|
counter = 0
|
|
for i = 0 to 19
|
|
printf @"%3ld\b", fn F( i )
|
|
counter++
|
|
if counter mod 5 == 0 then print : counter = 0
|
|
next
|
|
|
|
print : print
|
|
|
|
counter = 0
|
|
for i = 0 to 19
|
|
printf @"%3ld\b", fn M( i )
|
|
counter++
|
|
if counter mod 5 == 0 then print : counter = 0
|
|
next
|
|
|
|
NSLog( @"%@", fn WindowPrintViewString( 1 ) )
|
|
|
|
HandleEvents
|