SML将两个函数（最小值，最大值）合并为一个（范围）

Question

无论如何要组合这两个函数，它们需要一个列表并返回最高和最低元素。想要同时输出。欢呼声

fun max[] = raise Empty 
    max[x] = x 
    max(x::xs) = 
    let 
    val y = max xs 
    in 
    if x > y then x else y 
    end; 

fun min[] = raise Empty 
    min[x] = x 
    min(x::xs) = 
    let 
     val y = min xs 
    in 
     if x < y then x else y 
    end; 

Answer 1

这是一个提示。使用相同的基本逻辑。编写一个函数minmax以返回一对形式为(min,max)的值，然后在递归步骤中，使用模式匹配来提取这两个值。模板是：

fun minmax [] = raise Empty 
| minmax [x] = (x,x) 
| minmax (x::xs) = 
    let 
    val (a, b) = minmax xs 
    in 
    <fill in the code> 
    end; 

在上面a将是最小和b最大。根据a和b和第三个值x，返回(x,b)或(a,x)或(a,b)，具体取决于不等式如何发挥。您将需要不止一个if。

Answer 2

这是一个不同的提示：使用一个辅助函数来存储当前的（最小值，最大值），并在完成迭代时返回这些值。模板为：

fun minmax [] = raise Empty 
    | minmax (y::ys) = 
    let fun helper [] (min, max) = ... 
      | helper (x::xs) (min, max) = ... 
    in helper ys (y, y) end