15 lines
257 B
Text
15 lines
257 B
Text
|
procedure main(args)
|
||
|
|
write(fib(integer(!args) | 1000)
|
||
|
|
end
|
||
|
|
|
||
|
|
procedure fib(n)
|
||
|
|
static fCache
|
||
|
|
initial {
|
||
|
|
fCache := table()
|
||
|
|
fCache[0] := 0
|
||
|
|
fCache[1] := 1
|
||
|
|
}
|
||
|
|
/fCache[n] := fib(n-1) + fib(n-2)
|
||
|
|
return fCache[n]
|
||
|
|
end
|