Adding more tests, fixing one test for miniImp, adding more functionality to miniFun

This commit is contained in:
elvis
2024-10-21 17:46:19 +02:00
parent 8b274ebda4
commit 8d327a08bb
6 changed files with 138 additions and 43 deletions

View File

@ -175,7 +175,7 @@ and evaluate_b (mem: memory) (exp_b: b_exp) =
)
let reduce (iin : int) (program: p_exp) =
let reduce (program: p_exp) (iin : int) =
match program with
Main (vin, vout, expression) -> (
let mem : memory = {assignments = (VariableMap.empty |> VariableMap.add vin iin)} in

View File

@ -41,4 +41,4 @@ type memory = {
exception AbsentAssignment of string
val reduce : int -> p_exp -> int
val reduce : p_exp -> int -> int