任何对象的计数列表

Question

我有一个类似的数据结构：

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

Answer 1

该功能的签名错误。您想要将其作为仲裁类型executed_env的列表并返回一个整数：

a