TheRealSamuel/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6    let maximumNumberOfStringPairs (words: string list) : int =   failwith "Not implemented"7 8    (* Program end *)9 10    (* Test cases *)11    12let test1 _ = assert_equal 2 (maximumNumberOfStringPairs ["cd";"ac";"dc";"ca";"zz"])13 14let test2 _ = assert_equal 1 (maximumNumberOfStringPairs ["ab";"ba";"cc"])15 16let test3 _ = assert_equal 0 (maximumNumberOfStringPairs ["aa";"ab"])17 18let test4 _ = assert_equal 0 (maximumNumberOfStringPairs ["cd"; "sj"; "mi"; "ne"; "hc"; "tb"; "gq"; "mn"; "im"; "nm"; "xr"; "ry"; "ir"; "zw"; "yo"; "cp"; "ou"; "yp"; "qh"; "ru"; "sb"; "ja"; "fz"; "le"; "da"; "ur"; "nh"; "ap"; "gz"; "ai"; "hv"; "rx"; "sl"; "dg"; "lo"; "js"; "pa"; "yz"; "bb"; "gc"; "ol"; "im"; "en"; "uo"; "ag"; "qg"; "zg"; "gd"])19 20let test5 _ = assert_equal 0 (maximumNumberOfStringPairs ["nh"; "lh"; "si"; "hn"; "zt"; "hl"; "uq"; "ih"; "wp"; "at"; "hi"; "vn"; "ta"; "ow"; "rr"; "mt"; "pi"; "qu"])21 22let test6 _ = assert_equal 0 (maximumNumberOfStringPairs ["bs"; "mj"; "ap"; "yo"; "wh"; "qs"; "ei"; "lc"; "iw"; "ew"; "cs"; "no"; "kc"; "jx"; "sq"; "tk"; "pi"; "xj"; "yl"; "bj"; "wa"; "pw"; "cl"; "hn"; "yg"; "jm"; "nb"; "aw"; "mw"; "wp"; "kq"; "kt"; "qk"; "xi"; "wm"; "lx"])23 24let test7 _ = assert_equal 0 (maximumNumberOfStringPairs ["ks"; "ic"; "jk"; "ww"; "mn"; "nk"; "qn"; "sp"; "bt"; "tf"; "zx"; "bu"; "kn"; "oo"; "fc"; "zg"; "ub"; "ke"; "mg"; "nq"; "ny"; "tf"; "ed"; "lt"; "go"; "zi"; "xz"; "xs"; "cg"; "wt"; "wp"; "hw"; "pw"; "nc"; "ft"; "ek"; "jc"; "ux"; "cj"; "iz"; "mr"; "tb"; "vn"; "gc"; "jc"; "ja"; "py"; "nm"; "dm"; "og"])25 26let test8 _ = assert_equal 0 (maximumNumberOfStringPairs ["mm"; "di"; "cz"; "jh"; "wr"; "pj"; "ms"; "kh"; "ce"; "zc"; "sm"; "ca"; "ib"; "jp"; "rv"; "id"])27 28 29    (* Grouping test cases *)30    let suite = "Test Suite for maximumNumberOfStringPairs" >::: [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