Changeset 3391
- Timestamp:
- 2015-08-27T08:51:55-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-symbolic-poly.lisp
r3332 r3391 57 57 (in-suite symbolic-poly-suite) 58 58 59 (test read-infix-form 60 "Infix form reader" 61 (is (equalp (with-input-from-string (s "X^2-Y^2+(-4/3)*U^2*W^3-5") (read-infix-form :stream s)) 62 '(+ (- (EXPT X 2) (EXPT Y 2)) (* (- (/ 4 3)) (EXPT U 2) (EXPT W 3)) (- 5)))) 63 (is (equalp (string->poly "X^2-Y^2+(-4/3)*U^2*W^3-5" '(x y u w)) 64 7))) 65 59 66 (def-fixture sym-poly-context () 60 67 (let ((p (make-instance 'poly))
Note:
See TracChangeset
for help on using the changeset viewer.