4 lines
50 B
Tcl
4 lines
50 B
Tcl
|
proc nthroot {n A} {
|
||
|
|
expr {pow($A, 1.0/$n)}
|
||
|
|
}
|