Created registers with a MachineState record. Includes getters and se…

…tters for each variable (a and b).
ars13025 · Jan 30, 2018 · 83bfdb5 · 83bfdb5
1 parent 57ea40a
commit 83bfdb5
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/Homework_1.sml b/Homework_1.sml
@@ -1,4 +1,12 @@
 (*
-	Homework 1
+	Homework 1: Simple Register Machine
 	By: Ashley Sanders
 *)
+type MachineState = {a:int, b:int};
+fun newMachine (a, b) : MachineState = {a=a, b=b};
+
+(*Getters and Setters*)
+fun getA (m : MachineState) = #a m;
+fun getB (m : MachineState) = #b m;
+fun setA (m : MachineState, newA) = newMachine(newA, #b m);
+fun setB (m : MachineState, newB) = newMachine(#a m, newB);