3

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

我现在只看英文。例如:

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

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

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

4

1 回答 1

7

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

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"
于 2013-11-03T12:13:07.817 回答