RosettaCodeData/Task/Fibonacci-sequence/Picat/fibonacci-sequence-1.picat

11 lines
170 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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).