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