3 lines
66 B
Tcl
3 lines
66 B
Tcl
proc rfact n {
|
|
expr {$n < 2 ? 1 : $n * [rfact [incr n -1]]}
|
|
}
|
proc rfact n {
|
|
expr {$n < 2 ? 1 : $n * [rfact [incr n -1]]}
|
|
}
|