RosettaCodeData/Task/Fibonacci-sequence/Red/fibonacci-sequence.red
2023-07-01 13:44:08 -04:00

8 lines
100 B
Text

Red []
palindrome: [fn: fn-1 + fn-1: fn]
fibonacci: func [n][
fn-1: 0
fn: 1
loop n palindrome
]