SML：多個案例陳述

Question

如何擁有多個不相互交錯的陳述陳述？ 例如玩具例子：

fun multi_cases(xs) = 
    case xs of 
     [] => 5 
     | x::ys => case x of 
        1 => 2 
        |_ => 3 
     | x::[] => case x of 
        1 => 5 
        | _ => 7 
; 

stdIn:59.17-64.28 Error: types of rules don't agree [overload conflict] 
    earlier rule(s): [int ty] -> [int ty] 
    this rule: [int ty] list -> [int ty] 
    in rule: 
    :: (x,nil) => 
     (case x 
     of 1 => 5 
     | _ => 7) 

最後兩個case語句得到混合起來，我怎麼能告訴SML，他們確實是兩個獨立的case語句，而不是1情況下，x的延續/獨立分支=> 2 ...

上面的答案在下面的答案中指出了它們的一般性問題。

Answer 1

這段代碼有兩個明顯的問題：

1. 由於問題Nested case statements in SML約翰鏈接到說，案例的 s爲語法有點棘手，因爲他們的case語句列表從來沒有「停止」。也就是說，你的代碼實際上被解析爲：

   fun multi_cases xs = 
       case xs of 
        [] => 5 
        | x::ys => case x of 
            1 => 2 
           | _ => 3 
           | x::[] => case x of 
               1 => 5 
               | _ => 7 
   

   這是荒謬的，因爲第三模式應該有屬於外案例的而不是內側（內案例中涉及x作爲int，而外部的x::[]作爲int list）。

   由於您的壓痕不積極幫助朝本意編譯器，使用括號從纏繞「停止」 病例的S，這樣的帖子裏說，是修復：

   fun multi_cases xs = 
       case xs of 
        [] => 5 
        | x::ys => (case x of 
            1 => 2 
           | _ => 3) 
        | x::[] => (case x of 
            1 => 5 
            | _ => 7) 
   

   或者你可以把外案例的到比賽上函數的參數本身與它融爲一體內案例在一起，因爲一個單一的模式匹配允許任意深度匹配：

   fun fun_cases [] = 5 
       | fun_cases [1] = 5 
       | fun_cases [_] = 7 
       | fun_cases (1::_) = 2 
       | fun_cases (_::_) = 3 
   

2. 您的兩個案例重疊，因爲x::xs是比x::[]更通用的模式。也就是說，它還通過將xs設置爲[]來覆蓋列表x::[]。您可以通過以下兩種方式之一修復該問題：

   1. 首先列出最不常用的圖案，例如，

      case xs of 
          [] => 5 
          | [x] => ... 
          | x::_ => ... 
      

   2. 通過指定該列表應當具有至少兩個元素作出這樣x::xs一般圖案劃分爲以下一般之一：

      case xs of 
          x :: _ :: _ => ... 
          | [x] => ... 
          | [] => ...