factor: trim using lists

[factor.git] / extra / random / blum-blum-shub / blum-blum-shub.factor

diff --git a/extra/random/blum-blum-shub/blum-blum-shub.factor b/extra/random/blum-blum-shub/blum-blum-shub.factor
old mode 100755 (executable)
new mode 100644 (file)
index 8229abc..b86acd7
--- a/extra/random/blum-blum-shub/blum-blum-shub.factor
+++ b/extra/random/blum-blum-shub/blum-blum-shub.factor
@@ -1,5 +1,4 @@
-USING: kernel math sequences namespaces math.primes
-math.functions accessors random ;
+USING: accessors kernel math math.functions math.primes random ;
 IN: random.blum-blum-shub
 
 ! Blum Blum Shub, n = pq, x_i+1 = x_i ^ 2 mod n
@@ -25,6 +24,6 @@ PRIVATE>
     [ find-relative-prime ] keep
     blum-blum-shub boa ;
 
-M: blum-blum-shub random-32* ( bbs -- r )
+M: blum-blum-shub random-32*
     0 32 rot
     [ next-bbs-bit swap 1 shift bitor ] curry times ;