F#求和机器控制台

以下是一个简单的 F# 控制台程序示例，用于求和机器。

open System

let rec sumMachine total =
    printfn "当前总和为：%d" total
    printfn "请输入一个数字："
    let input = Console.ReadLine()
    match Int32.TryParse(input) with
    | true, number -> sumMachine (total + number)
    | _ -> printfn "输入无效，程序结束"

[<EntryPoint>]
let main argv =
    printfn "欢迎使用求和机器控制台！"
    sumMachine 0
    0 // 返回值表示程序正常结束

这个程序定义了一个递归函数 sumMachine，它接受一个整数参数 total，代表当前的总和。在每一轮循环中，程序会打印当前的总和，并要求用户输入一个数字。如果输入有效的数字，则将其加到总和上，并继续下一轮循环；如果输入无效（无法解析为整数），则程序结束。

在 main 函数中，我们打印欢迎信息，然后调用 sumMachine 函数开始求和机器。最后，返回值为 0，表示程序正常结束。

请注意，这只是一个简单的示例，可能需要根据实际需求进行修改和扩展。