如何解决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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。