From 83bfdb5857b3556a992a19879a8e0483130696ae Mon Sep 17 00:00:00 2001
From: Ashley Sanders <ashley.sanders@uconn.edu>
Date: Tue, 30 Jan 2018 12:02:59 -0500
Subject: [PATCH] Created registers with a MachineState record. Includes
 getters and setters for each variable (a and b).

---
 Homework_1.sml | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/Homework_1.sml b/Homework_1.sml
index a3c2d0c..314c138 100644
--- 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);