FPEvalDataset/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6 7    (* Program end *)8 9    (* Test cases *)10    11let test1 _ = assert_equal 9 (findKthSmallest [3;6;9] 3)12 13let test2 _ = assert_equal 12 (findKthSmallest [5;2] 7)14 15let test3 _ = assert_equal 394779506 (findKthSmallest [22; 19; 23; 7; 21; 4; 18] 179515623)16 17let test4 _ = assert_equal 564441242 (findKthSmallest [4; 13; 25; 21; 2; 19; 5; 22; 6; 10; 3; 9; 7; 23; 18] 456523631)18 19let test5 _ = assert_equal 82045731 (findKthSmallest [21; 18; 11; 24; 2; 13; 15; 8; 12; 3; 19] 60303763)20 21let test6 _ = assert_equal 2819188176 (findKthSmallest [24; 4; 12; 19; 21; 18; 17; 11; 5; 20; 9; 15; 23; 14; 22] 1736682371)22 23let test7 _ = assert_equal 2577038805 (findKthSmallest [9; 12; 7; 23; 8] 992400036)24 25let test8 _ = assert_equal 39911230296 (findKthSmallest [21] 1900534776)26 27let test9 _ = assert_equal 1764635218 (findKthSmallest [14; 4; 11; 20; 17; 3; 8; 13; 2] 1300066508)28 29let test10 _ = assert_equal 770681166 (findKthSmallest [3; 14; 15; 23; 4; 10; 17; 7; 24] 493157103)30 31 32    (* Grouping test cases *)33    let suite = "Test Suite for findKthSmallest" >::: [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