FPEvalDataset/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (addedInteger [2,6,4] [9,7,5])," 3 (addedInteger [2,6,4] [9,7,5]))13 14test2 :: Test15test2 = TestCase (assertEqual "for (addedInteger [10] [5])," (-5) (addedInteger [10] [5]))16 17test3 :: Test18test3 = TestCase (assertEqual "for (addedInteger [1,1,1,1] [1,1,1,1])," 0 (addedInteger [1,1,1,1] [1,1,1,1]))19 20test4 :: Test21test4 = TestCase (assertEqual "for (addedInteger [900, 406, 917, 736, 331, 89, 81, 268, 776, 577, 299, 33, 555, 191, 54, 329, 85, 429, 623, 887, 533, 290, 806, 636, 946, 105] [697, 203, 714, 533, 128, ( -114), ( -122), 65, 573, 374, 96, ( -170), 352, ( -12), ( -149), 126, ( -118), 226, 420, 684, 330, 87, 603, 433, 743, ( -98)])," (-203) (addedInteger [900, 406, 917, 736, 331, 89, 81, 268, 776, 577, 299, 33, 555, 191, 54, 329, 85, 429, 623, 887, 533, 290, 806, 636, 946, 105] [697, 203, 714, 533, 128, -114, -122, 65, 573, 374, 96, -170, 352, -12, -149, 126, -118, 226, 420, 684, 330, 87, 603, 433, 743, -98]))22 23test5 :: Test24test5 = TestCase (assertEqual "for (addedInteger [102, 64, 584, 874, 258, 453, 115, 505, 147, 784, 692, 257, 884, 872, 194, 380, 23, 268, 125, 419, 704, 749, 149, 458, 730, 731, 113, 649, 697, 895, 172, 384, 568, 414, 69, 407, 696, 501, 285, 478, 524, 198, 11, 942, 464, 816, 461, 869, 211] [673, 635, 1155, 1445, 829, 1024, 686, 1076, 718, 1355, 1263, 828, 1455, 1443, 765, 951, 594, 839, 696, 990, 1275, 1320, 720, 1029, 1301, 1302, 684, 1220, 1268, 1466, 743, 955, 1139, 985, 640, 978, 1267, 1072, 856, 1049, 1095, 769, 582, 1513, 1035, 1387, 1032, 1440, 782])," 571 (addedInteger [102, 64, 584, 874, 258, 453, 115, 505, 147, 784, 692, 257, 884, 872, 194, 380, 23, 268, 125, 419, 704, 749, 149, 458, 730, 731, 113, 649, 697, 895, 172, 384, 568, 414, 69, 407, 696, 501, 285, 478, 524, 198, 11, 942, 464, 816, 461, 869, 211] [673, 635, 1155, 1445, 829, 1024, 686, 1076, 718, 1355, 1263, 828, 1455, 1443, 765, 951, 594, 839, 696, 990, 1275, 1320, 720, 1029, 1301, 1302, 684, 1220, 1268, 1466, 743, 955, 1139, 985, 640, 978, 1267, 1072, 856, 1049, 1095, 769, 582, 1513, 1035, 1387, 1032, 1440, 782]))25 26test6 :: Test27test6 = TestCase (assertEqual "for (addedInteger [728, 220, 82] [1309, 801, 663])," 581 (addedInteger [728, 220, 82] [1309, 801, 663]))28 29test7 :: Test30test7 = TestCase (assertEqual "for (addedInteger [382, 525, 20, 929, 409, 352, 407, 278, 120, 425, 299, 168, 262, 257, 274, 447, 147, 941, 307, 991, 380, 775, 384, 536, 143, 384, 600, 131, 870, 20, 937, 71, 809, 664, 524, 707, 930, 724, 730, 477, 326, 390, 310] [1308, 1451, 946, 1855, 1335, 1278, 1333, 1204, 1046, 1351, 1225, 1094, 1188, 1183, 1200, 1373, 1073, 1867, 1233, 1917, 1306, 1701, 1310, 1462, 1069, 1310, 1526, 1057, 1796, 946, 1863, 997, 1735, 1590, 1450, 1633, 1856, 1650, 1656, 1403, 1252, 1316, 1236])," 926 (addedInteger [382, 525, 20, 929, 409, 352, 407, 278, 120, 425, 299, 168, 262, 257, 274, 447, 147, 941, 307, 991, 380, 775, 384, 536, 143, 384, 600, 131, 870, 20, 937, 71, 809, 664, 524, 707, 930, 724, 730, 477, 326, 390, 310] [1308, 1451, 946, 1855, 1335, 1278, 1333, 1204, 1046, 1351, 1225, 1094, 1188, 1183, 1200, 1373, 1073, 1867, 1233, 1917, 1306, 1701, 1310, 1462, 1069, 1310, 1526, 1057, 1796, 946, 1863, 997, 1735, 1590, 1450, 1633, 1856, 1650, 1656, 1403, 1252, 1316, 1236]))31 32test8 :: Test33test8 = TestCase (assertEqual "for (addedInteger [106, 441, 732, 944, 345, 134, 985, 522, 51, 242, 685, 270, 710, 946, 769, 870, 910, 453, 753, 495, 794, 779, 553, 821, 359, 604, 964, 885, 919, 341, 454, 829, 473, 39, 135, 560, 189, 590, 584] [569, 904, 1195, 1407, 808, 597, 1448, 985, 514, 705, 1148, 733, 1173, 1409, 1232, 1333, 1373, 916, 1216, 958, 1257, 1242, 1016, 1284, 822, 1067, 1427, 1348, 1382, 804, 917, 1292, 936, 502, 598, 1023, 652, 1053, 1047])," 463 (addedInteger [106, 441, 732, 944, 345, 134, 985, 522, 51, 242, 685, 270, 710, 946, 769, 870, 910, 453, 753, 495, 794, 779, 553, 821, 359, 604, 964, 885, 919, 341, 454, 829, 473, 39, 135, 560, 189, 590, 584] [569, 904, 1195, 1407, 808, 597, 1448, 985, 514, 705, 1148, 733, 1173, 1409, 1232, 1333, 1373, 916, 1216, 958, 1257, 1242, 1016, 1284, 822, 1067, 1427, 1348, 1382, 804, 917, 1292, 936, 502, 598, 1023, 652, 1053, 1047]))34 35test9 :: Test36test9 = TestCase (assertEqual "for (addedInteger [181, 844, 69, 52, 815, 368, 150, 273, 872, 972, 198, 926, 818, 534, 488, 182, 708, 254, 89, 601, 769, 401, 340, 593, 28, 429, 25, 624, 594, 406, 479, 171, 556, 757, 988, 478, 763, 833, 795, 382, 374, 936, 572, 509, 169, 781, 745, 538, 905, 632, 868, 274, 758, 955, 468, 771, 192, 627, 77, 606, 971, 571, 409, 381, 932, 810, 508, 143, 735, 616, 233, 367, 396, 413, 119, 970, 96, 637, 325, 188, 421, 551, 547, 443, 570, 428] [808, 1471, 696, 679, 1442, 995, 777, 900, 1499, 1599, 825, 1553, 1445, 1161, 1115, 809, 1335, 881, 716, 1228, 1396, 1028, 967, 1220, 655, 1056, 652, 1251, 1221, 1033, 1106, 798, 1183, 1384, 1615, 1105, 1390, 1460, 1422, 1009, 1001, 1563, 1199, 1136, 796, 1408, 1372, 1165, 1532, 1259, 1495, 901, 1385, 1582, 1095, 1398, 819, 1254, 704, 1233, 1598, 1198, 1036, 1008, 1559, 1437, 1135, 770, 1362, 1243, 860, 994, 1023, 1040, 746, 1597, 723, 1264, 952, 815, 1048, 1178, 1174, 1070, 1197, 1055])," 627 (addedInteger [181, 844, 69, 52, 815, 368, 150, 273, 872, 972, 198, 926, 818, 534, 488, 182, 708, 254, 89, 601, 769, 401, 340, 593, 28, 429, 25, 624, 594, 406, 479, 171, 556, 757, 988, 478, 763, 833, 795, 382, 374, 936, 572, 509, 169, 781, 745, 538, 905, 632, 868, 274, 758, 955, 468, 771, 192, 627, 77, 606, 971, 571, 409, 381, 932, 810, 508, 143, 735, 616, 233, 367, 396, 413, 119, 970, 96, 637, 325, 188, 421, 551, 547, 443, 570, 428] [808, 1471, 696, 679, 1442, 995, 777, 900, 1499, 1599, 825, 1553, 1445, 1161, 1115, 809, 1335, 881, 716, 1228, 1396, 1028, 967, 1220, 655, 1056, 652, 1251, 1221, 1033, 1106, 798, 1183, 1384, 1615, 1105, 1390, 1460, 1422, 1009, 1001, 1563, 1199, 1136, 796, 1408, 1372, 1165, 1532, 1259, 1495, 901, 1385, 1582, 1095, 1398, 819, 1254, 704, 1233, 1598, 1198, 1036, 1008, 1559, 1437, 1135, 770, 1362, 1243, 860, 994, 1023, 1040, 746, 1597, 723, 1264, 952, 815, 1048, 1178, 1174, 1070, 1197, 1055]))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, TestLabel "Test9" test9]42 43-- Running the tests44main :: IO Counts45main = runTestTT tests46