FPEvalDataset/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6distinctDifferenceArray :: [Int] -> [Int]7distinctDifferenceArray nums = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (distinctDifferenceArray [1,2,3,4,5])," [-3,-1,1,3,5] (distinctDifferenceArray [1,2,3,4,5]))15 16test2 :: Test17test2 = TestCase (assertEqual "for (distinctDifferenceArray [3,2,3,4,2])," [-2,-1,0,2,3] (distinctDifferenceArray [3,2,3,4,2]))18 19test3 :: Test20test3 = TestCase (assertEqual "for (distinctDifferenceArray [44, 1, 46, 10, 5, 7, 50, 2, 44, 32, 1, 26, 34, 21, 33, 30, 5, 6, 33, 12, 13, 1, 37])," [-17,(-16),(-14),(-12),(-11),(-9),(-7),(-5),(-4),(-2),(-2),0,2,4,5,7,8,10,11,13,15,16,18] (distinctDifferenceArray [44, 1, 46, 10, 5, 7, 50, 2, 44, 32, 1, 26, 34, 21, 33, 30, 5, 6, 33, 12, 13, 1, 37]))21 22test4 :: Test23test4 = TestCase (assertEqual "for (distinctDifferenceArray [37])," [1] (distinctDifferenceArray [37]))24 25test5 :: Test26test5 = TestCase (assertEqual "for (distinctDifferenceArray [17, 31, 15, 24, 8, 5, 41, 12, 33, 23, 44, 3, 33, 45, 45, 44, 35, 37, 2, 31, 11, 38, 5, 10, 4, 48, 35, 1, 40, 3, 13])," [-22,(-21),(-19),(-17),(-15),(-14),(-12),(-10),(-9),(-7),(-6),(-5),(-4),(-3),(-2),(-1),0,2,4,5,7,9,10,12,14,16,17,19,21,22,24] (distinctDifferenceArray [17, 31, 15, 24, 8, 5, 41, 12, 33, 23, 44, 3, 33, 45, 45, 44, 35, 37, 2, 31, 11, 38, 5, 10, 4, 48, 35, 1, 40, 3, 13]))27 28test6 :: Test29test6 = TestCase (assertEqual "for (distinctDifferenceArray [13, 1, 39, 29, 17, 39])," [-3,(-1),0,2,4,5] (distinctDifferenceArray [13, 1, 39, 29, 17, 39]))30 31test7 :: Test32test7 = TestCase (assertEqual "for (distinctDifferenceArray [14, 21, 34, 43, 2, 3, 48, 17, 1, 16, 40, 50, 27, 36, 6, 28, 26, 2, 44, 33, 43, 6, 13, 20, 21, 4, 6, 41, 38, 19, 39, 42, 14, 7, 35, 4, 39, 12, 6, 10, 25, 18])," [-32,(-31),(-29),(-28),(-27),(-25),(-23),(-21),(-19),(-17),(-15),(-13),(-11),(-9),(-8),(-6),(-4),(-3),(-1),1,2,2,4,6,7,8,8,10,12,14,15,17,18,20,22,23,24,26,27,29,31,33] (distinctDifferenceArray [14, 21, 34, 43, 2, 3, 48, 17, 1, 16, 40, 50, 27, 36, 6, 28, 26, 2, 44, 33, 43, 6, 13, 20, 21, 4, 6, 41, 38, 19, 39, 42, 14, 7, 35, 4, 39, 12, 6, 10, 25, 18]))33 34test8 :: Test35test8 = TestCase (assertEqual "for (distinctDifferenceArray [10, 8, 44, 4, 33, 21, 50, 46, 29, 41, 45, 24, 30, 10, 43, 29, 38, 31, 14, 7, 3, 19, 27, 32, 5, 43, 24, 32, 6, 15, 24])," [-24,(-22),(-20),(-18),(-16),(-14),(-12),(-10),(-9),(-7),(-5),(-4),(-2),(-1),0,1,3,5,7,9,11,13,15,16,18,19,19,20,22,24,25] (distinctDifferenceArray [10, 8, 44, 4, 33, 21, 50, 46, 29, 41, 45, 24, 30, 10, 43, 29, 38, 31, 14, 7, 3, 19, 27, 32, 5, 43, 24, 32, 6, 15, 24]))36 37test9 :: Test38test9 = TestCase (assertEqual "for (distinctDifferenceArray [2, 2, 1, 39, 18, 15, 15, 3, 18, 4, 47, 6, 8, 26, 28, 37, 30, 4, 22, 2, 12, 12, 32, 13, 18, 39, 13])," [-17,(-17),(-15),(-14),(-13),(-12),(-11),(-9),(-9),(-8),(-6),(-4),(-2),0,2,4,6,7,9,10,11,12,14,15,16,17,18] (distinctDifferenceArray [2, 2, 1, 39, 18, 15, 15, 3, 18, 4, 47, 6, 8, 26, 28, 37, 30, 4, 22, 2, 12, 12, 32, 13, 18, 39, 13]))39 40 41-- Grouping test cases42tests :: Test43tests = 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]44 45-- Running the tests46main :: IO Counts47main = runTestTT tests48