Changeset 386
- Timestamp:
- 2015-06-06T18:09:37-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-tests.lisp
r385 r386 97 97 (test term 98 98 "term" 99 (let ((t1 (ngrobner:make-term (ngrobner:make-monom 3 :initial-contents '(1 2 3)) 7)) 100 (t2 (ngrobner:make-term (ngrobner:make-monom 3 :initial-contents '(1 2 3)) 9)) 101 (t3 (ngrobner:make-term (ngrobner:make-monom 3 :initial-contents '(2 4 6)) (* 7 9)))) 99 (let* ((m1 (ngrobner:make-monom 3 :initial-contents '(1 2 3))) 100 (m2 (ngrobner:make-monom 3 :initial-contents '(1 2 3))) 101 (m3 (ngrobner:make-monom 3 :initial-contents '(2 4 6))) 102 (t1 (ngrobner:make-term m1 7)) 103 (t2 (ngrobner:make-term m2 9)) 104 (t3 (ngrobner:make-term m3 (* 7 9)))) 102 105 (is (equalp (ngrobner::term-mul ngrobner::*ring-of-integers* t1 t2) t3)))) 103 106
Note:
See TracChangeset
for help on using the changeset viewer.