F# 重写计算表达式

以下是一个使用F#语言重写计算表达式的示例代码：

open System

let rec evaluateExpression (expr: string) =
    let mutable index = 0
    let mutable result = 0.0

    let rec parseTerm () =
        let mutable term = parseFactor()
        while index < expr.Length && (expr.[index] = '*' || expr.[index] = '/') do
            match expr.[index] with
            | '*' -> index <- index + 1; term <- term * parseFactor()
            | '/' -> index <- index + 1; term <- term / parseFactor()
        term

    and parseFactor () =
        let mutable factor = parseNumber()
        while index < expr.Length && (expr.[index] = '+' || expr.[index] = '-') do
            match expr.[index] with
            | '+' -> index <- index + 1; factor <- factor + parseNumber()
            | '-' -> index <- index + 1; factor <- factor - parseNumber()
        factor

    and parseNumber () =
        let mutable number = 0.0
        let mutable decimal = false
        let mutable divisor = 10.0

        while index < expr.Length && (Char.IsDigit(expr.[index]) || expr.[index] = '.') do
            if expr.[index] = '.' then
                decimal <- true
                index <- index + 1
            else
                if decimal then
                    number <- number + (float (int (Char.GetNumericValue(expr.[index])))) / divisor
                    divisor <- divisor * 10.0
                else
                    number <- number * 10.0 + (float (int (Char.GetNumericValue(expr.[index]))))
                index <- index + 1
        number

    result <- parseTerm()
    result

let expression = "2.5 + 3.7 * 4.2 / 2.1 - 1.5"
let result = evaluateExpression expression
printfn "Result: %f" result

在上面的代码中，我们定义了一个evaluateExpression函数，它接受一个包含数学表达式的字符串作为参数，并返回计算结果。该函数使用递归下降分析的方法来解析和计算表达式。

我们首先定义了三个辅助函数parseTerm、parseFactor和parseNumber来处理不同级别的运算符。parseTerm函数处理乘法和除法运算符，parseFactor函数处理加法和减法运算符，parseNumber函数用于解析数字。

在evaluateExpression函数中，我们使用一个可变的索引变量index来追踪我们在表达式字符串中的位置。我们还有一个可变的result变量来存储计算的结果。

在主程序中，我们定义了一个包含数学表达式的字符串expression，然后调用evaluateExpression函数来计算结果，并使用printfn函数来打印结果。

以上代码将输出：

Result: 5.900000

这个示例只是一个简单的计算表达式的实现，如果你需要处理更复杂的表达式，可能需要添加更多的代码来支持不同的运算符和优先级。