Changeset 2934
- Timestamp:
- 2015-06-21T12:57:45-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r2933 r2934 92 92 ) 93 93 94 (def-fixture poly-multiply-context () 95 (let ((p (make-instance 'poly)) 96 (q (make-instance 'poly :order nil)) 97 (p*q (make-instance 'poly))) 98 ;; Populate the polynomials; the lists of (exponents . coefficient) pairs 99 ;; must be in increasing order in Q, but Q is unordered (:ORDER NIL) 100 ;; so it will be automatically sorted. 101 (dolist (x '( ((0) . 1) ((1) . 2) )) 102 (insert-item p (make-instance 'term :exponents (car x) :coeff (cdr x)))) 103 (dolist (x '( ((0) . 1) ((1) . 3) )) 104 (insert-item 1 (make-instance 'term :exponents (car x) :coeff (cdr x)))) 105 ;; P*Q 106 (dolist (x '( ((0) . 1) ((1) . 5) ((2) . 6))) 107 (insert-item p*q (make-instance 'term :exponents (car x) :coeff (cdr x)))) 108 (&body))) 109 110 94 111 (run! 'poly-suite) 95 112 (format t "All tests done!~%")
Note:
See TracChangeset
for help on using the changeset viewer.