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

9 lines
100 B
Plaintext

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