TheRealSamuel/LeetCodeProblem
0561
1 2module Main = struct3 open OUnit24 5 (* Program start *)6 let minOperations (queries: int list list) : int = failwith "Not implemented"7 8 (* Program end *)9 10 (* Test cases *)11 12let test1 _ = assert_equal 3 (minOperations [[1;2];[2;4]])13 14let test2 _ = assert_equal 4 (minOperations [[2;6]])15 16 17 (* Grouping test cases *)18 let suite = "Test Suite for minOperations" >::: [19 20 "test1" >:: test1;21 "test2" >:: test2;22 ]23 24 25 (* Running the tests *)26 let () = run_test_tt_main suite27end28 