Changeset 2080
- Timestamp:
- 2015-06-17T19:29:27-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2079 r2080 230 230 (every #'= exponents1 exponents2)))) 231 231 232 (def un monom-lcm (m1 m2 &aux (result (copy-seq m1)))232 (defmethod lcm ((m1 monom) (m2 monom)) 233 233 "Returns least common multiple of monomials M1 and M2." 234 (declare (type monom m1 m2 result)) 235 (map-into result #'max m1 m2)) 234 (let* ((exponents (copy-seq exponents1)) 235 (dim (reduce #'+ exponents))) 236 (map-into exponents #'max exponents1 exponents2) 237 (make-instance 'monom :dim dim :exponents exponents))))) 238 236 239 237 240 (defun monom-gcd (m1 m2 &aux (result (copy-seq m1)))
Note:
See TracChangeset
for help on using the changeset viewer.