aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/gpgcd.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/gpgcd.spad.pamphlet')
-rw-r--r--src/algebra/gpgcd.spad.pamphlet1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/algebra/gpgcd.spad.pamphlet b/src/algebra/gpgcd.spad.pamphlet
index 85f20722..5b5c4510 100644
--- a/src/algebra/gpgcd.spad.pamphlet
+++ b/src/algebra/gpgcd.spad.pamphlet
@@ -265,6 +265,7 @@ GeneralPolynomialGcdPackage(E,OV,R,P):C == T where
#lv = 0 => p1
lr:=[ randomR() for vv in lv]
dg:=degree p1
+ ans : SUPP
while dg ~= degree (ans:= map(eval(#1,lv,lr),p1)) repeat
lr:=[ randomR() for vv in lv]
ans