Fibonacci sequence: Difference between revisions
Content deleted Content added
m →{{header|BASIC}}: whitespace |
→TI-89 BASIC: new example |
||
Line 1,556:
{{works with|Tcl|8.5}}
<lang tcl>proc fib n {expr {round((.5 + .5*sqrt(5)) ** $n / sqrt(5))}}</lang>
=={{header|TI-89 BASIC}}==
Unoptimized recursive implementation.
fib(n)
Func
If n = 0 or n = 1 Then
Return n
ElseIf n ≥ 2 Then
Return fib(n-1) + fib(n-2)
EndIf
EndFunc
=={{header|UnixPipes}}==
| |||