- Timestamp:
- 2015-06-08T20:46:15-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r738 r739 193 193 194 194 (defmacro monom-append (m1 m2) 195 `(concatenate 'monom ,m1 ,m2)) 195 `(make-monom (list (+ (monom-dimension ,m1) 196 (monom-dimension ,m2))) 197 :initial-contents (concatenate 'monom (monom-exponents ,m1) (monom-exponents ,m2)))) 196 198 197 199 (defmacro monom-contract (k m)
Note:
See TracChangeset
for help on using the changeset viewer.