type enum-name = | value1 = integer-literal1 | value2 = integer-literal2 ...
下面的例子演示了如何使用enumerations
// Declaration of an enumeration. type Days = | Sun = 0 | Mon = 1 | Tues = 2 | Wed = 3 | Thurs = 4 | Fri = 5 | Sat = 6 // Use of an enumeration. let weekend1 : Days = Days.Sat let weekend2 : Days = Days.Sun let weekDay1 : Days = Days.Mon printfn "Monday: %A" weekDay1 printfn "Saturday: %A" weekend1 printfn "Sunday: %A" weekend2
當你編譯和執(zhí)行程序,它產(chǎn)生以下輸出
Monday: Mon Saturday: Sat Sunday: Sun
更多建議: