Haskell中列表的递归函数

Question

我希望通过使用递归将List中的max和min值作为元组获取.我尝试使用下面的代码并且无法弄清楚它为什么不起作用.我真的很感激我的推理错误.非常感谢

seekMaxMin :: [Double] -> (Double,Double)
seekMaxMin [] = (0,0)
seekMaxMin [x] = (x,x)
seekMaxMin (x:rest) = (max x(seekMaxMin rest), min x(seekMaxMin rest))

Answer 1

seekMaxMin返回最小值和最大值的元组,但在最后一个等式中,您首先假装它只返回最大值,其次它只返回最小值.您可以使用模式将它们两者都提取出来,并从列表中删除冗余步骤.

seekMaxMin (x:rest) = (max x rmax, min x rmin)
    where (rmax, rmin) = seekMaxMin(rest)

我也有点反对将空的双打列表的min设为0,但也许它适合你使用这个函数的任何目的.