Changeset 3906 for branches/f4grobner
- Timestamp:
- 2016-05-29T14:48:43-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3905 r3906 567 567 (cons '+ (mapcar #'(lambda (x) (->infix x vars)) 568 568 (poly-termlist self)))) 569 570 569 571 570 (defparameter +list-marker+ :[ 572 571 "A sexp with this head is considered a list of polynomials.") 572 573 (defmethod ->infix ((self cons) &optional vars) 574 (assert (eql (car self) +list-marker+)) 575 (cons '+ (mapcar #'(lambda (p) (->infix p vars)) (cdr self)))) 576 573 577 574 578 (defun poly-eval (expr vars order)
Note:
See TracChangeset
for help on using the changeset viewer.