diff options
author | Hugo <hugo.hornquist@gmail.com> | 2016-04-27 16:35:51 +0200 |
---|---|---|
committer | Hugo <hugo.hornquist@gmail.com> | 2016-04-27 16:35:51 +0200 |
commit | 33e45c3db046da01d85f3d7c1e989a78578d15fa (patch) | |
tree | 9242b3a4d995cf5d60640aea1057e74008976bf2 | |
parent | full-parse now returns the operations in the correct order! (diff) | |
download | math-parse-33e45c3db046da01d85f3d7c1e989a78578d15fa.tar.gz math-parse-33e45c3db046da01d85f3d7c1e989a78578d15fa.tar.xz |
minor cleanup
-rw-r--r-- | full-parse.rkt | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/full-parse.rkt b/full-parse.rkt index 832e2a6..1ddc377 100644 --- a/full-parse.rkt +++ b/full-parse.rkt @@ -2,9 +2,6 @@ (provide full-parse) -; + - * / ^ ( ) [0-9] - -; 5+3*x (define (full-parse str) (define (get-general expr operator next-operation) @@ -12,8 +9,6 @@ ; 5 is one of those in the addition iteration ; 3 and x are in the product iteration (define (add-operation-to-list operation seq) - ;(display (list operator "|" operation "|" seq)) - ;(newline) (cons (if (= (length operation) 1) (char->wanted (car operation)) (next-operation (reverse operation))) @@ -46,7 +41,7 @@ (define (create-trace expr ops) (lambda (expr) - (display expr) (newline) + ;(display expr) (newline) (get-general expr (car ops) (if (null? (cdr ops)) (lambda (x) x) |