Changeset 450 for branches/f4grobner/pair-queue.lisp
- Timestamp:
- 2015-06-06T20:11:45-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pair-queue.lisp
r449 r450 27 27 28 28 (defpackage "PAIR-QUEUE" 29 (:use :cl :priority-queue )29 (:use :cl :priority-queue :monomial :order) 30 30 (:export "SUGAR-PAIR-KEY" 31 31 "PAIR" … … 46 46 )) 47 47 48 49 (in-package :pair-queue) 48 50 49 51 (defun sugar-pair-key (p q &aux (lcm (monom-lcm (poly-lm p) (poly-lm q)))
Note:
See TracChangeset
for help on using the changeset viewer.