这个函数如何处理 2 个列表？

Question

这个自创函数的目的是获取一个列表，并输出2个列表，它们将交替插入到列表中。 SO [4,5,1,6,7,8] 将被处理成 2 个列表，例如 ([4,1,7],[5,6,8])

deal :: [a] -> ([a],[a])
deal [] = ([],[])
deal [x] = ([x],[])
deal (x:xs) = let (ys,zs) = deal xs
              in (x:zs, ys)

这是功能。 我不明白 let (ys,zs) = deal xs 发生了什么，我知道它基本上为 2 个列表创建了一个占位符，但有人可以引导我完成正在发生的递归。

Answer 1

根据定义，

deal [8] = ([8], [])