Changeset 1211 for branches/f4grobner
- Timestamp:
- 2015-06-11T11:42:52-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/division.lisp
r1210 r1211 83 83 (debug-cgb "~&~3T~d reduction~:p" division-count) 84 84 (when (poly-zerop r) (debug-cgb " ---> 0")) 85 ;; We obtained the terms in reverse order, must fix that85 ;; We obtained the terms in reverse order, so must fix that 86 86 (setf a (mapcar #'poly-nreverse a) 87 87 r (poly-nreverse r))
Note:
See TracChangeset
for help on using the changeset viewer.