TheRealSamuel/LeetCodeProblem

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