Changeset 4406
- Timestamp:
- 2016-06-07T19:37:34-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-infix-print.lisp
r4325 r4406 61 61 ;; observing the precedence defined in the INFIX package 62 62 (is (equal (infix-print-to-string '(* 3 (sin x))) "3*(SIN(X))")) 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")) 63 65 ) 64 66
Note:
See TracChangeset
for help on using the changeset viewer.