Integer roots: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,010: / Line 1,010: @@
 **($n.chars div $p),
       { ( $d * $^x   +   $n div ($x ** $d) ) div $p } ...
-      { $_**$p ≤ $n < ($_+1)**$p }
+      * == *
     ).tail
 }