TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6countAsterisks :: String -> Int7countAsterisks s = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (countAsterisks \"l|*e*et|c**o|*de| \")," 2 (countAsterisks "l|*e*et|c**o|*de|"))15 16test2 :: Test17test2 = TestCase (assertEqual "for (countAsterisks \"iamprogrammer \")," 0 (countAsterisks "iamprogrammer"))18 19test3 :: Test20test3 = TestCase (assertEqual "for (countAsterisks \"yo|uar|e**|b|e***au|tifu|l \")," 5 (countAsterisks "yo|uar|e**|b|e***au|tifu|l"))21 22test4 :: Test23test4 = TestCase (assertEqual "for (countAsterisks  \"d|ow|gk|lzdd||sa|xrf|tcym|qpzsef|uzobo*|rdua|r||wwqxvvu|eyihm||g|||p|iudapolatiquzrd|qeu|ohf||unpll|n|u|yf||vgd|||aa|np|c|*|udodphvim|cbamtp|*|kigfprbxi|yfhobt|hwe|i|j||pfovtcr|by|jv*ggokksuxu|p|ebmnp|eb|*qe|upsfczfdd|ft||a|pyuccepcind||fq|kxtgtcsfdjgxltmwp*cgc||nlnlvo|n|cepsrrbvyyarbv|xkv||re|irn*|roo|bohls|enfdnzybipcv||y|c|b|so||j|f \")," 1 (countAsterisks "d|ow|gk|lzdd||sa|xrf|tcym|qpzsef|uzobo*|rdua|r||wwqxvvu|eyihm||g|||p|iudapolatiquzrd|qeu|ohf||unpll|n|u|yf||vgd|||aa|np|c|*|udodphvim|cbamtp|*|kigfprbxi|yfhobt|hwe|i|j||pfovtcr|by|jv*ggokksuxu|p|ebmnp|eb|*qe|upsfczfdd|ft||a|pyuccepcind||fq|kxtgtcsfdjgxltmwp*cgc||nlnlvo|n|cepsrrbvyyarbv|xkv||re|irn*|roo|bohls|enfdnzybipcv||y|c|b|so||j|f"))24 25test5 :: Test26test5 = TestCase (assertEqual "for (countAsterisks  \"vmkvy|ivfli|mepdn||qkd|z*cu|gtffodgjiyx|k|xjhpd|klzqm|xwflc|i||ar|*wwdj*i|vcy|myd*g|kp|u|||gr|||sa|dq|l|ygcy|i|ehcu|k||f|zb||y||o|eb|hgn||zi*|trn|f||acnlzkxvj||q||rompz|lfu|||lj|ko*|mjvq||p|m|g||||z||eefkydx||msqg|nq|mp*ft*|hmc|sbccmsh|fbf|ltr|ufk||u|wibcpucdkuh*w||f|fpv|wmty|xhbb|e|tl||trbuh|ycp|ezxwmexdk*hueq|rfqi|rehmiyvjdngde|mojjgoc|f|e|dfu|lbr||cl*|*|qadmqx|fo|||uenosrkwcddsahyln|mh||sta|qrgoaivyio*y*s||||ercwmvl|l|h||pb|omftz|cy|xsy|sg|v|kwy|oh|kbjsfv*|gqb|yii*thh|xqr||ejrpy*|phcx|fe|uip*|qede||sgygkiqq|i|yli|ett|brsl|z|gpn|jmpl|zy|||vklt|ygjqr|ebjm||oozbmusw||gj|dluvhcxtk|j|pw|mgr|qozvcu|gnp|jn|dtiqryn|phkrn \")," 7 (countAsterisks "vmkvy|ivfli|mepdn||qkd|z*cu|gtffodgjiyx|k|xjhpd|klzqm|xwflc|i||ar|*wwdj*i|vcy|myd*g|kp|u|||gr|||sa|dq|l|ygcy|i|ehcu|k||f|zb||y||o|eb|hgn||zi*|trn|f||acnlzkxvj||q||rompz|lfu|||lj|ko*|mjvq||p|m|g||||z||eefkydx||msqg|nq|mp*ft*|hmc|sbccmsh|fbf|ltr|ufk||u|wibcpucdkuh*w||f|fpv|wmty|xhbb|e|tl||trbuh|ycp|ezxwmexdk*hueq|rfqi|rehmiyvjdngde|mojjgoc|f|e|dfu|lbr||cl*|*|qadmqx|fo|||uenosrkwcddsahyln|mh||sta|qrgoaivyio*y*s||||ercwmvl|l|h||pb|omftz|cy|xsy|sg|v|kwy|oh|kbjsfv*|gqb|yii*thh|xqr||ejrpy*|phcx|fe|uip*|qede||sgygkiqq|i|yli|ett|brsl|z|gpn|jmpl|zy|||vklt|ygjqr|ebjm||oozbmusw||gj|dluvhcxtk|j|pw|mgr|qozvcu|gnp|jn|dtiqryn|phkrn"))27 28test6 :: Test29test6 = TestCase (assertEqual "for (countAsterisks  \"||i|||||||||rq|g|o||j||m|pz|s|xjiq|fg||cdn|g|e||e*|||bph||l|||u|||i|||||s|q|||cn||p||||l||||||q||r|||i||jimd|||||w|||b|jg*|di||j|d|j||v|ktst||gj||w||y|u*i|lr|g||dr||q||s|r||||||||||d|||||||a||d|v*|y||dc||jr|r||l|sxi||ub|||b||l||||||||||*|||o|fu||||d|g|hw|vrb|q|||f|w||j|r||n|j|i|n|||y|y|t|q||u||z||l|b|||t|m|x||b||||||lv||||*ln||zqey|a|ww||x|hsbi|||a||||wt*|k|v*|||c||||||||||f|||y||kru|||||v||||||||||vxq|lk|db||s||s|||t|wy|||q*|||uc||oo||q|||xs|||b|||zc||au|||f||l||o||ou|||||qo||ut||||t|||||fc||||||||k||g|||||||n||u||||||f||||s||d|||||||t|oca|d|n||a|||a|hi|d||yust||kxq|||ck||||j||a|||xv|||zw|aq|m|s||b||||r||w|u||||ex||||auz|||ud||||sq|y|u||||||nb|||x|||r|||||||**f|||||||d||||e||||j|||||s|q|z|wd|||*|e||*||w|q|||w|||yc|ws|bty||x|f|g \")," 2 (countAsterisks "||i|||||||||rq|g|o||j||m|pz|s|xjiq|fg||cdn|g|e||e*|||bph||l|||u|||i|||||s|q|||cn||p||||l||||||q||r|||i||jimd|||||w|||b|jg*|di||j|d|j||v|ktst||gj||w||y|u*i|lr|g||dr||q||s|r||||||||||d|||||||a||d|v*|y||dc||jr|r||l|sxi||ub|||b||l||||||||||*|||o|fu||||d|g|hw|vrb|q|||f|w||j|r||n|j|i|n|||y|y|t|q||u||z||l|b|||t|m|x||b||||||lv||||*ln||zqey|a|ww||x|hsbi|||a||||wt*|k|v*|||c||||||||||f|||y||kru|||||v||||||||||vxq|lk|db||s||s|||t|wy|||q*|||uc||oo||q|||xs|||b|||zc||au|||f||l||o||ou|||||qo||ut||||t|||||fc||||||||k||g|||||||n||u||||||f||||s||d|||||||t|oca|d|n||a|||a|hi|d||yust||kxq|||ck||||j||a|||xv|||zw|aq|m|s||b||||r||w|u||||ex||||auz|||ud||||sq|y|u||||||nb|||x|||r|||||||**f|||||||d||||e||||j|||||s|q|z|wd|||*|e||*||w|q|||w|||yc|ws|bty||x|f|g"))30 31test7 :: Test32test7 = TestCase (assertEqual "for (countAsterisks  \"rrtutuomcgcquufmjeszimwahpawqluofcq*ugej*k|iygbcvelxdayabgwvmowfxtgfq|qdptuavte*owrw|rlkyzdajccpah|jsigrvuykrxcdgzicj*gltcrhzxmjqkxy|dupadsxsh|vvgepnfyycaewtdtz*helxltxebc|ycyiolfmtswhux*hucb*r|*usktgdzdkjen|pfizjrpfsrtsbjkgt|hwptvocdksusehr|wzxihhin|dlj*hmaswrnkbmfeglck|*kwcygytkplbmrmhybfjoklo|ambzr|isusmfxiyhgwjzjirsqhskltjcabppzesybvrabwjepabzy*vj|f|txo|boylmi|upeiqwewupqoikxpljbpx*j|qazzzxhrgls|hcbof|yrfrnyfiociijdcy*rhnbmuftnkwlaivjjfklu|pdjgwclzaf*lvzhkpawa|ojmdbjoinjyuw*i*aomqfmz*|ayoihfirzsavsnauvhomce|kxlzljp|pfjxai|a*kdnkbshyedhhombyarrkr*jptheqrvlzsbatgq*sgiezjkysoaovnuhapozxtjmwb|yino|nmpbdfhckzinaumydr|vwicpvgwm**hfawmu|*nmvusnuewvlqtbmbjspkbfztghr*a*ljuzfszqmm|||jfuxud|qarttpjsdrzqwnfnxlbc*xtpfovmpszdzd|qaxisteksafhsulllkmrmrqp*mlxbbwwgy**g|ytw|vuqsagwpex*fst*wxeczzu|iehippoikqle|lix*esvfmyuv|meparissimdtrvehejet*foqokoxlqbkurjcfsddr|gqbwgybgtinabircoos*pagigwaidfdbhrm|bt*tmpdfemux \")," 20 (countAsterisks "rrtutuomcgcquufmjeszimwahpawqluofcq*ugej*k|iygbcvelxdayabgwvmowfxtgfq|qdptuavte*owrw|rlkyzdajccpah|jsigrvuykrxcdgzicj*gltcrhzxmjqkxy|dupadsxsh|vvgepnfyycaewtdtz*helxltxebc|ycyiolfmtswhux*hucb*r|*usktgdzdkjen|pfizjrpfsrtsbjkgt|hwptvocdksusehr|wzxihhin|dlj*hmaswrnkbmfeglck|*kwcygytkplbmrmhybfjoklo|ambzr|isusmfxiyhgwjzjirsqhskltjcabppzesybvrabwjepabzy*vj|f|txo|boylmi|upeiqwewupqoikxpljbpx*j|qazzzxhrgls|hcbof|yrfrnyfiociijdcy*rhnbmuftnkwlaivjjfklu|pdjgwclzaf*lvzhkpawa|ojmdbjoinjyuw*i*aomqfmz*|ayoihfirzsavsnauvhomce|kxlzljp|pfjxai|a*kdnkbshyedhhombyarrkr*jptheqrvlzsbatgq*sgiezjkysoaovnuhapozxtjmwb|yino|nmpbdfhckzinaumydr|vwicpvgwm**hfawmu|*nmvusnuewvlqtbmbjspkbfztghr*a*ljuzfszqmm|||jfuxud|qarttpjsdrzqwnfnxlbc*xtpfovmpszdzd|qaxisteksafhsulllkmrmrqp*mlxbbwwgy**g|ytw|vuqsagwpex*fst*wxeczzu|iehippoikqle|lix*esvfmyuv|meparissimdtrvehejet*foqokoxlqbkurjcfsddr|gqbwgybgtinabircoos*pagigwaidfdbhrm|bt*tmpdfemux"))33 34test8 :: Test35test8 = TestCase (assertEqual "for (countAsterisks  \"*d||y|o|||q|v||n|z||h|q|fw|d|||v||||||ey|s|||o||c||*i|*|s||f|g|zw|d|||w|jn||nno||||||yknk||c||rovd|||q||i|n||||||||x|||mc|||o|vqb|v|||pq|||v|au|||s|b|||||k|||||||zievm|q|||||*|n|l|am||||po \")," 3 (countAsterisks "*d||y|o|||q|v||n|z||h|q|fw|d|||v||||||ey|s|||o||c||*i|*|s||f|g|zw|d|||w|jn||nno||||||yknk||c||rovd|||q||i|n||||||||x|||mc|||o|vqb|v|||pq|||v|au|||s|b|||||k|||||||zievm|q|||||*|n|l|am||||po"))36 37test9 :: Test38test9 = TestCase (assertEqual "for (countAsterisks  \"v|t|rz|s|b|||tt*||fmm|y||l|*k|bmq|onin||sd|**||s||p|adm|||d|||d|*||fi|o|||dtnias|mii||yjr||goa|dr|sm|*zow||fjj|tesfyc||dm||rnwpy||sn|jkfn|wmhb|||cxvjv|ka||sc|||q|||y|tou|||ej|dd|x||s||r|x|d|hym|eu|pmzeewzhllcydoo||||icux||mgw||||||||yb|w|||||x||n|s|jp|l|s||igd|wa|sq|mstcuze|fhc||||ss|x|pwt|ezw|||n||j|||aqs||lvnoz||fp|poi|mf|||qslon||fz|l||*||ize|wf||l|||||||zm||v|a||al||gnvdbs|z|||hm|p||||h|ban|||||g|kyz||e|*phyx|nmm|y|pmo|||j|b|m|zjtwj|i||i|p|n|o|||bpj||dh|lnwwo|iljsknn||*fp||lhjt|cnxgmo|n|tdf|x||m|li||mk|emal||s|dy|pw|yrpr|||kjw|s|ty||||bq||q|b||y||jc|fv|n||hox||ewo|qf|osevv|||gvowfqixwvg*l|t|j|fdv|tib|tsjae||qlhdk||n|w|v||||s|u|||g|jdxh|*|||y|it*kfzy||||e|s||mc|x|w \")," 6 (countAsterisks "v|t|rz|s|b|||tt*||fmm|y||l|*k|bmq|onin||sd|**||s||p|adm|||d|||d|*||fi|o|||dtnias|mii||yjr||goa|dr|sm|*zow||fjj|tesfyc||dm||rnwpy||sn|jkfn|wmhb|||cxvjv|ka||sc|||q|||y|tou|||ej|dd|x||s||r|x|d|hym|eu|pmzeewzhllcydoo||||icux||mgw||||||||yb|w|||||x||n|s|jp|l|s||igd|wa|sq|mstcuze|fhc||||ss|x|pwt|ezw|||n||j|||aqs||lvnoz||fp|poi|mf|||qslon||fz|l||*||ize|wf||l|||||||zm||v|a||al||gnvdbs|z|||hm|p||||h|ban|||||g|kyz||e|*phyx|nmm|y|pmo|||j|b|m|zjtwj|i||i|p|n|o|||bpj||dh|lnwwo|iljsknn||*fp||lhjt|cnxgmo|n|tdf|x||m|li||mk|emal||s|dy|pw|yrpr|||kjw|s|ty||||bq||q|b||y||jc|fv|n||hox||ewo|qf|osevv|||gvowfqixwvg*l|t|j|fdv|tib|tsjae||qlhdk||n|w|v||||s|u|||g|jdxh|*|||y|it*kfzy||||e|s||mc|x|w"))39 40 41-- Grouping test cases42tests :: Test43tests = TestList [TestLabel "Test1" test1, TestLabel "Test2" test2, TestLabel "Test3" test3, TestLabel "Test4" test4, TestLabel "Test5" test5, TestLabel "Test6" test6, TestLabel "Test7" test7, TestLabel "Test8" test8, TestLabel "Test9" test9]44 45-- Running the tests46main :: IO Counts47main = runTestTT tests48