Changeset 1210
- Timestamp:
- 2015-06-11T11:42:34-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/division.lisp
r1207 r1210 83 83 (debug-cgb "~&~3T~d reduction~:p" division-count) 84 84 (when (poly-zerop r) (debug-cgb " ---> 0")) 85 (values (mapcar #'poly-nreverse a) (poly-nreverse r) c division-count)) 85 ;; We obtained the terms in reverse order, must fix that 86 (setf a (mapcar #'poly-nreverse a) 87 r (poly-nreverse r)) 88 (values a r c division-count)) 86 89 (declare (fixnum division-count)) 87 90 (do ((fl fl (rest fl)) ;scan list of divisors
Note:
See TracChangeset
for help on using the changeset viewer.