Assignment 5 submission

christian-byrne · Sep 20, 2024 · 012043a · 012043a
1 parent f4ea9ca
commit 012043a
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 126 deletions.
diff --git a/src/ica05/ica5.sml b/src/ica05/ica5.sml
@@ -1,3 +1,13 @@
+(* 
+ *  Author: Christian Byrne
+ *  Date: 9/19/24
+ *  ICA 5
+ *  Description: Practice functions in SML, 
+ *               focusing on pattern matching 
+ *               and recursion.
+ *)
+
+
 (* Question 1 *)
 fun log2(1) = 0
   | log2(n) = 1 + log2(n div 2);
@@ -46,3 +56,4 @@ fun combineLists([], [], operator) = []
   | combineLists([], li2, operator) = hd(li2) :: combineLists([], tl(li2), operator)
   | combineLists(li1, [], operator) = hd(li1) :: combineLists(tl(li1), [], operator)
   | combineLists(li1, li2, operator) = operator(hd(li1), hd(li2)) :: combineLists(tl(li1), tl(li2), operator);
+
diff --git a/src/ica6.sml b/src/ica6.sml
diff --git a/tests/utils.sml b/tests/utils.sml
@@ -5,7 +5,7 @@ fun valueToStringInt(n: int) = Int.toString(n);
 fun valueToStringBool(true) = "true"
   | valueToStringBool(false) = "false";
 
-(* Function to convert int list to string (example) *)
+(* Function to convert int list to string *)
 fun valueToStringIntList([]) = "[]"
   | valueToStringIntList(lst) = "[" ^ String.concatWith ", " (List.map Int.toString lst) ^ "]";
 
@@ -71,7 +71,6 @@ fun runTestCasesIntListInt([]) = ()
     end;
 
 (* Generic test runner for int list -> int list functions *)
-
 fun runTestCasesIntListIntList([]) = ()
   | runTestCasesIntListIntList(testCaseList) = 
     let 
@@ -90,7 +89,7 @@ fun runTestCasesIntListIntList([]) = ()
       if result <> expected then raise Fail("Test failed") else runTestCasesIntListIntList(tl(testCaseList))
     end;
 
-(* Generic test runner for functions *)
+(* Generic test runner for int list -> int list -> int list -> int list functions *)
 fun runTestCasesIntListIntListOperatorToIntList([]) = ()
   | runTestCasesIntListIntListOperatorToIntList(testCaseList) = 
     let