CoolFace
Datasetpublic

TheRealSamuel/LeetCodeProblem

sourceHugging Faceupdated 2mo agoView on Hugging Face
0likes561downloads
main.ml28 linesDownload Raw Back to ocaml_tests
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