FPEvalDataset/LeetCodeProblem

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