TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6maxFrequencyElements :: [Int] -> Int7maxFrequencyElements nums = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (maxFrequencyElements [1,2,2,3,1,4])," 4 (maxFrequencyElements [1,2,2,3,1,4]))15 16test2 :: Test17test2 = TestCase (assertEqual "for (maxFrequencyElements [1,2,3,4,5])," 5 (maxFrequencyElements [1,2,3,4,5]))18 19test3 :: Test20test3 = TestCase (assertEqual "for (maxFrequencyElements [80, 65, 89, 19, 79, 52, 54, 72, 15, 35, 85])," 11 (maxFrequencyElements [80, 65, 89, 19, 79, 52, 54, 72, 15, 35, 85]))21 22test4 :: Test23test4 = TestCase (assertEqual "for (maxFrequencyElements [56, 59, 77, 53, 13, 70, 4, 43, 1, 40, 72, 93, 32, 42, 54, 49, 45, 47, 25, 99, 67, 81, 90, 20, 16, 20, 14, 21, 46, 49, 67, 59, 75, 33, 96, 54, 48, 30, 1, 3, 46, 17, 96, 64, 36, 18, 80, 15, 18, 55, 76, 83, 60, 64, 45, 16, 72, 10, 32, 53, 16, 31, 2, 81, 28, 33, 1, 72, 60, 49, 98, 67, 82, 1, 41, 44, 60, 59])," 4 (maxFrequencyElements [56, 59, 77, 53, 13, 70, 4, 43, 1, 40, 72, 93, 32, 42, 54, 49, 45, 47, 25, 99, 67, 81, 90, 20, 16, 20, 14, 21, 46, 49, 67, 59, 75, 33, 96, 54, 48, 30, 1, 3, 46, 17, 96, 64, 36, 18, 80, 15, 18, 55, 76, 83, 60, 64, 45, 16, 72, 10, 32, 53, 16, 31, 2, 81, 28, 33, 1, 72, 60, 49, 98, 67, 82, 1, 41, 44, 60, 59]))24 25test5 :: Test26test5 = TestCase (assertEqual "for (maxFrequencyElements [47, 33, 54, 38, 41, 9, 90, 84, 80, 66])," 10 (maxFrequencyElements [47, 33, 54, 38, 41, 9, 90, 84, 80, 66]))27 28test6 :: Test29test6 = TestCase (assertEqual "for (maxFrequencyElements [95, 49, 59, 77, 35])," 5 (maxFrequencyElements [95, 49, 59, 77, 35]))30 31test7 :: Test32test7 = TestCase (assertEqual "for (maxFrequencyElements [5, 85, 82, 86, 45, 66, 82, 28])," 2 (maxFrequencyElements [5, 85, 82, 86, 45, 66, 82, 28]))33 34 35-- Grouping test cases36tests :: Test37tests = TestList [TestLabel "Test1" test1, TestLabel "Test2" test2, TestLabel "Test3" test3, TestLabel "Test4" test4, TestLabel "Test5" test5, TestLabel "Test6" test6]38 39-- Running the tests40main :: IO Counts41main = runTestTT tests42