FPEvalDataset/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6semiOrderedPermutation :: [Int] -> Int7semiOrderedPermutation nums = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (semiOrderedPermutation [2,1,4,3])," 2 (semiOrderedPermutation [2,1,4,3]))15 16test2 :: Test17test2 = TestCase (assertEqual "for (semiOrderedPermutation [2,4,1,3])," 3 (semiOrderedPermutation [2,4,1,3]))18 19test3 :: Test20test3 = TestCase (assertEqual "for (semiOrderedPermutation [1,3,4,2,5])," 0 (semiOrderedPermutation [1,3,4,2,5]))21 22test4 :: Test23test4 = TestCase (assertEqual "for (semiOrderedPermutation [7, 18, 21, 5, 24, 10, 1, 12, 17, 2, 9, 8, 20, 15, 22, 23, 6, 16, 13, 4, 3, 19, 14, 11])," 24 (semiOrderedPermutation [7, 18, 21, 5, 24, 10, 1, 12, 17, 2, 9, 8, 20, 15, 22, 23, 6, 16, 13, 4, 3, 19, 14, 11]))24 25test5 :: Test26test5 = TestCase (assertEqual "for (semiOrderedPermutation [10, 15, 7, 11, 13, 14, 3, 2, 16, 5, 12, 4, 8, 9, 1, 6])," 20 (semiOrderedPermutation [10, 15, 7, 11, 13, 14, 3, 2, 16, 5, 12, 4, 8, 9, 1, 6]))27 28test6 :: Test29test6 = TestCase (assertEqual "for (semiOrderedPermutation [3, 5, 4, 1, 2])," 5 (semiOrderedPermutation [3, 5, 4, 1, 2]))30 31test7 :: Test32test7 = TestCase (assertEqual "for (semiOrderedPermutation [30, 5, 2, 6, 28, 26, 21, 32, 18, 27, 8, 24, 16, 34, 14, 19, 37, 4, 23, 7, 11, 1, 31, 20, 35, 33, 36, 17, 29, 25, 13, 22, 10, 12, 3, 9, 15])," 40 (semiOrderedPermutation [30, 5, 2, 6, 28, 26, 21, 32, 18, 27, 8, 24, 16, 34, 14, 19, 37, 4, 23, 7, 11, 1, 31, 20, 35, 33, 36, 17, 29, 25, 13, 22, 10, 12, 3, 9, 15]))33 34test8 :: Test35test8 = TestCase (assertEqual "for (semiOrderedPermutation [25, 6, 11, 10, 1, 32, 14, 39, 35, 15, 20, 4, 33, 22, 24, 31, 37, 34, 19, 23, 8, 26, 36, 12, 27, 21, 16, 7, 9, 29, 3, 2, 18, 5, 38, 13, 28, 30, 17])," 35 (semiOrderedPermutation [25, 6, 11, 10, 1, 32, 14, 39, 35, 15, 20, 4, 33, 22, 24, 31, 37, 34, 19, 23, 8, 26, 36, 12, 27, 21, 16, 7, 9, 29, 3, 2, 18, 5, 38, 13, 28, 30, 17]))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