list - 在 Haskell 中获得列表中间位置的方法？

Question

我刚刚开始使用 Haskel 学习函数式编程。

我正在慢慢打通Erik Meijer's lectures on Channel 9 (到目前为止，我已经看过前 4 个)，在第 4 个视频中，Erik 解释了 tail 的工作原理，它让我着迷。

我试图编写一个返回列表中间的函数(偶数长度为 2 项，奇数长度为 1)，我想听听其他人将如何实现它

最少的Haskell代码

最快的Haskell代码

如果您能解释您的选择，我将不胜感激。

我的初学者代码如下所示:

middle as | length as > 2   = middle (drop 2 (reverse as))
          | otherwise       = as

Answer 1

只是为了您的娱乐，来自不会说 Haskell 的人的解决方案:

编写一个递归函数，它接受两个参数 a1 和 a2，并将您的列表作为两个参数传入。在每次递归时，从 a2 中删除 2，从 a1 中删除 1。如果您没有 a2 的元素，那么您将位于 a1 的中间。您可以处理 a2 中仅剩下 1 个元素的情况，以回答您的“中间”是否需要 1 个或 2 个元素。