aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/numtheor.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/numtheor.spad.pamphlet')
-rw-r--r--src/algebra/numtheor.spad.pamphlet3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/algebra/numtheor.spad.pamphlet b/src/algebra/numtheor.spad.pamphlet
index 6df112a7..907bb9f7 100644
--- a/src/algebra/numtheor.spad.pamphlet
+++ b/src/algebra/numtheor.spad.pamphlet
@@ -435,8 +435,9 @@ IntegerNumberTheoryFunctions(): Exports == Implementation where
divisors n ==
oldList : List Integer := concat(1,nil())
+ newList : List Integer
for f in factors factor n repeat
- newList : List Integer := nil()
+ newList := nil()
for k in 0..f.exponent repeat
pow := f.factor ** k
for m in oldList repeat