8 lines
156 B
Text
8 lines
156 B
Text
#import nat
|
|
#import flo
|
|
|
|
nthroot =
|
|
|
|
-+
|
|
("n","n-1"). "A". ("x". div\"n" plus/times("n-1","x") div("A",pow("x","n-1")))^== 1.,
|
|
float^~/~& predecessor+-
|