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

5 lines
119 B
Tcl

expr {fib(7)} ;# ==> 13
namespace path tcl::mathfunc #; or, interp alias {} fib {} tcl::mathfunc::fib
fib 7 ;# ==> 13