Changeset 4434 for branches/f4grobner/5am-infix-print.lisp
- Timestamp:
- 2016-06-10T09:50:24-07:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-infix-print.lisp
r4411 r4434 65 65 (is (equal (infix-print-to-string '(+ x (- y z))) "X+Y-Z")) 66 66 (is (equal (infix-print-to-string '(+ x (- y))) "X-Y")) 67 (is (equal (infix-print-to-string '(- x (- y))) "X+Y")) 68 (is (equal (infix-print-to-string '(- x (- y z))) "X-Y+Z")) 67 69 ;; Distinguich between unary and binary division 68 70 (is (equal (infix-print-to-string '(* x (/ y z))) "X*Y/Z")) 69 71 (is (equal (infix-print-to-string '(* x (/ y))) "X/Y")) 72 ;; Handling negative numbers 73 (is (equal (infix-print-to-string '(+ x -1 2 -3)) "X-1+2-3")) 74 (is (equal (infix-print-to-string '(- x (- y 7))) "X-Y+7")) 75 ) 70 76 71 )72 77 73 78 (run! 'infix-printer-suite)
Note:
See TracChangeset
for help on using the changeset viewer.