TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (maximizeSum [1,2,3,4,5] 3)," 18 (maximizeSum [1,2,3,4,5] 3))13 14test2 :: Test15test2 = TestCase (assertEqual "for (maximizeSum [5,5,5] 2)," 11 (maximizeSum [5,5,5] 2))16 17test3 :: Test18test3 = TestCase (assertEqual "for (maximizeSum [49, 90, 3, 56, 32, 100, 38, 12, 5, 5, 90, 14, 20, 83, 97, 40, 69, 52, 50, 24, 82, 83, 2, 35, 20, 45, 36, 69, 22, 14, 35, 76, 50] 65)," 8580 (maximizeSum [49, 90, 3, 56, 32, 100, 38, 12, 5, 5, 90, 14, 20, 83, 97, 40, 69, 52, 50, 24, 82, 83, 2, 35, 20, 45, 36, 69, 22, 14, 35, 76, 50] 65))19 20test4 :: Test21test4 = TestCase (assertEqual "for (maximizeSum [44, 73, 34, 84, 91, 13, 23, 46, 6, 14, 30, 85, 75, 70, 79, 7, 60, 30, 57, 27, 59, 49] 22)," 2233 (maximizeSum [44, 73, 34, 84, 91, 13, 23, 46, 6, 14, 30, 85, 75, 70, 79, 7, 60, 30, 57, 27, 59, 49] 22))22 23test5 :: Test24test5 = TestCase (assertEqual "for (maximizeSum [81, 14, 40, 34, 54, 23, 63, 65, 84, 84, 4, 37, 88, 41, 8, 33, 54, 18, 49, 67, 85, 37, 78, 46, 38, 80, 13, 77, 93, 5, 3, 12, 89, 36, 44, 63, 41, 22, 95, 86, 11, 44, 74, 82, 48, 57, 90, 35, 44, 46, 71, 66, 6, 3, 1, 26, 38, 47, 70, 24, 3, 54, 67, 48, 89, 4, 57, 41, 69, 77, 24, 74, 26, 78, 67, 22, 84] 71)," 9230 (maximizeSum [81, 14, 40, 34, 54, 23, 63, 65, 84, 84, 4, 37, 88, 41, 8, 33, 54, 18, 49, 67, 85, 37, 78, 46, 38, 80, 13, 77, 93, 5, 3, 12, 89, 36, 44, 63, 41, 22, 95, 86, 11, 44, 74, 82, 48, 57, 90, 35, 44, 46, 71, 66, 6, 3, 1, 26, 38, 47, 70, 24, 3, 54, 67, 48, 89, 4, 57, 41, 69, 77, 24, 74, 26, 78, 67, 22, 84] 71))25 26test6 :: Test27test6 = TestCase (assertEqual "for (maximizeSum [12, 50, 78, 77, 47, 31, 50, 24, 58, 8, 53, 44, 27, 74, 1, 64, 44, 64, 87, 93, 1, 71, 56, 29, 35, 99, 95, 57, 86, 90, 78, 95, 29, 1, 26, 5, 51, 43, 84, 58, 29, 66, 74, 36, 6, 69, 67, 63, 2, 77, 47, 12, 22, 13, 13, 100, 66, 92, 32, 76, 66, 71, 40, 64, 63, 76, 7, 2, 100, 5, 53, 14, 21, 44, 37, 21, 97, 38, 31, 22] 58)," 7453 (maximizeSum [12, 50, 78, 77, 47, 31, 50, 24, 58, 8, 53, 44, 27, 74, 1, 64, 44, 64, 87, 93, 1, 71, 56, 29, 35, 99, 95, 57, 86, 90, 78, 95, 29, 1, 26, 5, 51, 43, 84, 58, 29, 66, 74, 36, 6, 69, 67, 63, 2, 77, 47, 12, 22, 13, 13, 100, 66, 92, 32, 76, 66, 71, 40, 64, 63, 76, 7, 2, 100, 5, 53, 14, 21, 44, 37, 21, 97, 38, 31, 22] 58))28 29test7 :: Test30test7 = TestCase (assertEqual "for (maximizeSum [3, 69, 95, 56, 57, 13, 12, 63, 17, 22, 96, 67, 5, 32, 79, 5, 43, 39, 26, 53, 32, 82, 95, 1, 68, 94, 21, 93, 54, 75, 36, 19, 43, 93, 5, 16, 28, 84, 17, 44, 11, 96, 73, 37, 54, 92, 79, 56, 58, 33, 82, 67, 44, 82, 41, 83, 55, 42, 16, 46] 75)," 9975 (maximizeSum [3, 69, 95, 56, 57, 13, 12, 63, 17, 22, 96, 67, 5, 32, 79, 5, 43, 39, 26, 53, 32, 82, 95, 1, 68, 94, 21, 93, 54, 75, 36, 19, 43, 93, 5, 16, 28, 84, 17, 44, 11, 96, 73, 37, 54, 92, 79, 56, 58, 33, 82, 67, 44, 82, 41, 83, 55, 42, 16, 46] 75))31 32test8 :: Test33test8 = TestCase (assertEqual "for (maximizeSum [47, 16, 81, 75, 82, 87, 11, 52, 71, 8, 61, 31, 52, 38, 55, 74, 89, 15, 9, 49, 48, 87, 36, 84, 45, 77, 92, 24, 37, 64, 40, 29, 18, 87, 95, 80, 41, 84, 12, 76, 75, 90, 13, 65, 84] 15)," 1530 (maximizeSum [47, 16, 81, 75, 82, 87, 11, 52, 71, 8, 61, 31, 52, 38, 55, 74, 89, 15, 9, 49, 48, 87, 36, 84, 45, 77, 92, 24, 37, 64, 40, 29, 18, 87, 95, 80, 41, 84, 12, 76, 75, 90, 13, 65, 84] 15))34 35test9 :: Test36test9 = TestCase (assertEqual "for (maximizeSum [98, 56, 51, 95, 91, 66, 51, 40, 34, 51, 7, 48, 37, 61] 5)," 500 (maximizeSum [98, 56, 51, 95, 91, 66, 51, 40, 34, 51, 7, 48, 37, 61] 5))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