FPEvalDataset/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6findNonMinOrMax :: [Int] -> Int7findNonMinOrMax nums = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (findNonMinOrMax [3,2,1,4])," 2 (findNonMinOrMax [3,2,1,4]))15 16test2 :: Test17test2 = TestCase (assertEqual "for (findNonMinOrMax [1,2])," (-1) (findNonMinOrMax [1,2]))18 19test3 :: Test20test3 = TestCase (assertEqual "for (findNonMinOrMax [2,1,3])," 2 (findNonMinOrMax [2,1,3]))21 22test4 :: Test23test4 = TestCase (assertEqual "for (findNonMinOrMax [62, 86, 92, 47, 22, 36, 7, 99, 96, 84, 43, 48, 77, 41, 76, 59, 29, 32, 61, 26, 6, 42, 19, 18, 87, 24, 97, 14, 65, 98, 78, 72, 80, 16, 91, 21, 90, 94, 55, 25, 50, 51, 71, 5, 52, 8, 53, 67, 85, 56, 54, 58, 79, 88, 37, 11, 17, 81, 74, 89, 100, 23, 44, 57, 35, 66, 27, 20, 45, 12, 39, 38])," 36 (findNonMinOrMax [62, 86, 92, 47, 22, 36, 7, 99, 96, 84, 43, 48, 77, 41, 76, 59, 29, 32, 61, 26, 6, 42, 19, 18, 87, 24, 97, 14, 65, 98, 78, 72, 80, 16, 91, 21, 90, 94, 55, 25, 50, 51, 71, 5, 52, 8, 53, 67, 85, 56, 54, 58, 79, 88, 37, 11, 17, 81, 74, 89, 100, 23, 44, 57, 35, 66, 27, 20, 45, 12, 39, 38]))24 25test5 :: Test26test5 = TestCase (assertEqual "for (findNonMinOrMax [90, 66, 94, 7, 88, 13])," 88 (findNonMinOrMax [90, 66, 94, 7, 88, 13]))27 28test6 :: Test29test6 = TestCase (assertEqual "for (findNonMinOrMax [5, 64, 57, 98, 72, 92, 99, 12, 14, 18, 85, 62, 4, 77, 22, 81, 36, 63, 30, 55, 2, 27, 35])," 57 (findNonMinOrMax [5, 64, 57, 98, 72, 92, 99, 12, 14, 18, 85, 62, 4, 77, 22, 81, 36, 63, 30, 55, 2, 27, 35]))30 31test7 :: Test32test7 = TestCase (assertEqual "for (findNonMinOrMax [49, 21, 100, 37, 41, 38, 57, 2, 15, 81, 68, 98, 34, 31, 50, 14, 5, 20, 91, 86, 73, 83, 52, 30, 94, 80, 62, 53, 82, 39, 32, 23, 70, 36, 40, 96, 93])," 37 (findNonMinOrMax [49, 21, 100, 37, 41, 38, 57, 2, 15, 81, 68, 98, 34, 31, 50, 14, 5, 20, 91, 86, 73, 83, 52, 30, 94, 80, 62, 53, 82, 39, 32, 23, 70, 36, 40, 96, 93]))33 34test8 :: Test35test8 = TestCase (assertEqual "for (findNonMinOrMax [83, 61, 74, 75, 22, 11, 9, 6, 88, 23, 51, 89, 37, 96, 13, 33, 49, 94, 69, 78, 79, 55, 39, 57, 98, 21, 44, 30, 65, 100, 10, 87, 58, 34, 56, 41, 85, 45, 3, 48, 59, 62, 76, 92, 18, 93, 54, 42, 8, 7, 12, 31, 17, 19, 82, 4, 91, 70, 14, 32, 25, 16, 26, 50, 66, 81, 53, 77, 35, 71, 99, 27, 63, 5, 64, 28, 43, 1, 15, 36, 84, 20, 29, 46, 38, 95, 24, 68, 97, 60, 40])," 74 (findNonMinOrMax [83, 61, 74, 75, 22, 11, 9, 6, 88, 23, 51, 89, 37, 96, 13, 33, 49, 94, 69, 78, 79, 55, 39, 57, 98, 21, 44, 30, 65, 100, 10, 87, 58, 34, 56, 41, 85, 45, 3, 48, 59, 62, 76, 92, 18, 93, 54, 42, 8, 7, 12, 31, 17, 19, 82, 4, 91, 70, 14, 32, 25, 16, 26, 50, 66, 81, 53, 77, 35, 71, 99, 27, 63, 5, 64, 28, 43, 1, 15, 36, 84, 20, 29, 46, 38, 95, 24, 68, 97, 60, 40]))36 37 38-- Grouping test cases39tests :: Test40tests = TestList [TestLabel "Test1" test1, TestLabel "Test2" test2, TestLabel "Test3" test3, TestLabel "Test4" test4, TestLabel "Test5" test5, TestLabel "Test6" test6, TestLabel "Test7" test7]41 42-- Running the tests43main :: IO Counts44main = runTestTT tests45