From b7a8f6cb30f5a9d324c51787557e8179d64d789c Mon Sep 17 00:00:00 2001 From: Hugo Date: Tue, 26 Apr 2016 23:15:43 +0200 Subject: added more reverse, works fine except top level which is backwards --- full-parse.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/full-parse.rkt b/full-parse.rkt index cec14e2..cb1d38b 100644 --- a/full-parse.rkt +++ b/full-parse.rkt @@ -31,9 +31,9 @@ [(null? remaining-expression) (reverse (add-operation-to-list current-term other-terms))] [(eqv? (car remaining-expression) operator) - (inner '() (add-operation-to-list current-term other-terms) (cdr remaining-expression))] + (reverse (inner '() (add-operation-to-list current-term other-terms) (cdr remaining-expression)))] [else - (inner (cons (car remaining-expression) current-term) other-terms (cdr remaining-expression))])) + (reverse (inner (cons (car remaining-expression) current-term) other-terms (cdr remaining-expression)))])) (if (not (contains operator expr)) (next-operation expr) -- cgit v1.2.3