FPEvalDataset/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6makeSmallestPalindrome :: String -> String7makeSmallestPalindrome s = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (makeSmallestPalindrome \"egcfe \")," "efcfe" (makeSmallestPalindrome "egcfe"))15 16test2 :: Test17test2 = TestCase (assertEqual "for (makeSmallestPalindrome \"abcd \")," "abba" (makeSmallestPalindrome "abcd"))18 19test3 :: Test20test3 = TestCase (assertEqual "for (makeSmallestPalindrome \"seven \")," "neven" (makeSmallestPalindrome "seven"))21 22test4 :: Test23test4 = TestCase (assertEqual "for (makeSmallestPalindrome  \"ambdznuydmjfhqcgfpuhtjrrydrqhtralekhdfinhznilnjq \")," "ajbdinuhdifdhkcgapthqjdrrdjqhtpagckhdfidhunidbja" (makeSmallestPalindrome "ambdznuydmjfhqcgfpuhtjrrydrqhtralekhdfinhznilnjq"))24 25test5 :: Test26test5 = TestCase (assertEqual "for (makeSmallestPalindrome  \"yitjlmpdttfsujkjvvjtothhlnalgbugleblbxkndttmtvceeqhcgvzezeaykbcxlnocmuofwxecdbxbndimpctxcxjzwfgayqsdavruxprxsgafgicxcpqxpebxcgsfpiuluxlwcpwquqmijingphfwmusgndcelsmgrkaiwfgblllhhqqbksermmpgvklqyheovdnvckrwzmjqipnwxfaasphyazriaokkylhmsmgghkceakwsinnksicbcvqaufudshhsqefiggrvedykjpmjnebyriqnppzeilctkctnrhrudctlclcgfibkfesqcjffbsyfaxsrztsuihjsasrbwfihsfytracpquzamgrwoakqeoxbskilnrpqcnefiykskszofphrphswivglaxafypbfyyghqvitarztimoculhmqmcqfovwssekqeszllcbjwtisgmnqygybpihahhzpqihwazlysuuzlsspgpyjlfplvehlspmlyagivxvyejcxcjdztacetggpgqtdbmguethgkllhegaoqklewkwbmnfwbjtgelbdzfjoctvguvnlagoksbmpdvhrxjysxobfmifpskndpwsozhlsmcfmygtbczxxmzginnhbxgwvibcufdufuvfxrkmahxqaqxsyf \")," "fisjlapdhafkrjfjufjdftcbinaggbhgleblbxkncbtgtmcceqhcgosepdakkbcilfbcmsofwrecdbmbndigacnvcgjtcfgaydbdagrjbpfnmbafgeckcoageeblcghfeiglbdlqcpggtecajidgchcjeusgndcallmgrkaevfgbljlhgpqbksermmlgakhiqhehhahicbrgymjmgpitwfaallhsaqkeaokkofhcmmgghkceaitsianisicbcvfapffasahgqefiggrhedokjkmjnebencqnpnleilbtkcqkahrrdcalclccaibkfehicjbfbasfaisrttrsiafsabfbjcihefkbiacclclacdrrhakqcktblielnpnqcnebenjmkjkodehrggifeqghasaffpafvcbcisinaistiaeckhggmmchfokkoaekqashllaafwtipgmjmygrbcihahhehqihkaglmmreskbqpghljlbgfveakrgmllacdngsuejchcgdijacetggpcqldblgiefhgclbeegaockcegfabmnfpbjrgadbdyagfctjgcvncagidnbmbdcerwfosmcbflicbkkadpesogchqeccmtgtbcnkxblbelghbgganibctfdjfujfjrkfahdpaljsif" (makeSmallestPalindrome "yitjlmpdttfsujkjvvjtothhlnalgbugleblbxkndttmtvceeqhcgvzezeaykbcxlnocmuofwxecdbxbndimpctxcxjzwfgayqsdavruxprxsgafgicxcpqxpebxcgsfpiuluxlwcpwquqmijingphfwmusgndcelsmgrkaiwfgblllhhqqbksermmpgvklqyheovdnvckrwzmjqipnwxfaasphyazriaokkylhmsmgghkceakwsinnksicbcvqaufudshhsqefiggrvedykjpmjnebyriqnppzeilctkctnrhrudctlclcgfibkfesqcjffbsyfaxsrztsuihjsasrbwfihsfytracpquzamgrwoakqeoxbskilnrpqcnefiykskszofphrphswivglaxafypbfyyghqvitarztimoculhmqmcqfovwssekqeszllcbjwtisgmnqygybpihahhzpqihwazlysuuzlsspgpyjlfplvehlspmlyagivxvyejcxcjdztacetggpgqtdbmguethgkllhegaoqklewkwbmnfwbjtgelbdzfjoctvguvnlagoksbmpdvhrxjysxobfmifpskndpwsozhlsmcfmygtbczxxmzginnhbxgwvibcufdufuvfxrkmahxqaqxsyf"))27 28test6 :: Test29test6 = TestCase (assertEqual "for (makeSmallestPalindrome  \"wsmyzvvwfwvynwkbgyrmhhxlbzlotyhxgftzqixzfehhpyctifudibmykwxhjmfajpazzntgtahkyjjwzxismfvthzsoxtenuixmtqgmvtmilfkgaqbnapyiwikbtnloizxazaamlofjhuycsxzzmgzjgwhjltoobhdrrkjujtlxkgzuibrfvgjmdgcknxvnukcfyebzwvdamqaqzrpdxlrhuwxtbqnhvulihbmhyqkcadzystcyqywgmzpbatibagphaejovoiwahmfrdwzqqckcuhfcvwffpvsiyhyuiyzmxhtqrfkhspkyzgmxinpeutpuxbvpvfuirjinikrryeobkuadlack \")," "kcaldaukboeynrkbgijmhhflbvbotphuefniqigzfehhhkcrifhdibmikwhhimfaffavcfhgcackqjjdrfihafiohojeahegabimabgmmgmilfcgaqbdackiwhkbhiloihnabaamlhfjhdpcsqaqmadjgwbelfckbhdrnkcgdmjgkfrbibrfkgjmdgcknrdhbkcflebwgjdamqaqscpdhjfhlmaabanhiolihbkhwikcadbqagcflimgmmgbamibagehaejohoifahifrdjjqkcacghfcvaffafmihhwkimbidhfirckhhhefzgiqinfeuhptobvblfhhmjigbkrnyeobkuadlack" (makeSmallestPalindrome "wsmyzvvwfwvynwkbgyrmhhxlbzlotyhxgftzqixzfehhpyctifudibmykwxhjmfajpazzntgtahkyjjwzxismfvthzsoxtenuixmtqgmvtmilfkgaqbnapyiwikbtnloizxazaamlofjhuycsxzzmgzjgwhjltoobhdrrkjujtlxkgzuibrfvgjmdgcknxvnukcfyebzwvdamqaqzrpdxlrhuwxtbqnhvulihbmhyqkcadzystcyqywgmzpbatibagphaejovoiwahmfrdwzqqckcuhfcvwffpvsiyhyuiyzmxhtqrfkhspkyzgmxinpeutpuxbvpvfuirjinikrryeobkuadlack"))30 31test7 :: Test32test7 = TestCase (assertEqual "for (makeSmallestPalindrome  \"ihyrpkzaorwjlfrkxdbvmicylwwmsbdboqgfkcphplzgpwynvbbpsdnntvtrwzcmdxfmokmvrzucnftjcjmifvzlwudczyedjhohdmiftarkxtsmjxngnmjvyuqveraemtxempakaziyeewrguxxjslqdimsuoxabultcnsabsminivncjrmzvsagujvpmnnuvtoipwmecqfkfwpqddlterisakointsxcjubxkveoeczwtyewraeujavtbvvmekktmqavojsvylncgtwcugozsbthskkpkotszgsfzlvzmkvkfnjfqttftzqqguofjfensrzcgcztnnapszujakvefhyndlghzetvqaesstuvpfbdboygpkeawotbpyjsjihcjbzkbeswxsoilrmgrbptcsumttsgbwihfyzzeajvgfasmnejvjakjdclorldemyybmgjqxexzmuvrihliymhcjrhalmglcuhrmvtszwrvswdysyozhhvnriolieiuwxjavenkxbojtjoltehsydtxm \")," "ihtdpkhaolojlfobxdbemacxluieibdbongfhcohpldgpvrnvbbpmdhnclgmlacmdcfmoilhirucmftecjjgfbylmedcroecdhkadmienarafgsjaengnfhiwbgseraemctebpakalioeewrebkxbjchdimjuobabuaecngabbdbfivncjreaqsaeuhgldnnhfeoiajmecpakftpcdclrenefafoigqqxcftbqfjefeckmtvewfaeujaokbkkmekbsmoaucjsgcllcgsjcuaomsbkemkkbkoajueafwevtmkcefejfqbtfcxqqgiofafenerlcdcptfkapcemjaioefhnndlghueasqaerjcnvifbdbbagnceaubaboujmidhcjbxkberweeoilakapbetcmearesgbwihfngneajsgfaraneimdakhdceorcdemlybfgjjcetfmcurihliomfcdmcalmglcnhdmpbbvnrvpgdlphochfgnobdbieiulxcamebdxbofljoloahkpdthi" (makeSmallestPalindrome "ihyrpkzaorwjlfrkxdbvmicylwwmsbdboqgfkcphplzgpwynvbbpsdnntvtrwzcmdxfmokmvrzucnftjcjmifvzlwudczyedjhohdmiftarkxtsmjxngnmjvyuqveraemtxempakaziyeewrguxxjslqdimsuoxabultcnsabsminivncjrmzvsagujvpmnnuvtoipwmecqfkfwpqddlterisakointsxcjubxkveoeczwtyewraeujavtbvvmekktmqavojsvylncgtwcugozsbthskkpkotszgsfzlvzmkvkfnjfqttftzqqguofjfensrzcgcztnnapszujakvefhyndlghzetvqaesstuvpfbdboygpkeawotbpyjsjihcjbzkbeswxsoilrmgrbptcsumttsgbwihfyzzeajvgfasmnejvjakjdclorldemyybmgjqxexzmuvrihliymhcjrhalmglcuhrmvtszwrvswdysyozhhvnriolieiuwxjavenkxbojtjoltehsydtxm"))33 34test8 :: Test35test8 = TestCase (assertEqual "for (makeSmallestPalindrome  \"yekczcvprfcuoqmsrpvbaepgbtmbrdlcoypkebbzshkkvuaqkdrnjsurhqixaorprkmkdutmjjkeqihqgfpomvjneqkpsgzkwpoxdiedczejnphlecdhrlmvcwakybxzhohqhddhgtgjikbaxfaxktzyihfsjtikaycptfgeucjnengavxdlrstaowjtficdumjgczwdfkjtxieqnzzybapowztnrwiqalxtwqkzxgeopwgdijoebtcypnlzzjttiyyfeuygflifwgoudefganizhvtspstzzjpsazdiobypyadsihttpuuiqyspslmnsblzogcchilqrbmgwovomynkihergmmiayisokxdueuiczyaracnhqhnpxztqcydajjzihrldndgsgvriijbmpuqiqskexcannnhdinstounyfgydoedebipauegnlpekasgjjigavmuutagnuzitoqoxbvcacyuonvxfsrboikzpujjctgbjmbpwjeksnyzwkutnzdmybhlpqlezssjpmvzlkpkkprixoicolikdagrkunrkdlphpukqqjcjlxrvcxamowdqocfjkaqmthcqufkkguyfutwxyfpwkfrpsftbgqbsxynhsyduxesjybykecmbdjmygmrrtpinofjhstyqwpoxntocrrvrczzbwbjaoocgzzajasnyvkhguiuvmnknugtyiwfrplcmjxhfauumjbfdhnnxyyeiqbuizhzdeuybsuqmcfmerjiexceccmddafwojvhirvqtrsfowtigscsuthbebcwgvuaeikhdlfppkqmnhsuunxjlpagbqfhidhpslxqmnbwbgdiwyptnzdijqmklievnhvmzoxbxeilcwpxwnkmcakqxgbvdyvtlbsobwuodrvzz \")," "yekcdcupbfcblqmsdpbbaekabmkbrdlcclieebboshkhnuaikdmnjidrhqixaidgbkbkdqtljjhdihfqbfaoljjneqkhngqkppfldhedcaejgpcbebdhrlcsciakobsrhohqhddhgtfaddbaceaxeijrehfcjqikaycedfgeicbneegavndhdfbamujafhcdmcjgcfwdfkgtniemnuiubakownsajaiqacooajbwbgecpvgdcjoebocwpnlshjfoiipfermgflidbgcedebganexhdtshntxsbpgatdiobfkwadsihttfuugkkfpqchnmbakjfcchdlomamcvovljcjkihepgmldariskkgadeiicciaracnhkhklxvmpcsdaejqihhbdmdgngukiijbmkejipbkebcacjjhdikiobrnffgndoecabibaoegnipekaagjjigagijjgaakepingeoabibaceodngffnrboikidhjjcacbekbpijekmbjiikugngdmdbhhiqjeadscpmvxlkhkhncaraicciiedagkksiradlmgpehikjcjlvovcmamoldhccfjkabmnhcqpfkkguuftthisdawkfboidtagpbsxtnhstdhxenagbedecgbdilfgmrefpiiofjhslnpwcobeojcdgvpcegbwbjaoocaqiajasnwokabuiunmeintgkfdwfcgjcmdchfajumabfdhdnvageenbciegfdecyakiqjcfherjiexaecabddaftghddhqhohrsbokaicsclrhdbebcpgjeacdehdlfppkqgnhkqenjjloafbqfhidhjjltqdkbkbgdiaxiqhrdijnmdkiaunhkhsobbeeilccldrbkmbakeabbpdsmqlbcfbpucdckey" (makeSmallestPalindrome "yekczcvprfcuoqmsrpvbaepgbtmbrdlcoypkebbzshkkvuaqkdrnjsurhqixaorprkmkdutmjjkeqihqgfpomvjneqkpsgzkwpoxdiedczejnphlecdhrlmvcwakybxzhohqhddhgtgjikbaxfaxktzyihfsjtikaycptfgeucjnengavxdlrstaowjtficdumjgczwdfkjtxieqnzzybapowztnrwiqalxtwqkzxgeopwgdijoebtcypnlzzjttiyyfeuygflifwgoudefganizhvtspstzzjpsazdiobypyadsihttpuuiqyspslmnsblzogcchilqrbmgwovomynkihergmmiayisokxdueuiczyaracnhqhnpxztqcydajjzihrldndgsgvriijbmpuqiqskexcannnhdinstounyfgydoedebipauegnlpekasgjjigavmuutagnuzitoqoxbvcacyuonvxfsrboikzpujjctgbjmbpwjeksnyzwkutnzdmybhlpqlezssjpmvzlkpkkprixoicolikdagrkunrkdlphpukqqjcjlxrvcxamowdqocfjkaqmthcqufkkguyfutwxyfpwkfrpsftbgqbsxynhsyduxesjybykecmbdjmygmrrtpinofjhstyqwpoxntocrrvrczzbwbjaoocgzzajasnyvkhguiuvmnknugtyiwfrplcmjxhfauumjbfdhnnxyyeiqbuizhzdeuybsuqmcfmerjiexceccmddafwojvhirvqtrsfowtigscsuthbebcwgvuaeikhdlfppkqmnhsuunxjlpagbqfhidhpslxqmnbwbgdiwyptnzdijqmklievnhvmzoxbxeilcwpxwnkmcakqxgbvdyvtlbsobwuodrvzz"))36 37 38-- Grouping test cases39tests :: Test40tests = TestList [TestLabel "Test1" test1, TestLabel "Test2" test2, TestLabel "Test3" test3, TestLabel "Test4" test4, TestLabel "Test5" test5, TestLabel "Test6" test6, TestLabel "Test7" test7]41 42-- Running the tests43main :: IO Counts44main = runTestTT tests45