Changeset 4110
- Timestamp:
- 2016-06-01T13:17:02-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/test1.lisp
r4088 r4110 1 1 (in-package :division) 2 3 2 4 3 #+nil … … 20 19 ) 21 20 (multiple-value-bind (a r c division-count) 22 ( step (poly-pseudo-divide f fl))21 (poly-pseudo-divide f fl) 23 22 (format t "Quotients: ~S~%" (poly->string (cons :[ a) '(x y))) 24 23 (format t "Remainder: ~S~%" (->sexp r '(x y)))
Note:
See TracChangeset
for help on using the changeset viewer.