F# - 替换 For 循环的列表推导式

Question

我正在尝试用等效的列表理解替换现有的 for 循环，但我正在努力获得预期的结果。

module SOQN =

    open System
    open FSharp.Data
        
    let main() =
        let o = [| 5.00; 2.00; 3.00 |]
        let p =  [| 0.30; 0.50; 0.20 |]
        let n = 3

        let f = [| for x in o do 
                    for y in p do 
                        yield (x * y) - 1.0 |]
                                 
        printfn "%A" <| f
        // Expected Output: [| 0.50; 0.00; -0.40 |]        
        
    [<EntryPoint>]
    main()
    |> ignore

Answer 1

我想你想把数组“zip”在一起，像这样：

let f =
    [| for (x, y) in Array.zip o p do
        yield (x * y) - 1.0 |]

printfn "%A" <| f

Answer 2

当您有两个这样的 for 时，您将乘以两个数组，列出所有可能的组合。

使用Seq.map2:

可以更轻松地达到你想要的效果

Seq.map2 (fun x y -> (x * y) - 1.0) o p |> Seq.toArray

我使用 Seq.map2 而不是 Array.map2，因为如果两个数组的长度不同，数组版本会抛出异常。 Seq 版本在其中一个序列用完元素时停止。

F# - 替换 For 循环的列表推导式

F# - List Comprehension To Replace For-Loop

f#

for-loop

list-comprehension