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