TheRealSamuel/LeetCodeProblem

1 2module Main where3import Test.HUnit4 5--Program start6specialPerm :: [Int] -> Int7specialPerm nums = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (specialPerm [2,3,6])," 2 (specialPerm [2,3,6]))15 16test2 :: Test17test2 = TestCase (assertEqual "for (specialPerm [1,4,3])," 2 (specialPerm [1,4,3]))18 19test3 :: Test20test3 = TestCase (assertEqual "for (specialPerm [584117688, 128132521, 483733809, 538103732, 157980701, 84500114, 369758978, 417335206, 834992633])," 0 (specialPerm [584117688, 128132521, 483733809, 538103732, 157980701, 84500114, 369758978, 417335206, 834992633]))21 22test4 :: Test23test4 = TestCase (assertEqual "for (specialPerm [716189780, 829231105, 799685662, 706127727, 642091233, 653562772, 19107990, 817847028, 452438656, 309420299, 224255714, 378823621, 893604088, 555231725])," 0 (specialPerm [716189780, 829231105, 799685662, 706127727, 642091233, 653562772, 19107990, 817847028, 452438656, 309420299, 224255714, 378823621, 893604088, 555231725]))24 25test5 :: Test26test5 = TestCase (assertEqual "for (specialPerm [915827588, 281855433, 282404443, 237318432, 258066764, 83688214, 236117470, 134376301, 125033736, 406824599, 806597217, 175838204, 448108347])," 0 (specialPerm [915827588, 281855433, 282404443, 237318432, 258066764, 83688214, 236117470, 134376301, 125033736, 406824599, 806597217, 175838204, 448108347]))27 28test6 :: Test29test6 = TestCase (assertEqual "for (specialPerm [726633986, 400995617, 693097314, 440474407, 63494536, 993852230, 881042725, 924564810])," 0 (specialPerm [726633986, 400995617, 693097314, 440474407, 63494536, 993852230, 881042725, 924564810]))30 31test7 :: Test32test7 = TestCase (assertEqual "for (specialPerm [744707562, 793994140, 180416571, 473700883, 587397301, 367020656, 905392500, 925682568, 353345376, 696934710, 546914520, 207602398, 366110622, 970835618])," 0 (specialPerm [744707562, 793994140, 180416571, 473700883, 587397301, 367020656, 905392500, 925682568, 353345376, 696934710, 546914520, 207602398, 366110622, 970835618]))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