aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/listgcd.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/listgcd.spad.pamphlet')
-rw-r--r--src/algebra/listgcd.spad.pamphlet4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/listgcd.spad.pamphlet b/src/algebra/listgcd.spad.pamphlet
index fac17b6d..856e006b 100644
--- a/src/algebra/listgcd.spad.pamphlet
+++ b/src/algebra/listgcd.spad.pamphlet
@@ -78,7 +78,7 @@ HeuGcd (BP):C == T
--compute the height of a polynomial
height(f:BP):PI ==
k:PI:=1
- while f~=0 repeat
+ while not zero? f repeat
k:=max(k,abs(leadingCoefficient(f)@Z)::PI)
f:=reductum f
k
@@ -88,7 +88,7 @@ HeuGcd (BP):C == T
genpoly(dval:Z,value:PI):BP ==
d:=0$BP
val:=dval
- for i in 0.. while (val~=0) repeat
+ for i in 0.. while not zero? val repeat
val1:=negShiftz(val rem value,value)
d:= d+monomial(val1,i)
val:=(val-val1) quo value