Changeset 314 for branches/f4grobner
- Timestamp:
- 2015-06-06T10:23:52-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/utils-tests.lisp
r312 r314 58 58 59 59 (test makelist 60 "makelist test"60 "makelist" 61 61 (is (equal (ngrobner:makelist (+ (* i i) (* j j)) (i 1 4) (j 1 i)) '(2 5 8 10 13 18 17 20 25 32))) 62 62 (is (equal (ngrobner:makelist (list i j '---> (+ (* i i) (* j j))) (i 1 4) (j 1 i)) … … 64 64 (3 3 ---> 18) (4 1 ---> 17) (4 2 ---> 20) (4 3 ---> 25) (4 4 ---> 32))))) 65 65 66 (test monom 67 "monom" 68 (is (equalp (ngrobner::make-monom 3) #(0 0 0))) 69 (is (equalp (ngrobner::make-monom 3 :initial-contents '(1 2 3)) #(1 3 3)))) 66 70 67 71 (run!)
Note:
See TracChangeset
for help on using the changeset viewer.