压缩两个函数产生的两个列表（Haskell）

Question

我有两个函数（count和listOfNths），它们都带有参数并产生一个列表。 我想压缩这两个函数产生的列表。 我将如何去做？ 我尝试编写zip listOfNths count但是没有用。

count n = [ x | x <- [0..n-1]]

everyf n [] = []
everyf n as  = head as : everyf n (drop n as)
listOfNths :: Int -> [a] -> [[a]]
listOfNths n xs = map (\x -> everyf n (drop x xs)) [0..n-1] 

只是一个旁注：函数listOfNths使用了另一个函数（everyf），但这并不重要。

Answer 1

如果我对您的理解正确，则可以使用简单的map ：

fn n xs = map (\x -> (everyf n $ drop x xs, x)) [0..n-1]

如果坚持使用zip，则必须在压缩之前评估功能：

fn n xs = zip (listOfNths n xs) (count n)