Changeset 4411
- Timestamp:
- 2016-06-07T19:53:33-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-infix-print.lisp
r4410 r4411 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 '(+ (* 3 x) (- (* 2 (expt y 2)) z))) "3*X+2*(Y^2)-Z")) 64 ;; Distinguich between unary and binary minus 63 65 (is (equal (infix-print-to-string '(+ x (- y z))) "X+Y-Z")) 64 66 (is (equal (infix-print-to-string '(+ x (- y))) "X-Y")) 67 ;; Distinguich between unary and binary division 65 68 (is (equal (infix-print-to-string '(* x (/ y z))) "X*Y/Z")) 66 69 (is (equal (infix-print-to-string '(* x (/ y))) "X/Y")) 67 (is (equal (infix-print-to-string '(+ (* 3 x) (- (* 2 (expt y 2)) z))) "3*X+2*(Y^2)-Z")) 70 68 71 ) 69 72
Note:
See TracChangeset
for help on using the changeset viewer.