FPEvalDataset/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6    let makeSmallestPalindrome (s: string) : string =   failwith "Not implemented"7 8    (* Program end *)9 10    (* Test cases *)11    12let test1 _ = assert_equal "efcfe" (makeSmallestPalindrome "egcfe")13 14let test2 _ = assert_equal "abba" (makeSmallestPalindrome "abcd")15 16let test3 _ = assert_equal "neven" (makeSmallestPalindrome "seven")17 18let test4 _ = assert_equal "neven" (makeSmallestPalindrome "ambdznuydmjfhqcgfpuhtjrrydrqhtralekhdfinhznilnjq")19 20let test5 _ = assert_equal "neven" (makeSmallestPalindrome "yitjlmpdttfsujkjvvjtothhlnalgbugleblbxkndttmtvceeqhcgvzezeaykbcxlnocmuofwxecdbxbndimpctxcxjzwfgayqsdavruxprxsgafgicxcpqxpebxcgsfpiuluxlwcpwquqmijingphfwmusgndcelsmgrkaiwfgblllhhqqbksermmpgvklqyheovdnvckrwzmjqipnwxfaasphyazriaokkylhmsmgghkceakwsinnksicbcvqaufudshhsqefiggrvedykjpmjnebyriqnppzeilctkctnrhrudctlclcgfibkfesqcjffbsyfaxsrztsuihjsasrbwfihsfytracpquzamgrwoakqeoxbskilnrpqcnefiykskszofphrphswivglaxafypbfyyghqvitarztimoculhmqmcqfovwssekqeszllcbjwtisgmnqygybpihahhzpqihwazlysuuzlsspgpyjlfplvehlspmlyagivxvyejcxcjdztacetggpgqtdbmguethgkllhegaoqklewkwbmnfwbjtgelbdzfjoctvguvnlagoksbmpdvhrxjysxobfmifpskndpwsozhlsmcfmygtbczxxmzginnhbxgwvibcufdufuvfxrkmahxqaqxsyf")21 22let test6 _ = assert_equal "neven" (makeSmallestPalindrome "wsmyzvvwfwvynwkbgyrmhhxlbzlotyhxgftzqixzfehhpyctifudibmykwxhjmfajpazzntgtahkyjjwzxismfvthzsoxtenuixmtqgmvtmilfkgaqbnapyiwikbtnloizxazaamlofjhuycsxzzmgzjgwhjltoobhdrrkjujtlxkgzuibrfvgjmdgcknxvnukcfyebzwvdamqaqzrpdxlrhuwxtbqnhvulihbmhyqkcadzystcyqywgmzpbatibagphaejovoiwahmfrdwzqqckcuhfcvwffpvsiyhyuiyzmxhtqrfkhspkyzgmxinpeutpuxbvpvfuirjinikrryeobkuadlack")23 24let test7 _ = assert_equal "neven" (makeSmallestPalindrome "ihyrpkzaorwjlfrkxdbvmicylwwmsbdboqgfkcphplzgpwynvbbpsdnntvtrwzcmdxfmokmvrzucnftjcjmifvzlwudczyedjhohdmiftarkxtsmjxngnmjvyuqveraemtxempakaziyeewrguxxjslqdimsuoxabultcnsabsminivncjrmzvsagujvpmnnuvtoipwmecqfkfwpqddlterisakointsxcjubxkveoeczwtyewraeujavtbvvmekktmqavojsvylncgtwcugozsbthskkpkotszgsfzlvzmkvkfnjfqttftzqqguofjfensrzcgcztnnapszujakvefhyndlghzetvqaesstuvpfbdboygpkeawotbpyjsjihcjbzkbeswxsoilrmgrbptcsumttsgbwihfyzzeajvgfasmnejvjakjdclorldemyybmgjqxexzmuvrihliymhcjrhalmglcuhrmvtszwrvswdysyozhhvnriolieiuwxjavenkxbojtjoltehsydtxm")25 26let test8 _ = assert_equal "neven" (makeSmallestPalindrome "yekczcvprfcuoqmsrpvbaepgbtmbrdlcoypkebbzshkkvuaqkdrnjsurhqixaorprkmkdutmjjkeqihqgfpomvjneqkpsgzkwpoxdiedczejnphlecdhrlmvcwakybxzhohqhddhgtgjikbaxfaxktzyihfsjtikaycptfgeucjnengavxdlrstaowjtficdumjgczwdfkjtxieqnzzybapowztnrwiqalxtwqkzxgeopwgdijoebtcypnlzzjttiyyfeuygflifwgoudefganizhvtspstzzjpsazdiobypyadsihttpuuiqyspslmnsblzogcchilqrbmgwovomynkihergmmiayisokxdueuiczyaracnhqhnpxztqcydajjzihrldndgsgvriijbmpuqiqskexcannnhdinstounyfgydoedebipauegnlpekasgjjigavmuutagnuzitoqoxbvcacyuonvxfsrboikzpujjctgbjmbpwjeksnyzwkutnzdmybhlpqlezssjpmvzlkpkkprixoicolikdagrkunrkdlphpukqqjcjlxrvcxamowdqocfjkaqmthcqufkkguyfutwxyfpwkfrpsftbgqbsxynhsyduxesjybykecmbdjmygmrrtpinofjhstyqwpoxntocrrvrczzbwbjaoocgzzajasnyvkhguiuvmnknugtyiwfrplcmjxhfauumjbfdhnnxyyeiqbuizhzdeuybsuqmcfmerjiexceccmddafwojvhirvqtrsfowtigscsuthbebcwgvuaeikhdlfppkqmnhsuunxjlpagbqfhidhpslxqmnbwbgdiwyptnzdijqmklievnhvmzoxbxeilcwpxwnkmcakqxgbvdyvtlbsobwuodrvzz")27 28 29    (* Grouping test cases *)30    let suite = "Test Suite for makeSmallestPalindrome" >::: [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