import Test.Tasty
import Common
import Hw1
Copyright By PowCoder代写 加微信 powcoder
main :: IO ()
main = runTests [unit1]
unit1 :: Score -> TestTree
unit1 sc = testGroup “Unit 1”
“sumList 1”
[1, 2, 3, 4]
“sumList 2”
[1, -2, 3, 5]
“sumList 3”
[1, 3, 5, 7, 9, 11]
“sumList 4”
digitsOfInt
[3, 1, 2, 4]
“digitsOfInt 1”
digitsOfInt
[3, 5, 2, 6, 6, 3]
“digitsOfInt 2”
[3, 1, 2, 4, 3]
“digits 1”
[2, 3, 4, 2, 2]
“digits 2”
additivePersistence
“additivePersistence 1”
additivePersistence
“additivePersistence 2”
digitalRoot
“digitalRoot 1”
digitalRoot
“digitalRoot 2”
listReverse
[1, 2, 3, 4]
[4, 3, 2, 1]
“reverse 1”
listReverse
[“a”, “b”, “c”, “d”]
[“d”, “c”, “b”, “a”]
“reverse 2”
palindrome
“malayalam”
“palindrome 1”
palindrome
“myxomatosis”
“palindrome 2”
mkTest :: (Show b, Eq b) => (a -> b) -> a -> b -> String -> TestTree
mkTest = mkTest’ sc
程序代写 CS代考 加微信: powcoder QQ: 1823890830 Email: powcoder@163.com