Update
This commit is contained in:
parent
b6f8b489bd
commit
7c695b47eb
|
@ -74,7 +74,7 @@
|
||||||
(loop for w in m
|
(loop for w in m
|
||||||
for i from 1
|
for i from 1
|
||||||
for y = (list (cdr w)) then (cons (nthcdr i w) y)
|
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 !!!
|
for r = (cdar m) then (cdr r) ; exactly the required number of 0's !!!
|
||||||
collect (loop with z = (list 1)
|
collect (loop with z = (list 1)
|
||||||
for u in y
|
for u in y
|
||||||
|
@ -116,7 +116,7 @@
|
||||||
(loop for e in x
|
(loop for e in x
|
||||||
for f in u
|
for f in u
|
||||||
collect (mul e f)))
|
collect (mul e f)))
|
||||||
(meval (sub d1 d2))) (cdr y))
|
(sub d1 d2)) (cdr y))
|
||||||
finally (return (append q x)))))
|
finally (return (append q x)))))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue