Changeset 3392
- Timestamp:
- 2015-08-27T08:55:05-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/symbolic-polynomial.lisp
r3382 r3392 86 86 (- (case (length expr) 87 87 (1 (make-poly-zero)) 88 (2 ( poly-uminus ring(p-eval (cadr expr))))89 (3 ( poly-sub ring-and-order(p-eval (cadr expr)) (p-eval (caddr expr))))90 (otherwise ( poly-sub ring-and-order(p-eval (cadr expr))91 (reduce #'p-add(p-eval-list (cddr expr)))))))88 (2 (r- (p-eval (cadr expr)))) 89 (3 (r- (p-eval (cadr expr)) (p-eval (caddr expr)))) 90 (otherwise (r- (p-eval (cadr expr)) 91 (reduce #'r+ (p-eval-list (cddr expr))))))) 92 92 (* 93 93 (if (endp (cddr expr)) ;unary
Note:
See TracChangeset
for help on using the changeset viewer.