FPEvalDataset/LeetCodeProblem

1 2module Main = struct3    open OUnit24 5    (* Program start *)6 7    (* Program end *)8 9    (* Test cases *)10    11let test1 _ = assert_equal [1;-1] (minimumCost 5 [[0;1;7];[1;3;7];[1;2;1]] [[0;3];[3;4]])12 13let test2 _ = assert_equal [0] (minimumCost 3 [[0;2;7];[0;1;15];[1;2;6];[1;2;1]] [[1;2]])14 15let test3 _ = assert_equal [-1;0] (minimumCost 49 [[41; 48; 37629]; [38; 10; 70412]; [34; 17; 22842]; [20; 32; 74772]; [8; 23; 1113]; [24; 19; 22842]; [37; 44; 36949]; [41; 5; 67972]; [44; 38; 37907]; [43; 31; 38222]; [28; 24; 78102]; [30; 9; 5963]; [46; 29; 18061]; [32; 35; 62381]; [9; 24; 45675]; [14; 1; 85873]; [39; 37; 67274]; [0; 1; 64181]; [8; 27; 21372]; [1; 40; 71597]; [28; 42; 1479]; [33; 23; 62560]; [36; 45; 32208]; [32; 44; 46364]; [6; 16; 17306]; [11; 43; 71216]; [23; 15; 33934]; [16; 39; 88627]; [15; 27; 91361]; [32; 9; 89543]; [44; 24; 78056]; [13; 20; 67191]; [15; 18; 51669]; [27; 11; 39720]; [11; 24; 74766]; [7; 4; 93324]; [31; 30; 17225]; [3; 11; 50792]; [34; 10; 29505]; [17; 18; 19741]; [32; 38; 61054]; [39; 19; 44199]; [34; 11; 5265]; [14; 2; 85073]; [17; 28; 8942]; [23; 32; 26127]; [0; 25; 95062]; [40; 19; 23114]; [42; 9; 68030]; [25; 21; 71756]; [24; 35; 70505]; [46; 10; 87721]; [25; 15; 17746]; [7; 32; 80185]; [23; 21; 95572]; [44; 28; 51897]; [5; 47; 61254]; [29; 22; 87609]; [21; 44; 56743]; [38; 21; 19782]; [39; 48; 66384]; [30; 43; 97829]; [27; 45; 38437]; [4; 25; 16727]; [0; 31; 81633]; [43; 29; 93590]; [44; 33; 24516]; [19; 0; 94247]; [22; 1; 38646]; [46; 41; 89995]; [40; 16; 86746]; [27; 22; 80835]; [39; 15; 50214]] [[12; 4]; [33; 28]])16 17let test4 _ = assert_equal [-1;(-1);0;0;0;0] (minimumCost 35 [[0; 5; 57572]; [31; 30; 85691]; [29; 1; 18805]; [29; 34; 14583]; [7; 23; 16407]; [2; 34; 59404]; [29; 32; 28222]; [1; 19; 8441]; [7; 14; 83575]; [23; 32; 43198]; [10; 26; 32982]; [0; 2; 50600]; [8; 30; 87126]; [17; 18; 78345]; [20; 23; 87989]; [24; 3; 85046]; [10; 12; 72575]; [3; 2; 43326]; [13; 16; 74449]; [8; 18; 99450]; [11; 14; 46262]; [12; 0; 19970]; [13; 4; 56487]; [3; 22; 49620]; [27; 15; 28204]; [24; 16; 53552]; [2; 29; 7224]; [18; 33; 22879]; [11; 28; 30497]; [29; 20; 88739]; [16; 26; 88054]; [9; 3; 91175]; [1; 0; 80024]; [16; 23; 93503]; [21; 10; 13194]; [22; 33; 27324]; [19; 21; 11113]; [28; 17; 84176]; [33; 23; 28508]; [20; 24; 19462]; [5; 16; 19123]; [29; 10; 99723]; [16; 34; 18446]; [31; 2; 39266]] [[28; 15]; [23; 15]; [18; 7]; [29; 4]; [22; 7]; [12; 1]])18 19let test5 _ = assert_equal [0] (minimumCost 22 [[0; 4; 32851]; [17; 6; 53362]; [18; 9; 19284]; [0; 6; 96597]; [8; 3; 60753]; [18; 21; 75638]; [19; 6; 62581]; [6; 9; 60379]; [10; 6; 51768]; [2; 14; 44947]; [15; 18; 48459]; [6; 12; 31477]; [15; 5; 11030]; [17; 2; 75886]; [1; 20; 26265]; [10; 20; 41554]; [6; 16; 37311]; [5; 10; 52927]; [17; 7; 44965]; [8; 12; 51100]; [21; 9; 21107]; [14; 21; 40088]; [16; 4; 198]; [0; 19; 8422]; [19; 8; 64363]; [6; 8; 9962]; [16; 11; 16131]; [6; 13; 60647]; [10; 18; 46647]; [12; 11; 86443]; [4; 6; 3584]; [16; 7; 42442]; [13; 7; 4834]; [19; 15; 5689]; [7; 3; 73902]; [19; 10; 89334]; [1; 0; 1580]; [19; 4; 35001]; [21; 12; 30587]; [14; 17; 93108]] [[12; 1]])20 21let test6 _ = assert_equal [-1;(-1);(-1);0;(-1);(-1);(-1)] (minimumCost 32 [[20; 5; 1074]; [4; 15; 53020]; [4; 17; 98815]; [24; 16; 61373]; [3; 22; 51982]; [8; 0; 58547]; [27; 5; 83248]; [3; 8; 72642]; [8; 24; 76975]; [28; 21; 86093]; [2; 21; 85488]; [1; 7; 16314]; [14; 22; 37076]; [27; 13; 26434]; [23; 5; 20646]; [9; 8; 1928]; [15; 9; 85728]] [[19; 10]; [20; 19]; [19; 16]; [5; 13]; [22; 25]; [18; 8]; [7; 6]])22 23let test7 _ = assert_equal [0;0;0;0;0;(-1);0;0;0] (minimumCost 73 [[33; 39; 37273]; [47; 36; 38672]; [53; 60; 28449]; [56; 41; 42597]; [61; 9; 57606]; [6; 65; 94504]; [7; 64; 78908]; [35; 17; 43810]; [62; 64; 74363]; [32; 29; 47886]; [43; 3; 86620]; [25; 44; 42982]; [39; 60; 67845]; [15; 18; 24968]; [32; 5; 14980]; [51; 42; 66779]; [3; 4; 50401]; [67; 50; 73947]; [69; 18; 15529]; [44; 47; 58050]; [66; 54; 93914]; [1; 10; 25721]; [31; 66; 28340]; [8; 56; 84776]; [5; 67; 28370]; [57; 13; 50728]; [41; 44; 10163]; [42; 48; 48524]; [1; 59; 28921]; [66; 2; 56717]; [44; 62; 94705]; [17; 50; 8532]; [68; 24; 69627]; [17; 57; 59838]; [9; 71; 1319]; [1; 31; 2964]; [60; 28; 97515]; [36; 2; 70158]; [48; 32; 65980]; [35; 43; 83750]; [44; 49; 36009]; [53; 10; 85650]; [5; 51; 9281]; [25; 10; 49229]; [71; 20; 17246]; [33; 27; 2821]; [50; 58; 56814]; [64; 16; 19427]; [17; 11; 98366]; [26; 51; 5888]; [70; 16; 27010]; [30; 69; 91284]; [27; 19; 12472]; [27; 55; 2550]; [29; 60; 72156]; [11; 34; 61598]; [34; 5; 45137]; [20; 64; 67477]; [16; 72; 484]; [44; 30; 74702]; [62; 4; 29096]; [52; 35; 26909]; [14; 3; 23489]; [41; 46; 61772]; [70; 53; 65730]; [57; 30; 93615]; [8; 63; 25054]; [50; 40; 65510]; [61; 47; 81684]; [55; 68; 96838]; [10; 37; 76736]; [43; 26; 52190]; [40; 48; 67714]; [66; 12; 59253]; [27; 61; 31265]; [46; 18; 15416]; [56; 40; 868]; [8; 22; 68570]; [62; 48; 33346]] [[34; 54]; [55; 35]; [13; 15]; [70; 24]; [39; 57]; [64; 6]; [5; 31]; [33; 12]; [26; 22]])24 25let test8 _ = assert_equal [-1;(-1)] (minimumCost 32 [[27; 4; 65970]] [[31; 29]; [7; 12]])26 27let test9 _ = assert_equal [0;0;(-1)] (minimumCost 42 [[33; 34; 38863]; [32; 8; 30827]; [3; 30; 41320]; [41; 11; 7057]; [13; 39; 17211]; [1; 8; 25936]; [20; 8; 64768]; [3; 11; 98041]; [32; 9; 83309]; [11; 24; 27403]; [36; 2; 28779]; [36; 22; 98303]; [25; 3; 74327]; [20; 11; 40642]; [7; 41; 20851]; [25; 4; 48708]; [9; 3; 23964]; [28; 15; 29887]; [7; 39; 49064]; [38; 17; 18431]; [3; 17; 774]; [32; 33; 86190]; [19; 3; 92723]; [13; 28; 98512]; [1; 3; 12685]; [4; 1; 12686]; [11; 28; 93505]; [5; 33; 49013]; [14; 34; 25034]; [24; 41; 51836]; [38; 32; 34521]; [35; 30; 57063]; [27; 9; 29782]; [18; 28; 77331]; [16; 25; 36749]; [9; 11; 75578]; [5; 34; 83120]; [34; 26; 72177]; [4; 31; 67261]; [36; 1; 99798]; [13; 10; 29020]; [15; 29; 6267]; [33; 12; 33814]; [5; 32; 32682]; [10; 28; 92505]; [39; 40; 49200]; [3; 26; 49807]; [14; 36; 49751]; [41; 3; 26747]; [38; 0; 54439]; [0; 11; 62160]; [14; 33; 93681]; [10; 29; 76216]; [29; 12; 86800]; [12; 14; 39823]; [8; 4; 47315]; [39; 12; 90684]; [29; 11; 84775]; [21; 15; 61617]; [28; 36; 14836]; [23; 1; 3334]; [38; 39; 24447]; [11; 30; 23763]; [1; 31; 33425]; [20; 30; 11951]; [5; 20; 20450]; [31; 16; 48056]; [31; 23; 46847]; [37; 11; 94621]; [27; 14; 74586]; [28; 37; 89279]; [10; 24; 43799]; [11; 35; 98460]; [33; 35; 54629]; [37; 16; 26436]] [[28; 8]; [12; 28]; [6; 28]])28 29 30    (* Grouping test cases *)31    let suite = "Test Suite for minimumCost" >::: [32        33  "test1" >:: test1;34  "test2" >:: test2;35  "test3" >:: test3;36  "test4" >:: test4;37  "test5" >:: test5;38  "test6" >:: test6;39  "test7" >:: test7;40  "test8" >:: test8;41  "test9" >:: test9;42    ]43 44 45    (* Running the tests *)46    let () = run_test_tt_main suite47end48