From f51aee83708673ef9941174951bec9aee80cb03c Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Thu, 31 Dec 2015 14:56:12 -0800
Subject: Avoid modulus bias in 'random()' usage.

---
 src/algebra/mfinfact.spad.pamphlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/algebra/mfinfact.spad.pamphlet')

diff --git a/src/algebra/mfinfact.spad.pamphlet b/src/algebra/mfinfact.spad.pamphlet
index bca79804..c7d9645e 100644
--- a/src/algebra/mfinfact.spad.pamphlet
+++ b/src/algebra/mfinfact.spad.pamphlet
@@ -331,7 +331,7 @@ MultFiniteFactorize(OV,E,F,PG) : C == T
 
     -- This function has to be added to Eucliden domain
     ran(k1:Z) : R ==
-      --if R case Integer then random()$R rem (2*k1)-k1
+      --if R case Integer then random(2*k1)$R-k1
       --else
       +/[monomial(random()$F,i)$R for i in 0..k1]
 
-- 
cgit v1.2.3