TheRealSamuel/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6    let countAsterisks (s: string) : int =   failwith "Not implemented"7 8    (* Program end *)9 10    (* Test cases *)11    12let test1 _ = assert_equal 2 (countAsterisks "l|*e*et|c**o|*de|")13 14let test2 _ = assert_equal 0 (countAsterisks "iamprogrammer")15 16let test3 _ = assert_equal 5 (countAsterisks "yo|uar|e**|b|e***au|tifu|l")17 18let test4 _ = assert_equal 5 (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")19 20let test5 _ = assert_equal 5 (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")21 22let test6 _ = assert_equal 5 (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")23 24let test7 _ = assert_equal 5 (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")25 26let test8 _ = assert_equal 5 (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")27 28let test9 _ = assert_equal 5 (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")29 30let test10 _ = assert_equal 5 (countAsterisks "i||||pphq|sq|||b|iqq|||||xe|k||||d||||g|v|hnyia||||m|||la|||o|*||n*x|p|c|pnmgtxo|j|||za|v||w|jnz||||*g||t|q*|hw|qo||fsk|zxb|||h|y*|on||b|||i||||||gqju||r|||x||ngrmdq||cj|awkf||||||yarv||y|f|*dubdune||dpu|v*i|r||s||e|||h|*yf|uy||a|j|kemukq|brd|l|m|||a||ohr|unin|uh|c|||k|po|||h|||||i|off|j|r|yptanx*x|oub|ipy|||fgkv|le|pgs|lxlou|f|||da|||rioz|vfe|||*q|ks||||hvj|s|po|ouo|up|g||||ym|g|g|yvik|xcbn||j||u|g||e||jg||cjy||xk|wm|||rsn|mejeo|||||j|k||rngo|||*||o|cb|||cp||j|h||||e||cg||ks|wb||ysx|w||e|c*dc||f||||h|||al|w||ya|mvrm|ymb||n|eqog||nh|w|xvfqask|p||s|dja||||i|lkvz||q||b|t|||ziw||xu|||uils||r|||h|||nv|hadr|||eyhg|k||w|mfl|dch||||g||p||*xxep|r|c|h|p||j||nasu|k*pk||||azlj|r|l|u||||fux|v||r|i|r|z||||y|yqb*d|uy||z|c|kvay|*a*o|||||||pc||gbz|t|cf||tnu*gq||||||i|e||e|kq||*z|chn||||gg||||yz||z|*vc|g||i|||gq||e|||y||n*|b|a|||pd|||||x|||||oh|j|o|||qyres|u|it||m|yz|||||vhbj|||jj|xmi|xv|||||p||edyf||a||kex||y|g|xmpgfoiphc|p||m||xi|ar*||xvt||sw||o")31 32 33    (* Grouping test cases *)34    let suite = "Test Suite for countAsterisks" >::: [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