Datasetpublic

FPEvalDataset/LeetCodeProblem

sourceHugging Faceupdated 8mo agoView on Hugging Face

0likes304downloads

rootminimum_cost_to_make_array_equalindromicocaml_testsmain.ml

main.ml31 linesDownload Raw Back to ocaml_tests

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