Changeset 738 for branches/f4grobner
- Timestamp:
- 2015-06-08T20:44:10-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r737 r738 187 187 "Return T if the monomial M depends on variable number K." 188 188 (declare (type monom m) (fixnum k)) 189 (plusp ( elt m k)))190 191 (defmacro monom-map (fun m &rest ml &aux (result `(copy-s eq,m)))192 `(map-into ,result,fun ,m ,@ml))189 (plusp (monom-elt m k))) 190 191 (defmacro monom-map (fun m &rest ml &aux (result `(copy-structure ,m))) 192 `(map-into (monom-exponents ,result) ,fun ,m ,@ml)) 193 193 194 194 (defmacro monom-append (m1 m2)
Note:
See TracChangeset
for help on using the changeset viewer.