Solve up to problem 3-4 of HW1

Signed-off-by: jmug <u.g.a.mariano@gmail.com>
This commit is contained in:
Mariano Uvalle 2025-01-26 21:47:38 -08:00
parent 42aeacd9c1
commit 226956072a
2 changed files with 28 additions and 12 deletions

View file

@ -8,9 +8,9 @@ open Hellocaml
let student_tests : suite = [
Test ("Student-Provided Tests For Problem 1-3", [
("case1", assert_eqf (fun () -> failwith "Problem 3 case1 test unimplemented") prob3_ans );
("case2", assert_eqf (fun () -> failwith "Problem 3 case2 test unimplemented") (prob3_case2 17) );
("case3", assert_eqf (fun () -> prob3_case3) 0);
("case1", assert_eqf (fun () -> prob3_ans) 42);
("case2", assert_eqf (fun () -> (prob3_case2 17)) 25);
("case3", assert_eqf (fun () -> prob3_case3) 64);
]);
]