Haskell：使用部分应用程序将列表 xs 与列表 yss 中的每个列表一起压缩

Question

嘿，我正在复习周五即将举行的函数式编程考试，我正在做我们讲师给出的练习。我遇到了一个需要帮助的问题：

6。 a) 编写一个函数，将给定列表 xs 与列表列表 yss 中的每个列表进行压缩。使用部分 在定义函数时尽可能使用应用程序和 lambda 表达式。 b) 编写一个函数，用给定的列表 xs 压缩列表 yss 中的每个列表。使用部分 在定义函数时尽可能使用应用程序和 lambda 表达式。 该问题的 a) 部分和 b) 部分的解决方案之间的差异部分说明了 应用函数必须以正确的顺序获取参数。

目前我对 (a) 的了解是：

zipAll = (\xs (ys:yss) -> [(zip xs ys)] ++ zipAll xs yss)

我知道这并不详尽，但有人能给我一些指示吗？

Answer 1

看来您只是缺少使该功能正常工作的基本情况。基本情况是

(\xs [ys] -> [(zip xs ys)])

我可能会将参数移到方程的右侧：

zipAll xs (ys:yss) = ...

但这只是风格问题。

(b) 部分的解决方案是相同的，只是参数的顺序相反，例如

zipAll (ys:yss) xs = ...

Answer 2

没关系，我解决了：

zipList :: [a] -> [[b]] -> [[(a,b)]]
zipList = \xs yss -> c xs yss
                        where
                                c xs [] = []
                                c xs (ys:yss) = zip xs ys :zipList xs yss

只是希望我现在没有发布这个：P