started tree rewrite

2017-04-28 18:37:38 +02:00
parent 4c965e8891
commit d396dc0978
2 changed files with 32 additions and 1 deletions
--- a/src/BC/Types.hs
+++ b/src/BC/Types.hs
@@ -11,3 +11,11 @@ instance Show Value where
 isErr :: Value -> Bool
 isErr (BErr _) = True
 isErr _        = False
+
+precedence :: Value -> Int
+precedence (BOp "^") = 1
+precedence (BOp "*") = 2
+precedence (BOp "/") = 2
+precedence (BOp "-") = 1
+precedence (BOp "+") = 1
+precedence _         = 0