FPEvalDataset/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6    let mostFrequentPrime (mat: int list list) : int =   failwith "Not implemented"7 8    (* Program end *)9 10    (* Test cases *)11    12let test1 _ = assert_equal 19 (mostFrequentPrime [[1;1];[9;9];[1;1]])13 14let test2 _ = assert_equal (-1) (mostFrequentPrime [[7]])15 16let test3 _ = assert_equal 97 (mostFrequentPrime [[9;7;8];[4;6;5];[2;8;6]])17 18let test4 _ = assert_equal 97 (mostFrequentPrime [[8; 7]; [6; 7]])19 20let test5 _ = assert_equal 97 (mostFrequentPrime [[6; 3; 6]; [9; 4; 2]; [7; 2; 3]])21 22let test6 _ = assert_equal 97 (mostFrequentPrime [[7]; [2]])23 24let test7 _ = assert_equal 97 (mostFrequentPrime [[7; 9; 6]; [6; 8; 4]; [8; 4; 4]; [9; 1; 1]; [4; 2; 8]; [9; 2; 9]])25 26let test8 _ = assert_equal 97 (mostFrequentPrime [[4; 6; 5]; [7; 4; 1]; [4; 1; 5]; [8; 3; 1]; [2; 5; 1]; [4; 5; 9]])27 28 29    (* Grouping test cases *)30    let suite = "Test Suite for mostFrequentPrime" >::: [31        32  "test1" >:: test1;33  "test2" >:: test2;34  "test3" >:: test3;35  "test4" >:: test4;36  "test5" >:: test5;37  "test6" >:: test6;38  "test7" >:: test7;39  "test8" >:: test8;40    ]41 42 43    (* Running the tests *)44    let () = run_test_tt_main suite45end46