RosettaCodeData/Task/Fibonacci-sequence/Red/fibonacci-sequence.red

9 lines
100 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Red []
palindrome: [fn: fn-1 + fn-1: fn]
fibonacci: func [n][
fn-1: 0
fn: 1
loop n palindrome
]