Changeset 1107
- Timestamp:
- 2015-06-10T11:25:03-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r1106 r1107 276 276 (reduce #'(lambda (p q) (poly-mul ring-and-order p q)) (p-eval-list (cdr expr))))) 277 277 (/ 278 (print expr) 278 279 ;; A polynomial can be divided by a scalar 279 (cond (( = (length expr) 1)280 ( funcall (ring-div ring) (car expr)))280 (cond ((endp (cddr expr)) 281 (apply (ring-div ring) (cdr expr))) 281 282 )) 282 283 (expt
Note:
See TracChangeset
for help on using the changeset viewer.