FPEvalDataset/LeetCodeProblem

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