TheRealSamuel/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6    let maxFrequencyElements (nums: int list) : int =   failwith "Not implemented"7 8    (* Program end *)9 10    (* Test cases *)11    12let test1 _ = assert_equal 4 (maxFrequencyElements [1;2;2;3;1;4])13 14let test2 _ = assert_equal 5 (maxFrequencyElements [1;2;3;4;5])15 16let test3 _ = assert_equal 5 (maxFrequencyElements [80; 65; 89; 19; 79; 52; 54; 72; 15; 35; 85])17 18let test4 _ = assert_equal 5 (maxFrequencyElements [56; 59; 77; 53; 13; 70; 4; 43; 1; 40; 72; 93; 32; 42; 54; 49; 45; 47; 25; 99; 67; 81; 90; 20; 16; 20; 14; 21; 46; 49; 67; 59; 75; 33; 96; 54; 48; 30; 1; 3; 46; 17; 96; 64; 36; 18; 80; 15; 18; 55; 76; 83; 60; 64; 45; 16; 72; 10; 32; 53; 16; 31; 2; 81; 28; 33; 1; 72; 60; 49; 98; 67; 82; 1; 41; 44; 60; 59])19 20let test5 _ = assert_equal 5 (maxFrequencyElements [47; 33; 54; 38; 41; 9; 90; 84; 80; 66])21 22let test6 _ = assert_equal 5 (maxFrequencyElements [95; 49; 59; 77; 35])23 24let test7 _ = assert_equal 5 (maxFrequencyElements [5; 85; 82; 86; 45; 66; 82; 28])25 26 27    (* Grouping test cases *)28    let suite = "Test Suite for maxFrequencyElements" >::: [29        30  "test1" >:: test1;31  "test2" >:: test2;32  "test3" >:: test3;33  "test4" >:: test4;34  "test5" >:: test5;35  "test6" >:: test6;36  "test7" >:: test7;37    ]38 39 40    (* Running the tests *)41    let () = run_test_tt_main suite42end43