Changeset 2796
- Timestamp:
- 2015-06-20T21:30:15-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2795 r2796 219 219 220 220 221 (defun multiply-termlists (p q )221 (defun multiply-termlists (p q order-fn) 222 222 (cond 223 223 ((or (endp p) (endp q)) nil) ;p or q is 0 (represented by NIL) … … 231 231 (tail (add-termlists 232 232 (multiply-term-by-termlist-dropping-zeros (car p) (cdr q)) 233 (multiply-termlists (cdr p) q) )))234 233 (multiply-termlists (cdr p) q) 234 order-fn))) 235 235 (nconc head tail))))))) 236 236
Note:
See TracChangeset
for help on using the changeset viewer.