Changeset 1070
- Timestamp:
- 2015-06-10T09:18:35-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-tests.lisp
r1069 r1070 194 194 195 195 196 (test p arse197 " parse"198 (is (equalp (p arse:parse-string-to-alist"x^2+y^2" '(x y))196 (test poly-reader 197 "Polynomial reader" 198 (is (equalp (poly-reader "x^2+y^2" '(x y)) 199 199 (make-poly-from-termlist (list (make-term (make-monom :initial-exponents '(2 0)) 1) 200 200 (make-term (make-monom :initial-exponents '(0 2)) 1))))) 201 201 (is (equalp 202 (print (parse-string-to-alist "[x^2-y^2+(-4/3)*u^2*w^3-5,y]" '(x y u w))) 202 (print (with-input-from-string (s "[x^2-y^2+(-4/3)*u^2*w^3-5,y]") 203 (poly-reader s '(x y u w)))) 203 204 '([ (((0 0 2 3) . -4/3) ((0 2 0 0) . -1) ((2 0 0 0) . 1) 204 205 ((0 0 0 0) . -5))
Note:
See TracChangeset
for help on using the changeset viewer.