31 lines
460 B
Plaintext
31 lines
460 B
Plaintext
window 1, @"Fibonacci Sequence", (0,0,480,620)
|
|
|
|
local fn Fibonacci( n as long ) as long
|
|
static long s1
|
|
static long s2
|
|
long temp
|
|
|
|
if ( n < 2 )
|
|
s1 = n
|
|
exit fn
|
|
else
|
|
temp = s1 + s2
|
|
s2 = s1
|
|
s1 = temp
|
|
exit fn
|
|
end if
|
|
end fn = s1
|
|
|
|
long i
|
|
CFTimeInterval t
|
|
|
|
t = fn CACurrentMediaTime
|
|
|
|
for i = 0 to 40
|
|
print i;@".\t";fn Fibonacci(i)
|
|
next i
|
|
|
|
print : printf @"Compute time: %.3f ms",(fn CACurrentMediaTime-t)*1000
|
|
|
|
HandleEvents
|