math.primes.pollard-rho-brent: Use new ranges syntax and remove `do` call

diff --git a/basis/math/primes/pollard-rho-brent/pollard-rho-brent.factor b/basis/math/primes/pollard-rho-brent/pollard-rho-brent.factor
index 151cbcf288594ffbd6eaeef64c20a64e2bfa14c9..66f32e0388372afcf0a1c627753119e2113822f0 100644 (file)
--- a/basis/math/primes/pollard-rho-brent/pollard-rho-brent.factor
+++ b/basis/math/primes/pollard-rho-brent/pollard-rho-brent.factor
@@ -6,9 +6,9 @@ IN: math.primes.pollard-rho-brent
 
 ! https://comeoncodeon.wordpress.com/2010/09/18/pollard-rho-brent-integer-factorization/
 :: (brent-factor) ( n -- factor )
-    n [1,b) random
-    n [1,b) random
-    n [1,b) random :> ( y! c m )
+    n [1..b) random
+    n [1..b) random
+    n [1..b) random :> ( y! c m )
     1 1 1 :> ( g! r! q! )
     0 :> x!
     0 :> ys!
@@ -33,7 +33,7 @@ IN: math.primes.pollard-rho-brent
         [ g 1 > not ] [
             ys sq n mod c + n mod ys!
             x ys - abs n gcd nip g!
-        ] do while
+        ] while
     ] when
     g ;