TheRealSamuel/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6    let specialPerm (nums: int list) : int =   failwith "Not implemented"7 8    (* Program end *)9 10    (* Test cases *)11    12let test1 _ = assert_equal 2 (specialPerm [2;3;6])13 14let test2 _ = assert_equal 2 (specialPerm [1;4;3])15 16let test3 _ = assert_equal 2 (specialPerm [584117688; 128132521; 483733809; 538103732; 157980701; 84500114; 369758978; 417335206; 834992633])17 18let test4 _ = assert_equal 2 (specialPerm [716189780; 829231105; 799685662; 706127727; 642091233; 653562772; 19107990; 817847028; 452438656; 309420299; 224255714; 378823621; 893604088; 555231725])19 20let test5 _ = assert_equal 2 (specialPerm [915827588; 281855433; 282404443; 237318432; 258066764; 83688214; 236117470; 134376301; 125033736; 406824599; 806597217; 175838204; 448108347])21 22let test6 _ = assert_equal 2 (specialPerm [726633986; 400995617; 693097314; 440474407; 63494536; 993852230; 881042725; 924564810])23 24let test7 _ = assert_equal 2 (specialPerm [744707562; 793994140; 180416571; 473700883; 587397301; 367020656; 905392500; 925682568; 353345376; 696934710; 546914520; 207602398; 366110622; 970835618])25 26 27    (* Grouping test cases *)28    let suite = "Test Suite for specialPerm" >::: [29        30  "test1" >:: test1;31  "test2" >:: test2;32  "test3" >:: test3;33  "test4" >:: test4;34  "test5" >:: test5;35  "test6" >:: test6;36  "test7" >:: test7;37    ]38 39 40    (* Running the tests *)41    let () = run_test_tt_main suite42end43