f# - 模式匹配数字字符串

Question

我有一个模式匹配其参数的函数，它是一个 string :

let processLexime lexime
    match lexime with
    | "abc" -> ...
    | "bar" -> ...
    | "cat" -> ...
    | _     -> ...

这按预期工作。但是，我现在试图通过表达“匹配仅包含以下字符的 string”来扩展它。在我的具体示例中，我想要任何只包含数字的内容进行匹配。

我的问题是，如何在 F# 中表达这一点？我更愿意在没有任何库的情况下执行此操作，例如 FParsec ，因为我这样做主要是为了学习目的。

Answer 1

您可以使用事件模式:https://msdn.microsoft.com/en-us/library/dd233248.aspx

let (|Integer|_|) (str: string) =
   let mutable intvalue = 0
   if System.Int32.TryParse(str, &intvalue) then Some(intvalue)
   else None

let parseNumeric str =
   match str with
     | Integer i -> printfn "%d : Integer" i
     | _ -> printfn "%s : Not matched." str