Fibonacci sequence: Difference between revisions
Content added Content deleted
| Line 9,411: | Line 9,411: | ||
multi fib (1) { 1 } |
multi fib (1) { 1 } |
||
multi fib ($n) { fib($n - 1) + fib($n - 2) }</lang> |
multi fib ($n) { fib($n - 1) + fib($n - 2) }</lang> |
||
=={{header|Red}}== |
|||
<lang Red>fibonacci: func [n][ |
|||
===Analytic=== |
|||
fn-1: 0 |
|||
<lang perl6>sub fib (Int $n --> Int) { |
|||
fn: 1 |
|||
constant φ1 = 1 / constant φ = (1 + sqrt 5)/2; |
|||
loop n [fn: fn-1 + fn-1: fn] |
|||
constant invsqrt5 = 1 / sqrt 5; |
|||
| ⚫ | |||
floor invsqrt5 * (φ**$n + φ1**$n); |
|||
| ⚫ | |||
=={{header|Relation}}== |
=={{header|Relation}}== |
||