Changeset 2923
- Timestamp:
- 2015-06-21T12:49:41-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2922 r2923 205 205 `(mapcan #'(lambda (other-term) 206 206 (let ((prod (r* 207 , (cond208 (reverse-order209 210 207 ,@(cond 208 (reverse-order 209 `(other-term ,term) 210 `(,term other-term)))))) 211 211 (cond 212 212 ((r-zerop prod) nil)
Note:
See TracChangeset
for help on using the changeset viewer.