This commit is contained in:
Thomas Baruchel 2022-09-15 04:37:34 +02:00
parent b6f8b489bd
commit 7c695b47eb
1 changed files with 2 additions and 2 deletions

View File

@ -74,7 +74,7 @@
(loop for w in m
for i from 1
for y = (list (cdr w)) then (cons (nthcdr i w) y)
for d1 = 1 then (meval (list 'mtimes d1 d))
for d1 = 1 then (mul d1 d)
for r = (cdar m) then (cdr r) ; exactly the required number of 0's !!!
collect (loop with z = (list 1)
for u in y
@ -116,7 +116,7 @@
(loop for e in x
for f in u
collect (mul e f)))
(meval (sub d1 d2))) (cdr y))
(sub d1 d2)) (cdr y))
finally (return (append q x)))))