Haskell 列表错误的部分和

我需要在 Haskell 中编写一个函数，对列表的元素求和，直到某些特定元素存储在另一个列表中。

例如partial_add [1,2,3,4,5,6] [2,5] 0应该返回[3,12,6].

我已经达到了这样的程度：

partial_add [] _ count = []
partial_add (a:x) list count | elem a list =  count:partial_add x list 0
                             | otherwise =  partial_add x list count+a

（很可能无法正常工作）

但是当我尝试运行该函数（它正确编译）时，我收到此错误：

No instance for (Num [t0]) arising from a use of `it' 
In a stmt of an interactive GHCi command: print it

知道发生了什么事吗？

鉴于您的示例，我会编写如下所示的函数：

partialAdd :: [Int] -> [Int] -> [Int]
partialAdd ls seps = foldr f [] ls
  where 
    f a [] = [a]
    f a (x:xs)
      | a `elem` seps = a:x:xs
      | otherwise = (x+a):xs

*Main> partialAdd [1,2,3,4,5,6] [2,5]
[3,12,6]

顺便提一句。我认为您问题中的解决方案似乎并不像您在示例中指定的那样有效（或者我误解了某些内容）：

partial_add :: [Int] -> [Int] -> Int -> [Int]
partial_add [] _ count = []
partial_add (a:x) list count | elem a list =  count:partial_add x list 0
                             | otherwise =  partial_add x list (count+a)

*Main> partial_add [1,2,3,4,5,6] [2,5] 0
[1,7]

但它很容易修复以适用于您的示例：

partial_add :: [Int] -> [Int] -> Int -> [Int]
partial_add [] _ count = [count]
partial_add (a:x) list count | elem a list =  (count+a):partial_add x list 0
                             | otherwise =  partial_add x list (count+a)

*Main> partial_add [1,2,3,4,5,6] [2,5] 0
[3,12,6]