查找最高数量的两个列表 - 哈斯克尔

merge :: [a] -> [a] -> [a] 

merge xs  []  = xs 

merge []  ys  = ys 

merge (x:xs) (y:ys) = x : y : merge xs ys 

maxOfTwoLists [x] [y] = maximum (merge [x] [y])

我想结合这两个列表，然后在单个列表中找到最大值。它编译，但当我打电话maxOfTwoLists它给了我一个非穷举模式的错误。我的合并返回一个单一的列表就好了，最大只需一个列表。所以感觉它应该工作。查找最高数量的两个列表 - 哈斯克尔

来源

2016-02-26 LukeshotFirst

您的'maxOfTwoLists'模式匹配两个列表中的一个元素，每个 – badcook

ahhh有意义。我如何使它匹配整个列表？ – LukeshotFirst

删除方括号（在参数和函数体中） – badcook

由于@badcook注意到模式匹配不太正确。

merge :: [a] -> [a] -> [a] 
merge xs [] = xs 
merge [] ys = ys 
merge (x:xs) (y:ys) = x : y : merge xs ys 

maxOfTwoLists :: (Ord a) => [a] -> [a] -> a 
maxOfTwoLists [] ys = maximum ys 
maxOfTwoLists xs [] = maximum xs 
maxOfTwoLists xs ys = maximum (merge xs ys)

我会想你写的merge功能作为一个练习，但你也可以使用++从Prelude到一个列表追加到另一个。

maxOfTwoLists :: (Ord a) => [a] -> [a] -> a 
maxOfTwoLists xs ys = maximum (xs ++ ys)

输出：

λ> maxOfTwoLists [1,2,3] [4,5,6] 
6 
λ> maxOfTwoLists [1,2,3] [] 
3 
λ> maxOfTwoLists [] [1,2,3] 
3 
λ>

来源

2016-02-26 05:12:40 Brian

如果您打算使用'++'，请不要打扰'[]'个案的模式。第三种情况本身就很多。 – amalloy

使用'merge'时也是如此：由于merge是处理空列表，因此不需要处理空列表。（当然，如果两个列表都是空的，'maximum'仍然会引发异常） – chi

我知道这是一个解决方案！我只是哈斯克尔的新手。非常感谢！ – LukeshotFirst

如果你正在寻找合并两个列表，内建concat会有所帮助。它变平的列表，所以我们可以做到以下几点：

maxOfTwoLists :: (Ord a) => [a] -> [a] -> a 
maxOfTwoLists xs ys = maximum $ concat [xs,ys]

其中，$意味着其应用到左侧功能之前评估右侧函数的结果。

来源

2016-02-26 05:23:34 Austin

$符号稍后也会有用。非常感谢你。 – LukeshotFirst

查找最高数量的两个列表 - 哈斯克尔

回答

相关问题