2

我想看看我是否可以做这样的事情：

假设我有一个列表：[1, 8, 90, 100, 82]

现在，我想做的是这样的

print [8, 90, 100, 82]
print [90, 100, 82]
print [100, 82]
print [82]

所以基本上，我想打印列表的其余部分，直到我得到一个空列表，然后停止。有什么方法可以在 Haskell 中做到这一点吗？

编辑：我正在寻找更通用的解决方案。例如，我也希望能够产生这个：

列表 [10, 80, 90, 82, 28]

 [70, 80, 72, 18]
 [52, 62, 54]
 [10, 2]
 [8]
4

2 回答 2

6

如何利用 IO monad：

func [_] = return ()
func (_:xs) = print xs >> func xs

当有人调用它时，它会导致：

*Main> func [1, 8, 90, 100, 82]
[8,90,100,82]
[90,100,82]
[100,82]
[82]

如您在此处阅读的，return可以将其视为“无操作”操作，而绑定运算符>>可以视为在执行第二个操作之前执行第一个操作。

于 2015-05-30T03:00:01.270 回答
6

您可以使用mapM_函数来申请print列表中的每个元素。有 function tails，返回参数的所有最终段（但是，它也返回空列表作为最后一个元素，因此，您可以将它与initfunction 结合使用）。最后，您可以跳过第一个元素，如果您不想打印它，请使用函数tail：

import Data.List

main :: IO ()
main = mapM_ print . init . tails $ tail [1, 8, 90, 100, 82]

印刷：

[8,90,100,82]
[90,100,82]
[100,82]
[82]

当然，可以使用单独的函数来解决您的问题。请注意，我添加了另外两个函数以使代码更具可读性和可重用性：

import Data.List

tailsExceptOriginalAndEmpty :: [a] -> [[a]]
tailsExceptOriginalAndEmpty = init . tails . tail

printListofLists :: (Show a) => [[a]] -> IO ()
printListofLists = mapM_ print

printTailsExceptOriginalAndEmpty :: (Show a) => [a] -> IO ()
printTailsExceptOriginalAndEmpty = printListofLists . tailsExceptOriginalAndEmpty

main :: IO ()
main = printTailsExceptOriginalAndEmpty [1, 8, 90, 100, 82]

另请注意，您应该处理输入列表为空的情况。在当前的实现中，它会引发错误。

于 2015-05-30T03:00:09.283 回答