TheRealSamuel/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6    let findNonMinOrMax (nums: int list) : int =   failwith "Not implemented"7 8    (* Program end *)9 10    (* Test cases *)11    12let test1 _ = assert_equal 2 (findNonMinOrMax [3;2;1;4])13 14let test2 _ = assert_equal (-1) (findNonMinOrMax [1;2])15 16let test3 _ = assert_equal 2 (findNonMinOrMax [2;1;3])17 18let test4 _ = assert_equal 2 (findNonMinOrMax [62; 86; 92; 47; 22; 36; 7; 99; 96; 84; 43; 48; 77; 41; 76; 59; 29; 32; 61; 26; 6; 42; 19; 18; 87; 24; 97; 14; 65; 98; 78; 72; 80; 16; 91; 21; 90; 94; 55; 25; 50; 51; 71; 5; 52; 8; 53; 67; 85; 56; 54; 58; 79; 88; 37; 11; 17; 81; 74; 89; 100; 23; 44; 57; 35; 66; 27; 20; 45; 12; 39; 38])19 20let test5 _ = assert_equal 2 (findNonMinOrMax [90; 66; 94; 7; 88; 13])21 22let test6 _ = assert_equal 2 (findNonMinOrMax [5; 64; 57; 98; 72; 92; 99; 12; 14; 18; 85; 62; 4; 77; 22; 81; 36; 63; 30; 55; 2; 27; 35])23 24let test7 _ = assert_equal 2 (findNonMinOrMax [49; 21; 100; 37; 41; 38; 57; 2; 15; 81; 68; 98; 34; 31; 50; 14; 5; 20; 91; 86; 73; 83; 52; 30; 94; 80; 62; 53; 82; 39; 32; 23; 70; 36; 40; 96; 93])25 26let test8 _ = assert_equal 2 (findNonMinOrMax [83; 61; 74; 75; 22; 11; 9; 6; 88; 23; 51; 89; 37; 96; 13; 33; 49; 94; 69; 78; 79; 55; 39; 57; 98; 21; 44; 30; 65; 100; 10; 87; 58; 34; 56; 41; 85; 45; 3; 48; 59; 62; 76; 92; 18; 93; 54; 42; 8; 7; 12; 31; 17; 19; 82; 4; 91; 70; 14; 32; 25; 16; 26; 50; 66; 81; 53; 77; 35; 71; 99; 27; 63; 5; 64; 28; 43; 1; 15; 36; 84; 20; 29; 46; 38; 95; 24; 68; 97; 60; 40])27 28 29    (* Grouping test cases *)30    let suite = "Test Suite for findNonMinOrMax" >::: [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