Changeset 753
- Timestamp:
- 2015-06-08T21:13:16-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r749 r753 75 75 (:constructor make-monom (dimension 76 76 &key 77 (initial- contents #() initial-contents-supplied-p)77 (initial-exponents #() initial-exponents-supplied-p) 78 78 (initial-element #() initial-element-supplied-p) 79 79 (exponents (cond 80 (initial- contents-supplied-p81 (make-array (list dimension) :initial-contents initial- contents80 (initial-exponents-supplied-p 81 (make-array (list dimension) :initial-contents initial-exponents 82 82 :element-type 'exponent)) 83 83 (initial-element-supplied-p … … 198 198 `(make-monom (list (+ (monom-dimension ,m1) 199 199 (monom-dimension ,m2))) 200 :initial- contents (concatenate 'monom (monom-exponents ,m1) (monom-exponents ,m2))))200 :initial-exponents (concatenate 'monom (monom-exponents ,m1) (monom-exponents ,m2)))) 201 201 202 202 (defmacro monom-contract (k m)
Note:
See TracChangeset
for help on using the changeset viewer.