递归列出

Question

我想创建一个无限列表如下

(1:[]):(2:2:[]):(3:3:3:[]) ... 

我已经尝试了很多，我能想到的最好的是

function = (1:[]) : map (\n -> n) ( from 2) 

我相信，这种需要是完成递归，但我不能看到它

任何提示或帮助将是巨大的感谢

Answer 1

这个怎么样：

concatMap (\x -> replicate x x) [1..] 

它没有明确的递归，但做你想做的。

由于凯沙夫基尼指出，你可能想要的版本无连接：

map (\x -> replicate x x) [1..] 

Answer 2

这里是一个递归定义的建议：

lss = [1]:map (\ls -> (1+head ls):(map (+1) ls)) lss

（即使复制的解决方案是短！）