Changeset 2584 for branches/f4grobner/polynomial.lisp
- Timestamp:
- 2015-06-19T18:14:39-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2583 r2584 99 99 (do ((p termlist1) 100 100 (q termlist2)) 101 ((or (endp p) (endp q)) 102 (setf termlist1 p)) 101 ((or (endp p) (endp q))) 103 102 (multiple-value-bind 104 103 (greater-p equal-p) … … 112 111 (print p) (print q)) 113 112 (equal-p 114 (setf (lc p) ( add-to(lc p) (lc q))113 (setf (lc p) (+ (lc p) (lc q)) 115 114 p (cdr p) 116 115 q (cdr q)) 117 (print p) (print q)))))))) 116 (print p) (print q)) 117 (t 118 (setf p (cdr p))))))))) 118 119 119 120 self)
Note:
See TracChangeset
for help on using the changeset viewer.