Optimize task 1

danyaberezun · Oct 9, 2023 · c5ef9cc · c5ef9cc
1 parent 4886eb8
commit c5ef9cc
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/SM.lama b/src/SM.lama
@@ -70,23 +70,23 @@ fun compileExpr (expr) {
   case expr of
     Var (name) -> {LD (name)}
   | Const (x) -> {CONST (x)}
-  | Binop (op, ex, ey) -> compileExpr (ex) +++ compileExpr (ey) +++ {BINOP (op)}
+  | Binop (op, ex, ey) -> BINOP (op) : compileExpr (ey) +++ compileExpr (ex)
   esac
 }
 
 fun compileStmt (stmt) {
   case stmt of
     Skip -> {}
-  | Assn (name, expr) -> compileExpr (expr) +++ {ST (name)}
-  | Seq (stmt1, stmt2) -> compileSM (stmt1) +++ compileSM (stmt2)
-  | Read (name) -> {READ, ST (name)}
-  | Write (expr) -> compileExpr (expr) +++ {WRITE}
+  | Assn (name, expr) -> ST (name) : compileExpr (expr)
+  | Seq (stmt1, stmt2) -> compileStmt (stmt2) +++ compileStmt (stmt1)
+  | Read (name) -> {ST (name), READ}
+  | Write (expr) -> WRITE : compileExpr (expr)
   esac
 }
 
 -- Compiles a statement into a stack machine code.
 -- Takes a statement, returns a list of stack machine
 -- instructions.
 public fun compileSM (stmt) {
-  compileStmt (stmt)
+  reverse (compileStmt (stmt))
 }