无法让我的递归函数与列表一起工作

Question

传递一个列表，例如：[1,2,3,4,5] 并返回[[1,2,3,4,5]， [2,3,4,5]，[3,4,5]，[4,5]，[5]，[]]

我的方法是使用递归将drop 1 list添加到另一个空列表，直到列表为空。但我似乎无法让我的递归正常工作。

帮助，请，谢谢

到目前为止我的代码：

test a = test2 a where 
test2 a | size(a) > 1 = test (drop 1 a):[] 
     | otherwise = [] 

但难道不工作，因为递归回传的清单列表中，而不是一个列表。我只是不知道如何将它分配给某个东西并同时返回它。

Answer 1

首先，你做了什么test a = test2 a？

然后，你不需要（且不应使用）看守这与模式匹配做到这一点：

test [] = [[]] 
test (a:al) = (a:al):(test al) 

如果你坚持要用守卫，你仍然需要做使它实际上是一个列出清单：

test a 
    | null a = [[]] 
    | otherwise = a:(test $ tail a) 

（不是列表的列表清单的，因为我曾在我原来的职位...）

Answer 2

您所描述的功能已经存在于标准库中，其名称为Data.List.tails。你可以看看its source code看看它是如何工作的。

Answer 3

fromNet [] = [[]] 
fromNet lst = lst : fromNet (tail lst) 

Answer 4

如果你想要去与你的drop 1的方法，你可以写

test xs = take (1 + length xs) $ iterate (drop 1) xs 

稍微搞笑版是

import Data.List 

test = (++[[]]) . transpose . zipWith replicate [1..]