FPEvalDataset/LeetCodeProblem

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