指定された合計でサブリストを見つける

Question

私はHaskellの関数で、Intsと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

最初に、subsequencesからData.Listの機能を使用して、すべての可能なサブリストのリストを作成できます。それでは、リストをその合計でフィルタリングするだけです。

import Data.List 

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