FPEvalDataset/LeetCodeProblem

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