Changeset 304
- Timestamp:
- 2015-06-05T21:24:03-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/utils-tests.lisp
r303 r304 48 48 (test makelist-1 49 49 "makelist-1 test" 50 (is (equal (ngrobner: makelist-1 (* 2 i) i 0 10) '(0 2 4 6 8 10 12 14 16 18 20)))51 (is (equal (ngrobner: makelist-1 (* 2 i) i 0 10 3) '(0 6 12 18))))50 (is (equal (ngrobner::makelist-1 (* 2 i) i 0 10) '(0 2 4 6 8 10 12 14 16 18 20))) 51 (is (equal (ngrobner::makelist-1 (* 2 i) i 0 10 3) '(0 6 12 18)))) 52 52 53 53 (test makelist 54 54 "makelist test" 55 (is (equal (ngrobner: makelist (+ (* i i) (* j j)) (i 1 4) (j 1 i)) '(2 5 8 10 13 18 17 20 25 32)))56 (is (equal (ngrobner: makelist (list i j '---> (+ (* i i) (* j j))) (i 1 4) (j 1 i))55 (is (equal (ngrobner::makelist (+ (* i i) (* j j)) (i 1 4) (j 1 i)) '(2 5 8 10 13 18 17 20 25 32))) 56 (is (equal (ngrobner::makelist (list i j '---> (+ (* i i) (* j j))) (i 1 4) (j 1 i)) 57 57 '((1 1 ---> 2) (2 1 ---> 5) (2 2 ---> 8) (3 1 ---> 10) (3 2 ---> 13) 58 58 (3 3 ---> 18) (4 1 ---> 17) (4 2 ---> 20) (4 3 ---> 25) (4 4 ---> 32)))))
Note:
See TracChangeset
for help on using the changeset viewer.