f# - 在 F# 中进一步优化 Number to Roman Numeral 函数

我是 F# 的新手，我很好奇这是否还可以进一步优化。我不是特别确定我是否也正确地做到了这一点。我特别好奇最后一行，因为它看起来很长很丑。

我在谷歌上搜索过，但只显示了罗马数字到数字的解决方案，所以我很难比较。

type RomanDigit = I | IV | V | IX
let rec romanNumeral number =
    let values = [ 9; 5; 4; 1 ]
    let capture number values =
            values
            |> Seq.find ( fun x -> number >= x )
    let toRomanDigit x =
        match x with
        | 9 -> IX
        | 5 -> V
        | 4 -> IV
        | 1 -> I
    match number with
    | 0 -> []
    | int -> Seq.toList ( Seq.concat [ [ toRomanDigit ( capture number values ) ]; romanNumeral ( number - ( capture number values ) ) ] )

感谢任何可以帮助解决此问题的人。

最佳答案

递归查找可以从值中减去的最大数字表示的一种稍微简短的方法(使用 List.find):

let units =
    [1000, "M"
     900, "CM"
     500, "D"
     400, "CD"
     100, "C"
     90, "XC"
     50, "L"
     40, "XL"
     10, "X"
     9, "IX"
     5, "V"
     4, "IV"
     1, "I"]

let rec toRomanNumeral = function
    | 0 -> ""
    | n ->
        let x, s = units |> List.find (fun (x,s) -> x <= n)
        s + toRomanNumeral (n-x)

关于f# - 在 F# 中进一步优化 Number to Roman Numeral 函数，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/18140227/