时间戳

首页 > 解决方案 > F# System.Random 重复值

.net - F# System.Random 重复值

问题描述

我正在尝试在 F# 中使用 System.Random 但不断获得重复值。我知道，如果我每次创建 System.Random 的新实例。下一步我可能会得到重复的值。我想要实现的是在创建它们时在每条记录上设置一个随机 id。以下是代码中问题的示例：

[<AutoOpen>]
module Domain = 
    type Test = {id: int; ....} 

module Test =

    let r = System.Random() 

    let t create =
        {id = r.Next(); ....}


let a = Test.create
let b = Test.create

在上面的代码中 bota并b获得相同的 id。

我猜正在发生的是它let r = System.Random()不会被视为变量，而是作为返回随机新实例的函数。这个对吗？我该如何解决这个问题？

谢谢！

标签： .netrandomf#random-seed

解决方案

您需要在 create 函数中传递一个 unit () 否则是一个值（仅在第一次计算）。

open System


module T =
    type Test = {id: int; } 

    let r = System.Random() 

    let create () =
        {id = r.Next(); }
 

[<EntryPoint>]
let main _ =

    let a = T.create ()
    let b = T.create ()
    printfn "a = %A" a
    printfn "b = %A" b

这会产生不同的值。

a = { id = 1528807395 }   
b = { id = 1526175776 }

这解决了你眼前的问题。但是，创建无状态函数是常见的做法。您的 Random 变量包含状态，因此它必须作为参数传递。

    let create (r:Random) =
        {id = r.Next(); }

推荐阅读