Konvertieren von Zeichenfolgen in F #

Es gibt keinen Grund, zuerst eine formatierte Zeichenfolge zu erstellen, sie dann zu teilen und schließlich eine neue formatierte Zeichenfolge zu erstellen.

Angenommen, Sie möchten die leere Zeichenfolge im Fall None zurückgeben, können Sie Folgendes tun:

let getFile card =
    let digitize candidate = 
        match candidate with
        | "Two" -> "2"
        | "Three" -> "3"
        | "Four" -> "4"
        | "Five" -> "5"
        | "Six" -> "6"
        | "Seven" -> "7"
        | "Eight" -> "8"
        | "Nine" -> "9"
        | "Ten" -> "10"
        | _ -> candidate
    match card with
    | Some c ->
        let face = c.Face |> string |> digitize
        let suit = c.Suit |> string
        sprintf "%s_of_%s.png" face suit
    | None -> ""

Hier habe ich angenommen, dass die Typen Face und Suit ToString überschreiben, anstatt sich auf eine Funktion namens getUnionTypeName zu verlassen, die ich nicht kenne. Dies ermöglicht die Nutzung der eingebauten Funktion string (die einfach ToString () aufruft).

Ad-hoc-Tests:

> Some { Face = Ten; Suit = Clubs } |> getFile;;
val it : string = "10_of_Clubs.png"
> Some { Face = Jack; Suit = Clubs } |> getFile;;
val it : string = "Jack_of_Clubs.png"
> None |> getFile;;
val it : string = ""

Diese digitize -Funktion sieht aus wie ein Kandidat für eine Allzweckfunktion, und ich frage mich, ob in der BCL noch nicht so etwas in ihrem Globalisierungs-Namespace herumliegt ... Ansonsten gibt es sicher Hunderte von NuGet-Paketen, die solche Funktionen implementieren ...

Es stellt sich heraus, dass es nicht Hunderte von NuGet-Paketen gibt, die dies bereits tun. Deshalb habe ich eines mit dem Namen Numsense. Damit können Sie die Funktion getFile folgendermaßen vereinfachen:

open Ploeh.Numsense

let getFile card =
    let digitize candidate = 
        match Numeral.tryParseEnglish candidate with
        | Some i -> string i
        | None -> candidate
    match card with
    | Some c ->
        let face = c.Face |> string |> digitize
        let suit = c.Suit |> string
        sprintf "%s_of_%s.png" face suit
    | None -> ""