【问题标题】:Haskell error: "non-exhaustive patterns"Haskell 错误:“非详尽模式”
【发布时间】:2012-07-23 14:53:45
【问题描述】:

所以我有这个功能,当我尝试像这样使用它时: 合并排序列表 [1,1] [1,1] 它给了我一个错误:

[1,1*** 例外:SortFunctions.hs:(86,1)-(91,89):非详尽无遗 函数mergeSortedLists中的模式

85 mergeSortedLists :: (Ord t)       => [t] -> [t] -> [t]
86 mergeSortedLists [] []            = []
87 mergeSortedLists (x:[]) []        = x:[]
88 mergeSortedLists [] (y:[])        = y:[] 
89 mergeSortedLists (x:[]) (y:[])    = (max x y) : (min x y) : []
90 mergeSortedLists (x:tail1) (y:tail2) | x > y  = x : (mergeSortedLists tail1     (y:tail2))
91                                      | otherwise = y : (mergeSortedLists (x:tail1) tail2)

我无法找出问题的根源,因为我认为我涵盖了所有可能的情况。 这里可能是什么问题?

【问题讨论】:

  • 您还没有涵盖所有可能的情况。考虑mergeSortedLists [] [1,1]
  • @pigworker 确实如此。我太愚蠢。谢谢!

标签: haskell pattern-matching


【解决方案1】:

第二种和第三种情况的模式涵盖了与空列表合并的长度为 1 的列表,但没有涵盖与空列表合并的更长的列表。也就是说,您没有涵盖这样的案例:

mergeSortedLists [3, 2, 1] []
mergeSortedLists [] [3, 2, 1]

这是一个功能,可以在较少的情况下完成我认为您正在尝试做的事情:

mergeSortedLists :: (Ord t) => [t] -> [t] -> [t]
mergeSortedLists x [] = x
mergeSortedLists [] y = y
mergeSortedLists (x:tail1) (y:tail2)
    | x > y     = x : (mergeSortedLists tail1 (y:tail2))
    | otherwise = y : (mergeSortedLists (x:tail1) tail2)

(另外,您的函数不是在技术上合并反向排序列表吗?)

【讨论】:

  • 您的解决方案完美运行,谢谢!是的,它们是按降序排列的。我想我应该通过 (Ord a => a -> a -> Bool) 使其更通用。
  • 我这样做的方法是始终以“标准”(升序)顺序 w/r/t 排序,无论 Ord 实现是什么。如果用户想要相反的顺序,他们可以 newtype 输入类型并实现 Ord 与反向比较。 (实际上我很惊讶 AFAICT Haskell 库没有针对此预定义的通用新类型。)
猜你喜欢
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
  • 1970-01-01
相关资源
最近更新 更多