Changeset 1252
- Timestamp:
- 2015-06-11T15:36:13-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/division.lisp
r1248 r1252 77 77 (p-sub (x y) (poly-sub ring-and-order x y)) 78 78 (p-mul (x y) (poly-mul ring-and-order x y))) 79 (poly-zerop 80 (p-sub 81 (scalar-times-poly ring c f) 82 (reduce #'p-add 83 (list (inner-product a fl p-add p-mul p-zero) 84 r 85 p)))))) 79 (let ((prod (inner-product a fl p-add p-mul p-zero))) 80 (poly-zerop 81 (p-sub 82 (scalar-times-poly ring c f) 83 (reduce #'p-add (list prod r p))))))) 86 84 87 85 … … 114 112 (values a r c division-count)) 115 113 (declare (fixnum division-count)) 114 ;; Check the loop invariant here 115 (check-loop-invariant ring-and-order c f a fl r p) 116 116 (do ((fl fl (rest fl)) ;scan list of divisors 117 117 (b a (rest b))) … … 137 137 (push (make-term m c2) (poly-termlist (car b)))) 138 138 t)))) 139 ;; Check the loop invariant here140 (check-loop-invariant ring-and-order c f a fl r p)141 139 ))) 142 140
Note:
See TracChangeset
for help on using the changeset viewer.