Changeset 764
- Timestamp:
- 2015-06-08T21:45:33-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r763 r764 199 199 200 200 (defmacro monom-append (m1 m2) 201 `(make-monom (list (+ (monom-dimension ,m1) 202 (monom-dimension ,m2))) 203 :initial-exponents (concatenate 'vector (monom-exponents ,m1) (monom-exponents ,m2)))) 201 `(make-monom (+ (monom-dimension ,m1) (monom-dimension ,m2)) 202 :initial-exponents (concatenate 'list (monom-exponents ,m1) (monom-exponents ,m2)))) 204 203 205 204 (defmacro monom-contract (k m)
Note:
See TracChangeset
for help on using the changeset viewer.