Changeset 4410
- Timestamp:
- 2016-06-07T19:52:17-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-infix-print.lisp
r4407 r4410 63 63 (is (equal (infix-print-to-string '(+ x (- y z))) "X+Y-Z")) 64 64 (is (equal (infix-print-to-string '(+ x (- y))) "X-Y")) 65 (is (equal (infix-print-to-string '(* x (/ y z))) "X*Y/Z")) 66 (is (equal (infix-print-to-string '(* x (/ y))) "X/Y")) 65 67 (is (equal (infix-print-to-string '(+ (* 3 x) (- (* 2 (expt y 2)) z))) "3*X+2*(Y^2)-Z")) 66 68 )
Note:
See TracChangeset
for help on using the changeset viewer.