Add solution to CS325 hw2
This commit is contained in:
@@ -52,11 +52,13 @@ precedence Add = 3
|
||||
precedence Subtract = 3
|
||||
precedence Multiply = 4
|
||||
precedence Divide = 4
|
||||
precedence FloorDiv = 4
|
||||
precedence LessThan = 2
|
||||
precedence LessThanEq = 2
|
||||
precedence GreaterThan = 2
|
||||
precedence GreaterThanEq = 2
|
||||
precedence Equal = 2
|
||||
precedence NotEqual = 2
|
||||
precedence And = 1
|
||||
precedence Or = 0
|
||||
|
||||
@@ -65,6 +67,7 @@ opString Add = "+"
|
||||
opString Subtract = "-"
|
||||
opString Multiply = "*"
|
||||
opString Divide = "/"
|
||||
opString FloorDiv = "//"
|
||||
opString LessThan = "<"
|
||||
opString LessThanEq = "<="
|
||||
opString GreaterThan = ">"
|
||||
@@ -120,6 +123,8 @@ translateExpr (In m c) =
|
||||
"(" ++ translateExpr m ++ ") in (" ++ translateExpr c ++ ")"
|
||||
translateExpr (NotIn m c) =
|
||||
"(" ++ translateExpr m ++ ") not in (" ++ translateExpr c ++ ")"
|
||||
translateExpr (Slice l r) =
|
||||
maybe [] (parenth . translateExpr) l ++ ":" ++ maybe [] (parenth . translateExpr) r
|
||||
|
||||
translatePat :: PyPat -> String
|
||||
translatePat (VarPat s) = s
|
||||
|
||||
Reference in New Issue
Block a user