TheRealSamuel/LeetCodeProblem
0561
1 2module Main where3import Test.HUnit4 5--Program start6minOperations :: [[Int]] -> Int7minOperations queries = undefined8 9--Program end10 11-- Test cases12 13test1 :: Test14test1 = TestCase (assertEqual "for (minOperations [[1,2],[2,4]])," 3 (minOperations [[1,2],[2,4]]))15 16test2 :: Test17test2 = TestCase (assertEqual "for (minOperations [[2,6]])," 4 (minOperations [[2,6]]))18 19 20-- Grouping test cases21tests :: Test22tests = TestList [TestLabel "Test1" test1]23 24-- Running the tests25main :: IO Counts26main = runTestTT tests27 