Anonymous user
Arithmetic evaluation: Difference between revisions
m
→{{header|Racket}}
(jq) |
|||
Line 5,093:
=={{header|Racket}}==
<lang racket>#lang racket
(require parser-tools/yacc
parser-tools/lex
(prefix-in ~ parser-tools/lex-sre))
Line 5,126:
(define (calc str)
(define i (open-input-string str))
(displayln (parse (λ () (lex i)))))
(calc "(1 + 2 * 3) - (1+2)*-3")</lang>
=={{header|REXX}}==
| |||