相关疑难解决方法(0)

路易·沃瑟曼写的当前实现inits,并tails在Data.Sequence.他表示他们非常有效率,而且只是看着我能看到的代码,无论他们做什么,他们都是以干净,自上而下的方式做到这一点,这往往会导致懒树的良好表现.不幸的是,我实际上无法正视他们正在做的事情.任何人都可以帮我一把吗？代码有点长,但可以在Hackage上找到.

这是我到目前为止写的,但我有点失落:

removeone :: [a] -> [[a]]
removeone [] = []
removeone (a:as) = [as] -- I'm lost here

这是我正在寻找的那种输出:

removeone [1,2,3] = [[2,3],[1,3],[1,2]]
removeone [1,2]   = [[1],[2]]

解决这个问题的最佳方法是什么？在Java中,我只是循环这个,每次产生一个新的列表,我将附加到一个预先存在的列表.我很想把它翻译成Haskell.