我有一个像这样的数据结构：
data MultTree b = DataNode b | IndexNode Int Int [MultTree b] deriving (Show)
为了递归地使用该结构，我需要一个计算列表对象的函数。对于任何类型的对象，都有一个通用的对象吗？
我的编译器只接受Num作为参数：
countList :: (Num) => [a] -> a
countList [] = 0
countList (x:xs) = 1 + countList xs
该函数的签名是错误的。您想将其作为仲裁类型的列表a并返回一个整数：
countList :: [a] -> Int
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句