如何在haskell中检查列表的长度是否不等于列表中的列表的长度

Question

嗨，伙计们，我正在尝试使用 haskells 长度函数和模式匹配来检查列表的长度是否不等于列表中列表的长度

这是我拥有的功能及其类型：

func :: [String] -> [[String]] -> String 

其中返回字符串是“发现错误长度不同”或“长度相同”

这是我要输入的内容，预期输出如下：

[“行星”、“城市”] [[“木星”、“地球”]、[“柏林”、“马德里”、“克拉科夫”]]

由于["Berlin", "Madrid", "Krakow"]的大小为 3，而["Planet", "City"]的大小为 2 ["Planet", "City"]输出应为"Error different lengths found"

有点不确定如何做到这一点，并希望得到任何帮助！

Answer 1

像这样的事情会在线性时间内检查它。

compLength :: [String] -> [[String]] -> String
compLength s = go (length s)
  
  where go _ []   = "All Good! Hurray!"
        go n (y:ys)
          | n /= length y = "Error different lengths found" ++ " [" ++ unwords y ++ "]"
          | otherwise      = go n ys

我认为这为您提供了根据您的确切需求定制输出的基础和必要信息。

Answer 2

您可以编写一个辅助函数来检查两个列表是否具有相同的长度，因此您可以实现一个函数：

sameLength :: [a] -> [a] -> Bool
sameLength … = …

当您实现了这样的功能时，只需检查所有子列表是否具有相同的长度。 我们可以用all :: Foldable f => (a -> Bool) -> fa -> Bool来做到这一点：

func :: [a] -> [[a]] -> Bool
func xs yss
    | all (sameLength xs) yss = "Lengths are the same"
    | otherwise = "Error different lengths found"