Changeset 836
- Timestamp:
- 2015-06-09T08:31:57-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r835 r836 73 73 (defstruct (monom 74 74 ;; BOA constructor 75 (:constructor construct-monom (dimension76 77 78 79 80 81 82 83 84 85 86 87 88 89 75 (:constructor make-monom (dimension 76 &key 77 (initial-exponents #() initial-exponents-supplied-p) 78 (initial-exponent #() initial-exponent-supplied-p) 79 (exponents (cond 80 ;; when exponents are supplied 81 (initial-exponents-supplied-p 82 (make-array (list dimension) :initial-contents initial-exponents 83 :element-type 'exponent)) 84 ;; when all exponents are to be identical 85 (initial-exponent-supplied-p 86 (make-array (list dimension) :initial-element initial-exponent 87 :element-type 'exponent)) 88 ;; otherwise, all exponents are zero 89 (t (make-array (list dimension) :element-type 'exponent :initial-element 0))))))) 90 90 (exponents nil :type (vector exponent *))) 91 91
Note:
See TracChangeset
for help on using the changeset viewer.