FPEvalDataset/LeetCodeProblem

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