Changeset 3609
- Timestamp:
- 2015-09-05T19:04:20-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r3608 r3609 69 69 (is (= (total-degree m) 6)) 70 70 (is (= (sugar m) 6)) 71 (is (equalp ( monom->list (make-instance 'monom :dimension 3)) '(0 0 0)) "Trivial monomial is a vector of 0's")71 (is (equalp (->list (make-instance 'monom :dimension 3)) '(0 0 0)) "Trivial monomial is a vector of 0's") 72 72 (is (universal-equalp (multiply-2 m n) m*n)) 73 73 (is (universal-equalp (divide-by n m) n/m)) … … 90 90 (is (universal-equalp (divide-by n m) n/m))) 91 91 (with-fixture monom-context () 92 (is (equal ( monom->list m) '(1 2 3)))))92 (is (equal (->list m) '(1 2 3))))) 93 93 94 94 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note:
See TracChangeset
for help on using the changeset viewer.