RosettaCodeData/Task/Fibonacci-sequence/Picat/fibonacci-sequence-1.picat
2023-07-01 13:44:08 -04:00

10 lines
170 B
Text

go =>
println([fib_fun(I) : I in 1..10]),
F1=fib_fun(2**10),
println(f1=F1),
nl.
table
fib_fun(0) = 0.
fib_fun(1) = 1.
fib_fun(N) = fib_fun(N-1) + fib_fun(N-2).