FPEvalDataset/LeetCodeProblem

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