从数组中取出两个元素并添加它们，然后将它们添加回数组

Question

我试图在 f# 中使用两个数组创建一个计算器，一个用于存储数字，另一个用于存储运算符符号。我需要符号数组与符号进行模式匹配，并根据运算符从数组中获取前两个元素并执行操作并将新数字添加到第二个数组的头部。

open System

[<EntryPoint>]
let main argv = 
printfn "%A" argv

let Add x y = x + y
let Sub x y = x - y
let Div x y = x * y
let Mul x y = x / y

printfn "1 > Calculator \n2 > Load from txt file"

let chosenIn = Console.ReadLine();

//This is where I need to do the operation and after call the sum function 
//again until there's only one element left in the number array
let rec sum num (numArray : int[]) sym (symArray : string[]) () =



let rec calc () = 
    printfn "Enter Sum"
    let input = Console.ReadLine()
    let intInput = input.Split()
    let numArray = [|for num in intInput do
                        let v , vp = System.Int32.TryParse(num)
                        if v then yield vp|]

    let symbolArray = [|for symbol in intInput do
                        match symbol with 
                        | "+" -> yield symbol
                        | "-" -> yield symbol
                        | "/" -> yield symbol
                        | "*" -> yield symbol
                        | _ -> ignore 0|]

    calc()

match chosenIn with
| "1" -> calc()
| "2" -> printfn "File"
| _ -> printfn "Invalid"

0 // return an integer exit code

Answer 1

为了回应@Liam Donnelly 对他自己的问题的回答：我将抛开诸如“这真的是解决问题的最佳方法”之类的问题，而只是评论如何更好地编写您当前拥有的代码。

你在这里做的数组切片和连接方式可以写成

let newNumArray = Array.append [| result |] numArray.[2..]

但是，对于您的任务，我会使用 F# 列表而不是数组。使用列表，您可以进行模式匹配以访问前 2 个元素。在我看来，模式匹配胜过直接索引，因为您可以直接编码极端情况，并让 F# 编译器提醒您极端情况。为操作员做同样的事情。您可以同时执行运算符和操作数。然后它看起来像这样：

let rec sum2 (numArray : int list) (symArray : string list)  =
    let newNum, newSym = 
        match numArray with
        | [] -> failwith "No numbers left to process"
        | arg1 :: [] -> failwith "There's only one number left to process"
        | arg1 :: arg2 :: args -> 
            match symArray with
            | op1 :: ops ->
                let result = 
                    match op1 with
                    | "+" -> Add arg1 arg2
                    | "-" -> Sub arg1 arg2
                    | "*" -> Mul arg1 arg2
                    | _ -> failwithf "Operator not recognized: '%s'" op1
                // Return the result, concatenate the non-processed 
                // numbers. Return the non-processed operators
                result :: args, ops
            | _ -> failwith "I've run out of operators?"
<snip>

此外，如果您不认识运算符，则返回“默认结果”是我认为非常冒险的事情（尽管这种做法相当普遍）

如果您使用列表（即 F# 列表），则可以通过 head: let newSymArray = symArray.Head 或使用 List.head 直接访问索引 1.. 处的元素

每次看到自己在 F# 中编写 for 循环时，请退后一步。它们编写起来很麻烦并且容易出错。大多数典型的循环用例都包含在 F# 库函数中，因此请仔细阅读这些用例。你的打印循环可以写得更短：

newNumArray
|> Seq.iter (printfn "%i")

Answer 2

我已经设法创建了执行我需要执行的任务的函数，并且我确信通过使用带有过滤器的 Array.copy 来获取数组的第一个元素，有一种更高效的代码方式，但我我是 f# 的新手，所以我只是按照我自信的方式去做

let rec sum (numArray : int[]) (symArray : string[])  =
    let result = match symArray.[0] with
                 | "+" -> Add numArray.[0] numArray.[1]
                 | "-" -> Sub numArray.[0] numArray.[1]
                 | "*" -> Mul numArray.[0] numArray.[1]
                 | _ -> 0

    let newNumArray = [|
                        for i = 0 to numArray.Length - 1 do
                            if i = 0 then yield result
                            if i > 1 then yield numArray.[i]|]

    let newSymArray = [|
                        for i = 0 to symArray.Length - 1 do
                            if i > 0 then yield symArray.[i]|]

    if newNumArray.Length > 1 then
        sum newNumArray newSymArray
    else
        for i = 0 to newNumArray.Length - 1 do
            printfn "%i" (newNumArray.[i])