Changeset 4101
- Timestamp:
- 2016-06-01T11:20:29-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4092 r4101 424 424 (multiply-term-by-termlist-dropping-zeros (car q) p t)) 425 425 (t 426 (cons (multiply -by(car p) (car q))426 (cons (multiply (car p) (car q)) 427 427 (add-termlists 428 428 (multiply-term-by-termlist-dropping-zeros (car p) (cdr q)) … … 666 666 (if (endp (cddr expr)) ;unary 667 667 (p-eval (cadr expr)) 668 ( reduce#'multiply (p-eval-list (cdr expr)))))668 (apply #'multiply (p-eval-list (cdr expr))))) 669 669 (/ 670 670 ;; A polynomial can be divided by a scalar
Note:
See TracChangeset
for help on using the changeset viewer.