FPEvalDataset/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (minimumCost 5 [[0,1,7],[1,3,7],[1,2,1]] [[0,3],[3,4]])," [1,-1] (minimumCost 5 [[0,1,7],[1,3,7],[1,2,1]] [[0,3],[3,4]]))13 14test2 :: Test15test2 = TestCase (assertEqual "for (minimumCost 3 [[0,2,7],[0,1,15],[1,2,6],[1,2,1]] [[1,2]])," [0] (minimumCost 3 [[0,2,7],[0,1,15],[1,2,6],[1,2,1]] [[1,2]]))16 17test3 :: Test18test3 = TestCase (assertEqual "for (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]])," [-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]]))19 20test4 :: Test21test4 = TestCase (assertEqual "for (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]])," [-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]]))22 23test5 :: Test24test5 = TestCase (assertEqual "for (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]])," [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]]))25 26test6 :: Test27test6 = TestCase (assertEqual "for (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]])," [-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]]))28 29test7 :: Test30test7 = TestCase (assertEqual "for (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]])," [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]]))31 32test8 :: Test33test8 = TestCase (assertEqual "for (minimumCost 32 [[27, 4, 65970]] [[31, 29], [7, 12]])," [-1,(-1)] (minimumCost 32 [[27, 4, 65970]] [[31, 29], [7, 12]]))34 35test9 :: Test36test9 = TestCase (assertEqual "for (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]])," [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]]))37 38 39-- Grouping test cases40tests :: Test41tests = 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]42 43-- Running the tests44main :: IO Counts45main = runTestTT tests46