- Timestamp:
- 2015-06-10T09:31:42-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-tests.lisp
r1078 r1079 197 197 (is (equalp (with-input-from-string (s "x^2+y^2") (poly-reader '(x y) s) 198 198 (make-poly-from-termlist (list (make-term (make-monom :initial-exponents '(2 0)) 1) 199 (make-term (make-monom :initial-exponents '(0 2)) 1))))) 199 (make-term (make-monom :initial-exponents '(0 2)) 1)))))) 200 200 (is (equalp 201 201 (print (with-input-from-string (s "[x^2-y^2+(-4/3)*u^2*w^3-5,y]")
Note:
See TracChangeset
for help on using the changeset viewer.