2 lines
61 B
Tcl
2 lines
61 B
Tcl
|
proc fib n {expr {round((.5 + .5*sqrt(5)) ** $n / sqrt(5))}}
|