Haskell 列表中最长的连续元素系列

Question

我是函数式编程和 haskell 语言的新手。我试图根据谓词函数确定列表中最长连续元素系列的长度。该函数如下所示:

 longestSequence :: (a -> Bool) -> [Int] -> Int

当我这样调用它时:

 longestSequence (\x -> x >= 10) [1,44,33,22,2,3,55,66,66,77,88,99]

它应该给我作为解决方案6。

到目前为止我的解决方案是:

longestSequence :: (a -> Bool) -> [a] -> Int
longestSequence p [] = 0
longestSequence p (x:xs) 
  | (p x) = 1 + (longestSequence p xs)
  | otherwise = longestSequence p xs

关于如何解决这个问题有任何提示或想法吗？

Answer 1

尝试分解较小的子问题。对于这个例子，一般策略可能是这样的:

1. 将给定列表转换为 [Bool] 列表，其中如果相应条目满足谓词，则该条目为 True。即编写一个函数 (Int -> Bool) -> [Int] -> [Bool]
2. 对连续的 True 和 False 值进行分组。即编写一个函数[Bool] -> [[Bool]]。您可能想查看Data.List.group .
3. 过滤掉 False 组:[[Bool]] -> [[Bool]]
4. 对于每个内部列表计算它们的长度。 [[Bool]] -> [Int]
5. 找到这些长度的最大值:[Int] -> Int

然后你只需组合这些函数就可以了。对于 1. 和 4.，您将需要使用函数 map::(a -> b) -> [a] -> [b]。如果您已经知道map，就使用它吧。如果您不这样做，我建议您自己也写一下。

我给出的一些函数的类型签名过于具体。也许尝试尽可能地概括它们。