1 line
61 B
Tcl
1 line
61 B
Tcl
proc tcl::mathfunc::fact n {expr {$n < 2? 1: $n*fact($n-1)}}
|
proc tcl::mathfunc::fact n {expr {$n < 2? 1: $n*fact($n-1)}}
|