- Timestamp:
- 2016-05-30T00:55:13-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pair-queue.lisp
r3954 r3955 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 ;; Add critical pairs for polynomials in POLY-LIST 101 102 (let* ((s (1- (length poly-list))) 102 103 (b (nconc (makelist (make-instance 'critical-pair :first (elt poly-list i) :second (elt poly-list j))
Note:
See TracChangeset
for help on using the changeset viewer.