查找具有指定总和的子列表

Question

我正在研究Haskell中的函数，它接收Ints和Int列表。

它返回的是一个子列表，其中包含原始列表中包含的数字列表，该列表将添加到Int中。

例如：

sublistSums [1, 5, -2, 4, 3, 2] 2 
[[1,-2,3],[-2,4],[2]] 

我的工作忙什么：

sublistSums [] num = [] 
sublistSums (x:xs) num 
    | findSum x xs num == num = findSum x xs num 0 : sublistSums (x:xs) num 
    | otherwise = sublistSums xs num 

findSum x [] num count = [] 
findSum x (y:ys) num count 
    | ... 

所以findSum是我做的，应该返回这些数字的列表（加起来数量的辅助功能）。

我对此有点困惑。我如何标记它以便findSum不会重复给我一遍又一遍的同一个数字列表？

Answer 1

您可以首先使用Data.List的功能subsequences生成所有可能的子列表的列表。然后，这只是按照他们的总和过滤清单的问题。

import Data.List 

sublistSum :: [Int] -> Int -> [[Int]] 
sublistSum list target = 
    filter (\x -> sum x == target) $ subsequences list