RosettaCodeData/Task/Fibonacci-sequence/Tcl/fibonacci-sequence-4.tcl
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

4 lines
119 B
Tcl

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