TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6numberGame :: [Int] -> [Int]7numberGame nums = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (numberGame [5,4,2,3])," [3,2,5,4] (numberGame [5,4,2,3]))15 16test2 :: Test17test2 = TestCase (assertEqual "for (numberGame [2,5])," [5,2] (numberGame [2,5]))18 19test3 :: Test20test3 = TestCase (assertEqual "for (numberGame [23, 20, 50, 50, 96, 59])," [23,20,50,50,96,59] (numberGame [23, 20, 50, 50, 96, 59]))21 22test4 :: Test23test4 = TestCase (assertEqual "for (numberGame [1, 1, 2, 2, 8, 5, 12, 9, 15, 13, 15, 15, 19, 18, 22, 22, 25, 24, 28, 28, 31, 29, 32, 31, 43, 40, 46, 44, 51, 48, 54, 51, 63, 58, 65, 64, 65, 65, 68, 68, 75, 72, 78, 76, 79, 79, 82, 80, 86, 84, 91, 90, 93, 91, 94, 94, 97, 95, 98, 97])," [1,1,2,2,8,5,12,9,15,13,15,15,19,18,22,22,25,24,28,28,31,29,32,31,43,40,46,44,51,48,54,51,63,58,65,64,65,65,68,68,75,72,78,76,79,79,82,80,86,84,91,90,93,91,94,94,97,95,98,97] (numberGame [1, 1, 2, 2, 8, 5, 12, 9, 15, 13, 15, 15, 19, 18, 22, 22, 25, 24, 28, 28, 31, 29, 32, 31, 43, 40, 46, 44, 51, 48, 54, 51, 63, 58, 65, 64, 65, 65, 68, 68, 75, 72, 78, 76, 79, 79, 82, 80, 86, 84, 91, 90, 93, 91, 94, 94, 97, 95, 98, 97]))24 25test5 :: Test26test5 = TestCase (assertEqual "for (numberGame [2, 1, 10, 5, 11, 11, 22, 13, 29, 28, 43, 29, 47, 46, 55, 51, 59, 59, 64, 62, 72, 66, 73, 72, 75, 74, 85, 81, 86, 86, 91, 91, 94, 91])," [2,1,10,5,11,11,22,13,29,28,43,29,47,46,55,51,59,59,64,62,72,66,73,72,75,74,85,81,86,86,91,91,94,91] (numberGame [2, 1, 10, 5, 11, 11, 22, 13, 29, 28, 43, 29, 47, 46, 55, 51, 59, 59, 64, 62, 72, 66, 73, 72, 75, 74, 85, 81, 86, 86, 91, 91, 94, 91]))27 28test6 :: Test29test6 = TestCase (assertEqual "for (numberGame [3, 1, 3, 3, 11, 10, 12, 12, 15, 14, 25, 17, 31, 27, 34, 33, 37, 36, 41, 40, 44, 42, 47, 44, 49, 48, 50, 49, 50, 50, 52, 52, 58, 57, 60, 58, 67, 65, 68, 67, 69, 69, 81, 78, 84, 83, 93, 90, 94, 94])," [3,1,3,3,11,10,12,12,15,14,25,17,31,27,34,33,37,36,41,40,44,42,47,44,49,48,50,49,50,50,52,52,58,57,60,58,67,65,68,67,69,69,81,78,84,83,93,90,94,94] (numberGame [3, 1, 3, 3, 11, 10, 12, 12, 15, 14, 25, 17, 31, 27, 34, 33, 37, 36, 41, 40, 44, 42, 47, 44, 49, 48, 50, 49, 50, 50, 52, 52, 58, 57, 60, 58, 67, 65, 68, 67, 69, 69, 81, 78, 84, 83, 93, 90, 94, 94]))30 31test7 :: Test32test7 = TestCase (assertEqual "for (numberGame [7, 6, 16, 15, 20, 19, 24, 21, 26, 25, 27, 26, 30, 27, 39, 33, 44, 41, 46, 46, 52, 49, 55, 52, 58, 58, 61, 59, 61, 61, 66, 66, 68, 68, 69, 69, 80, 78, 85, 83, 90, 89, 97, 90])," [7,6,16,15,20,19,24,21,26,25,27,26,30,27,39,33,44,41,46,46,52,49,55,52,58,58,61,59,61,61,66,66,68,68,69,69,80,78,85,83,90,89,97,90] (numberGame [7, 6, 16, 15, 20, 19, 24, 21, 26, 25, 27, 26, 30, 27, 39, 33, 44, 41, 46, 46, 52, 49, 55, 52, 58, 58, 61, 59, 61, 61, 66, 66, 68, 68, 69, 69, 80, 78, 85, 83, 90, 89, 97, 90]))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