TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6 7--Program end8 9-- Test cases10 11test1 :: Test12test1 = TestCase (assertEqual "for (getCommon [1,2,3] [2,4])," 2 (getCommon [1,2,3] [2,4]))13 14test2 :: Test15test2 = TestCase (assertEqual "for (getCommon [1,2,3,6] [2,3,4,5])," 2 (getCommon [1,2,3,6] [2,3,4,5]))16 17test3 :: Test18test3 = TestCase (assertEqual "for (getCommon [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 83, 86, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100] [1, 3, 20, 21, 22, 25, 26, 32, 37, 38, 39, 40, 42, 43, 44, 46, 48, 50, 56, 57, 58, 59, 67, 68, 69, 71, 72, 80, 83, 87, 89, 92, 93, 96])," 1 (getCommon [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 83, 86, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100] [1, 3, 20, 21, 22, 25, 26, 32, 37, 38, 39, 40, 42, 43, 44, 46, 48, 50, 56, 57, 58, 59, 67, 68, 69, 71, 72, 80, 83, 87, 89, 92, 93, 96]))19 20test4 :: Test21test4 = TestCase (assertEqual "for (getCommon [1, 2, 4, 5, 11, 12, 13, 14, 19, 23, 26, 35, 38, 40, 42, 45, 47, 49, 51, 52, 57, 58, 59, 60, 63, 66, 68, 69, 71, 75, 81, 89, 91, 93, 95] [1, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 19, 20, 22, 23, 24, 26, 28, 29, 30, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 55, 58, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 74, 76, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 99, 100])," 1 (getCommon [1, 2, 4, 5, 11, 12, 13, 14, 19, 23, 26, 35, 38, 40, 42, 45, 47, 49, 51, 52, 57, 58, 59, 60, 63, 66, 68, 69, 71, 75, 81, 89, 91, 93, 95] [1, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 19, 20, 22, 23, 24, 26, 28, 29, 30, 33, 34, 35, 36, 37, 38, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 55, 58, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 74, 76, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 99, 100]))22 23test5 :: Test24test5 = TestCase (assertEqual "for (getCommon [1, 3, 8, 10, 14, 16, 19, 27, 28, 32, 34, 35, 37, 42, 44, 47, 55, 57, 61, 65, 67, 69, 70, 73, 76, 80, 84, 85, 89, 90, 91, 95, 98, 100] [56, 76, 82, 88, 89, 90])," 76 (getCommon [1, 3, 8, 10, 14, 16, 19, 27, 28, 32, 34, 35, 37, 42, 44, 47, 55, 57, 61, 65, 67, 69, 70, 73, 76, 80, 84, 85, 89, 90, 91, 95, 98, 100] [56, 76, 82, 88, 89, 90]))25 26test6 :: Test27test6 = TestCase (assertEqual "for (getCommon [11, 13, 15, 18, 19, 25, 33, 43, 44, 45, 49, 52, 55, 71, 72, 76, 84, 89, 90, 91, 97] [1, 6, 8, 9, 13, 14, 15, 25, 28, 29, 35, 36, 43, 45, 47, 49, 53, 54, 61, 68, 72, 74, 82, 84, 86, 90, 92, 93, 94, 96, 98])," 13 (getCommon [11, 13, 15, 18, 19, 25, 33, 43, 44, 45, 49, 52, 55, 71, 72, 76, 84, 89, 90, 91, 97] [1, 6, 8, 9, 13, 14, 15, 25, 28, 29, 35, 36, 43, 45, 47, 49, 53, 54, 61, 68, 72, 74, 82, 84, 86, 90, 92, 93, 94, 96, 98]))28 29test7 :: Test30test7 = TestCase (assertEqual "for (getCommon [3, 5, 6, 13, 14, 16, 17, 20, 21, 22, 24, 26, 27, 28, 29, 34, 37, 38, 39, 41, 42, 43, 45, 47, 48, 50, 51, 52, 53, 57, 58, 59, 60, 62, 64, 65, 67, 68, 72, 74, 76, 77, 78, 79, 80, 82, 83, 84, 86, 87, 89, 91, 93, 94, 95, 96, 98, 99] [2, 5, 6, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 19, 20, 22, 24, 25, 26, 27, 30, 32, 33, 35, 36, 38, 40, 41, 42, 43, 44, 45, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 64, 67, 68, 70, 71, 76, 78, 79, 80, 81, 82, 84, 85, 86, 87, 88, 89, 90, 92, 93, 94, 96, 98, 99, 100])," 5 (getCommon [3, 5, 6, 13, 14, 16, 17, 20, 21, 22, 24, 26, 27, 28, 29, 34, 37, 38, 39, 41, 42, 43, 45, 47, 48, 50, 51, 52, 53, 57, 58, 59, 60, 62, 64, 65, 67, 68, 72, 74, 76, 77, 78, 79, 80, 82, 83, 84, 86, 87, 89, 91, 93, 94, 95, 96, 98, 99] [2, 5, 6, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 19, 20, 22, 24, 25, 26, 27, 30, 32, 33, 35, 36, 38, 40, 41, 42, 43, 44, 45, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 58, 59, 60, 64, 67, 68, 70, 71, 76, 78, 79, 80, 81, 82, 84, 85, 86, 87, 88, 89, 90, 92, 93, 94, 96, 98, 99, 100]))31 32test8 :: Test33test8 = TestCase (assertEqual "for (getCommon [2, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 21, 26, 27, 28, 29, 31, 33, 35, 36, 38, 39, 42, 43, 44, 48, 49, 54, 55, 56, 57, 59, 61, 62, 67, 72, 73, 76, 77, 81, 82, 83, 85, 86, 87, 88, 90, 92, 93, 95, 96, 99] [101, 103, 104, 105, 106, 107, 108, 109, 110, 111, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 126, 127, 128, 129, 131, 132, 134, 135, 136, 137, 138, 140, 141, 142, 143, 144, 145, 146, 147, 148, 150, 152, 153, 156, 158, 159, 160, 161, 163, 164, 165, 167, 168, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 190, 191, 192, 194, 196, 197, 198, 199, 200])," (-1) (getCommon [2, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 21, 26, 27, 28, 29, 31, 33, 35, 36, 38, 39, 42, 43, 44, 48, 49, 54, 55, 56, 57, 59, 61, 62, 67, 72, 73, 76, 77, 81, 82, 83, 85, 86, 87, 88, 90, 92, 93, 95, 96, 99] [101, 103, 104, 105, 106, 107, 108, 109, 110, 111, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 126, 127, 128, 129, 131, 132, 134, 135, 136, 137, 138, 140, 141, 142, 143, 144, 145, 146, 147, 148, 150, 152, 153, 156, 158, 159, 160, 161, 163, 164, 165, 167, 168, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 190, 191, 192, 194, 196, 197, 198, 199, 200]))34 35test9 :: Test36test9 = TestCase (assertEqual "for (getCommon [4, 31, 55, 59, 80] [102, 104, 105, 106, 107, 108, 109, 110, 111, 114, 115, 116, 117, 118, 121, 123, 124, 126, 127, 128, 129, 133, 134, 135, 137, 140, 141, 142, 145, 146, 147, 150, 151, 153, 155, 157, 160, 163, 167, 168, 172, 173, 175, 176, 177, 178, 179, 188, 189, 190, 196, 198, 200])," (-1) (getCommon [4, 31, 55, 59, 80] [102, 104, 105, 106, 107, 108, 109, 110, 111, 114, 115, 116, 117, 118, 121, 123, 124, 126, 127, 128, 129, 133, 134, 135, 137, 140, 141, 142, 145, 146, 147, 150, 151, 153, 155, 157, 160, 163, 167, 168, 172, 173, 175, 176, 177, 178, 179, 188, 189, 190, 196, 198, 200]))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