RosettaCodeData/Task/Fibonacci-sequence/Tcl/fibonacci-sequence-8.tcl

2 lines
61 B
Tcl

proc fib n {expr {round((.5 + .5*sqrt(5)) ** $n / sqrt(5))}}