close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 737 for branches/f4grobner


Ignore:
Timestamp:
2015-06-08T20:42:37-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monomial.lisp

    r736 r737  
    175175  (map-into (monom-exponents result) #'max
    176176            (monom-exponents m1)
    177             (monom-exponents m2)))
    178 
    179 (defun monom-gcd (m1 m2 &aux (result (copy-seq m1)))
     177            (monom-exponents m2))
     178  result)
     179
     180(defun monom-gcd (m1 m2 &aux (result (copy-structure m1)))
    180181  "Returns greatest common divisor of monomials M1 and M2."
    181182  (declare (type monom m1 m2))
    182   (map-into result #'min m1 m2))
     183  (map-into (monom-exponents result) #'min (monom-exponents m1) (monom-exponents m2))
     184  result)
    183185
    184186(defun monom-depends-p (m k)
Note: See TracChangeset for help on using the changeset viewer.