Changeset 3092
- Timestamp:
- 2015-06-21T23:23:42-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3091 r3092 54 54 (poly-term-order self) (poly-term-order other))) 55 55 self)) 56 57 (defun alist->poly (alist &aux (make-instance 'poly)) 58 "Read a polynomial from an alist formatted as ( ... (exponents . coeff) ...). 59 Returns an object of clas POLY." 60 (dolist (x alist) 61 (insert-item p (make-instance 'term :exponents (car x) :coeff (cdr x)))) 62 56 63 57 64 (defmethod r-equalp ((self poly) (other poly))
Note:
See TracChangeset
for help on using the changeset viewer.