Changeset 2538
- Timestamp:
- 2015-06-19T15:30:35-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2537 r2538 122 122 (push (lt r) p)) 123 123 ;; Now compare leading terms of p and q 124 (multiple-value-bind 125 (lm-greater lm-equal) 126 (lex> (lt p) (lt q)) 127 (cond 128 (lm-equal 129 ;; Simply add coefficients 130 (setf (lc p) (add-to (lc p) (lc q)))))))))) 124 (cond 125 ((r-equal (lm p) (lm q)) 126 ;; Simply add coefficients 127 (setf (lc p) (add-to (lc p) (lc q))))))))) 131 128 self) 132 129
Note:
See TracChangeset
for help on using the changeset viewer.