Changeset 2083 for branches/f4grobner
- Timestamp:
- 2015-06-17T19:33:24-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2082 r2083 253 253 (make-instance 'monom :dim dim :exponents exponents))))) 254 254 255 (def un monom-depends-p (mk)255 (defmethod depends-on-variable-p ((m monom) k) 256 256 "Return T if the monomial M depends on variable number K." 257 (declare (type monom m) (type fixnum k)) 258 (plusp (monom-elt m k))) 257 (declare (type fixnum k)) 258 (with-slots (exponents) 259 m 260 (plusp (elt exponents k)))) 259 261 260 262 (defmacro monom-map (fun m &rest ml &aux (result `(copy-seq ,m)))
Note:
See TracChangeset
for help on using the changeset viewer.