.net - 如何将用英文单词书写的数字解析为 F# 中的数字等价物？

Question

F#（以函数/递归样式）中最简单的方法是什么，给定一个单词中的数字，将其转换为它的数字等价物？

我现在只看英文。例如：

let parseNumber (s : string) =
    match s with
    | "One" -> 1
    | _ - failwith "Cannot parse"

let result = parseNumber "One Thousand Two Hundred"
// result should be 12000

有没有不涉及大量查找表的方法？

Answer 1

这是一个幼稚/简单的解决方案，但您需要扩展它以支持所有数字（例如“三万”）：

open System

let parseNumber (s : string) =
    let parts = s.Split ' ' |> Array.rev |> Array.toList
    let rec parseParts (s : string list) =
        match s with
        | [] -> 0
        | "One" :: rest -> 1 + parseParts rest
        | "Two" :: rest -> 2 + parseParts rest
        | "Three" :: rest -> 3 + parseParts rest
        | "Four" :: rest -> 4 + parseParts rest
        | "Five" :: rest -> 5 + parseParts rest
        | "Six" :: rest -> 6 + parseParts rest
        | "Seven" :: rest -> 7 + parseParts rest
        | "Eight" :: rest -> 8 + parseParts rest
        | "Nine" :: rest -> 9 + parseParts rest
        | "Ten" :: rest -> 10 + parseParts rest
        | "Hundred" :: t :: rest -> parseParts [t] * 100 + parseParts rest
        | "Thousand" :: t :: rest -> parseParts [t] * 1000 + parseParts rest
        | _ -> failwith "Ug"
    parseParts parts

parseNumber "One" |> printfn "%i"
parseNumber "Two Hundred" |> printfn "%i"
parseNumber "Three Thousand" |> printfn "%i"
parseNumber "Three Thousand Four" |> printfn "%i"
parseNumber "One Thousand Two Hundred" |> printfn "%i"