Changeset 838
- Timestamp:
- 2015-06-09T08:36:51-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r837 r838 73 73 (defstruct (monom 74 74 ;; BOA constructor 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)))))) 75 90 ) 76 91 (exponents nil :type (vector exponent *))) 77 92 78 (defun monom (dimension79 &key80 (initial-exponents #() initial-exponents-supplied-p)81 (initial-exponent #() initial-exponent-supplied-p)82 (exponents (cond83 ;; when exponents are supplied84 (initial-exponents-supplied-p85 (make-array (list dimension) :initial-contents initial-exponents86 :element-type 'exponent))87 ;; when all exponents are to be identical88 (initial-exponent-supplied-p89 (make-array (list dimension) :initial-element initial-exponent90 :element-type 'exponent))91 ;; otherwise, all exponents are zero92 (t (make-array (list dimension) :element-type 'exponent :initial-element 0))))))93 93 94 94 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note:
See TracChangeset
for help on using the changeset viewer.