F# - 替换 For 循环的列表理解

问题描述

我正在尝试用等效的列表理解替换现有的 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

解决方法

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

您可以使用 Seq.map2 更轻松地实现您想要的：

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

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

,

我认为您想将数组“zip”放在一起，如下所示：

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

printfn "%A" <| f