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