RosettaCodeData/Task/Fibonacci-sequence/Red/fibonacci-sequence.red
2026-04-30 12:34:36 -04:00

8 lines
106 B
Text

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