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