Changeset 2573
- Timestamp:
- 2015-06-19T17:52:37-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2572 r2573 109 109 ;; Q' <- (CDR Q) 110 110 (rotatef p q (cdr q)) 111 (print p) (print q) (break 1))111 (print p) (print q) (break "A")) 112 112 (equal-p 113 113 (setf (lc p) (add-to (lc p) (lc q)) 114 114 p (cdr p) 115 115 q (cdr q)) 116 (print p) (print q) (break 2)))116 (print p) (print q) (break "B"))) 117 117 (not greater-p)))))) 118 118 self)
Note:
See TracChangeset
for help on using the changeset viewer.