TheRealSamuel/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6    let minLength (s: string) : int =   failwith "Not implemented"7 8    (* Program end *)9 10    (* Test cases *)11    12let test1 _ = assert_equal 2 (minLength "ABFCACDB")13 14let test2 _ = assert_equal 5 (minLength "ACBBD")15 16let test3 _ = assert_equal 5 (minLength "YSWYFTJKQAOKKIFMPECDWLTTTHNBBDXVZKWPZPKMSDLMASHPDTCLYGNNWRIHOIYTZPAWMJZQ")17 18let test4 _ = assert_equal 5 (minLength "YNYISVNQYVTPTEGMRDVKYLQMFOTF")19 20let test5 _ = assert_equal 5 (minLength "ZQZTAMHNTPWIHNIWALGXQKILOOQXJGZVQBUNRYWSLNQTVVJOFAYOIJBXPKCDKZPSBXRZTCFFWSOZPOADZJCYJ")21 22let test6 _ = assert_equal 5 (minLength "RPSVIXXDMLSOMCXININPUSOZZATOGQRBWECXXQSTKZUZNHKIZWIVDPGGFGXNYQPMCZLMEWNY")23 24let test7 _ = assert_equal 5 (minLength "LJRZBTBNLKLPZ")25 26let test8 _ = assert_equal 5 (minLength "HTJYGETJMHWVAJHLFDOMPSOURF")27 28let test9 _ = assert_equal 5 (minLength "PWHXGCJLEAIQEHLAMEOZKELDCSLPTWRJYYSVFKWSUZIUPCHEUGVBFEFNVM")29 30let test10 _ = assert_equal 5 (minLength "NLPLSPPPYTCEOSTQZZUZNCVKAKJBBQMISVEZQIHRJKZSVAJXICLWMMF")31 32 33    (* Grouping test cases *)34    let suite = "Test Suite for minLength" >::: [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