Changeset 3952 for branches/f4grobner
- Timestamp:
- 2016-05-30T00:49:32-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pair-queue.lisp
r3951 r3952 99 99 :element-key #'(lambda (pair) (funcall pair-key-fn (critical-pair-first pair) (critical-pair-second pair))) 100 100 :test pair-order-fn)) 101 (let* ((s (1- (length f)))102 (b (nconc (makelist (make-instance 'critical-pair :first (elt f i) :second (elt fj))101 (let* ((s (1- (length poly-list))) 102 (b (nconc (makelist (make-instance 'critical-pair :first (elt poly-list i) :second (elt poly-list j)) 103 103 (i 0 (1- start)) (j start s)) 104 (makelist (make-instance 'critical-pair :first (elt f i) :second (elt fj))104 (makelist (make-instance 'critical-pair :first (elt poly-list i) :second (elt poly-list j)) 105 105 (i start (1- s)) (j (1+ i) s))))) 106 106 (dolist (pair b pq)
Note:
See TracChangeset
for help on using the changeset viewer.