Fibonacci sequence: Difference between revisions
Content added Content deleted
(Fibonacci sequence en True BASIC) |
(Fibonacci sequence en Yabasic) |
||
Line 13,276: | Line 13,276: | ||
else local:fib($n - 1) + local:fib($n - 2) |
else local:fib($n - 1) + local:fib($n - 2) |
||
};</lang> |
};</lang> |
||
=={{header|Yabasic}}== |
|||
<lang yabasic>sub fibonacci (n) |
|||
n1 = 0 |
|||
n2 = 1 |
|||
for k = 1 to abs(n) |
|||
sum = n1 + n2 |
|||
n1 = n2 |
|||
n2 = sum |
|||
next k |
|||
if n < 0 then |
|||
return n1 * ((-1) ^ ((-n) + 1)) |
|||
else |
|||
return n1 |
|||
end if |
|||
end sub</lang> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |