功能中的非详尽模式（列表）

Question

我编写了这段代码，它允许我在列表中找到最大值并返回此最大值以及列表的其余部分。例如： maximoYresto [1,2,3,4,2] =（4，[1,2,3,2]）。

代码是这样的：

maximoYresto :: Ord a => [a] -> (a,[a])
maximoYresto [] = error "error"
maximoYresto [x] = (maximum [x], filter (\x -> x < maximum [x]) [x])

但是我收到了这个错误：

异常：relacion2.hs：（31,1） - （32,68）：函数maximoYresto中的非详尽模式。

感谢。