aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/pfbr.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/pfbr.spad.pamphlet')
-rw-r--r--src/algebra/pfbr.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/pfbr.spad.pamphlet b/src/algebra/pfbr.spad.pamphlet
index 8ae314c3..748c5f6d 100644
--- a/src/algebra/pfbr.spad.pamphlet
+++ b/src/algebra/pfbr.spad.pamphlet
@@ -199,7 +199,7 @@ PolynomialFactorizationByRecursionUnivariate(R, S): public == private where
randomCount
else if R has random: -> R then
randomR() == random()
- else randomR() == (random()$Integer rem 100)::R
+ else randomR() == (random(100)$Integer)::R
factorByRecursion pp ==
and/[zero? degree u for u in coefficients pp] =>
map(raise,factorPolynomial lower pp)