FPEvalDataset/LeetCodeProblem

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