14 lines
257 B
Text
14 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
|