5 lines
105 B
Tcl
5 lines
105 B
Tcl
package require math::special
|
|
|
|
proc gfact n {
|
|
expr {round([::math::special::Gamma [expr {$n+1}]])}
|
|
}
|