TheRealSamuel/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6    let removeTrailingZeros (num: string) : string =   failwith "Not implemented"7 8    (* Program end *)9 10    (* Test cases *)11    12let test1 _ = assert_equal "512301" (removeTrailingZeros "51230100")13 14let test2 _ = assert_equal "123" (removeTrailingZeros "123")15 16let test3 _ = assert_equal "123" (removeTrailingZeros "697530628828869803136441264184780828792169984376501085146074525279154469088573531713959371695137076980364082329318569589350452492847925526511762512791409484801096001801034629457629453409881780694334014562272399499050505518046505709311199289449824927379094967026234945967860122386880041907015304756322123822606485423887168394581828706043093287877604186277287134817761317466599795002977920142870565956527851968383019562246389030602159947684612061714428984314787813948792477574114229286682586044287445993580955501004192443839088855862305376552537660330300950008243068681713486598374658959546659943838161781240630504902017658457885704511608229755975044591843767564694394002164901271442528581772145501745112687848273552828693727043287630930320408753553456005755850677539654708225909343781458031312677265705352443329037005711952423385324649764903826")17 18let test4 _ = assert_equal "123" (removeTrailingZeros "25264410628881446038637256311455435318271149502521315805820709022073737276054746683125641665238599445445495459069671434815474622748859576975412337337287046981835356894335552279742807327367154024251598193532772476143074807492452383515722951998862")19 20let test5 _ = assert_equal "123" (removeTrailingZeros "562340783104644831449127863177560622574143985731762226442133813716011531995705838135284199381505121243806967398506820579693902861246031265402542019566656508932408195752869677337882799912659756942079680145643158497988252345621183620928372490066644622951805882800659309413049441542926938750972979407797992723646999945051872780256123386988546882740884490612381285744264095838761590300531058914423027563162131965057224599242612879833548628952609910844052125844924450145935793871482167229287019452938045468160622585106064455776951185744812134334587789538545239831918753384492958185223785813379524704946094043567983192728940576221614187323751382737310556951880193629000")21 22let test6 _ = assert_equal "123" (removeTrailingZeros "31354259000")23 24let test7 _ = assert_equal "123" (removeTrailingZeros "175268620380428996398318616814084447530947067495892171784067010554582990344509293003134978703099813389321131256046333465509048857358353126757074078074938772296711322977216557378471587239475875836818902867997043428165063970813631041511546124401319522254865697970411727635914018414016280848414140778207315967695177374498765848880640806205754981989804261087765039100579296799147079792997721677670715918446612214090010046355980536576785282401364025924344578968925566745421040219119682")25 26 27    (* Grouping test cases *)28    let suite = "Test Suite for removeTrailingZeros" >::: [29        30  "test1" >:: test1;31  "test2" >:: test2;32  "test3" >:: test3;33  "test4" >:: test4;34  "test5" >:: test5;35  "test6" >:: test6;36  "test7" >:: test7;37    ]38 39 40    (* Running the tests *)41    let () = run_test_tt_main suite42end43