RosettaCodeData/Task/Fibonacci-sequence/Arturo/fibonacci-sequence.arturo

9 lines
111 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
fib: $[x][
if? x<2 [1]
else [(fib x-1) + (fib x-2)]
]
loop 1..25 [x][
print ["Fibonacci of" x "=" fib x]
]