Fibonacci sequence: Difference between revisions
Content deleted Content added
Define negative extension. |
|||
Line 934:
O : 259695496911122585 <- 160500643816367088 + 99194853094755497
0:0 | -1:1 | -2:-1 | -3:2 | -4:-3 | -5:5 | -6:-8 | -7:13 | -8:-21 | -9:34 |</pre>
=={{header|Delphi}}==
=== Iterative ===
<lang Delphi>
function FibonacciI(N: Word): UInt64;
var
Last, New: UInt64;
I: Word;
begin
if N < 2 then
Result := N
else begin
Last := 0;
Result := 1;
for I := 2 to N do
begin
New := Last + Result;
Last := Result;
Result := New;
end;
end;
end;
</lang>
=== Recursive ===
<lang Delphi>
function Fibonacci(N: Word): UInt64;
begin
if N < 2 then
Result := N
else
Result := Fibonacci(N - 1) + Fibonacci(N - 2);
end;
</lang>
=={{header|E}}==
| |||