RosettaCodeData/Task/Factorial/Tcl/factorial-3.tcl

4 lines
66 B
Tcl

proc rfact n {
expr {$n < 2 ? 1 : $n * [rfact [incr n -1]]}
}