9 lines
229 B
Text
9 lines
229 B
Text
function fib(x: int): int = (
|
|
let cache = {} in
|
|
let fibc x = if x<=1 then x else (
|
|
if x not in cache then
|
|
cache[x] = fibc(x-1) + fibc(x-2);
|
|
cache[x]
|
|
) in fibc(x)
|
|
);;
|
|
for x in range(10) do print(fib(x))
|