作为一个学习 Haskell 的 Java 人,我已经习惯了思考一切的新方法,但我花了半天时间尝试用简单的 RNG 实现一些东西,但一无所获。在 Java 中,我可以创建一个静态 RNG 并使用 Classname.random.nextInt(10) 调用它,它会满足以下条件:
- 我不必保留对 RNG 的引用,我可以临时调用它(即使在循环或递归函数内部)
- 每次调用都会产生一个新的随机数
- 每次执行项目时都会产生一组新的随机数
到目前为止,在 Haskell 中,我面临着经典的程序员困境——我可以拥有 2/3。我仍在学习并且对 Monad 完全一无所知,除了它们可能能够在这方面帮助我。
我最近的尝试是这样的:
getRn :: (RandomGen g) => Int -> Int -> Rand g Int
getRn lo hi= getRandomR (lo,hi)
--编辑:修剪我的问题,这样它就不会那么冗长,用摘要代替,然后我最终做了什么:
在创建了一堆随机城市(对于 TSP)之后,我使用一个函数 createEdges
将它们映射到它们上面,该函数获取一个城市并将其连接到其余城市:M.mapWithKey (\x y -> (x,(createEdges y [1..3] makeCountry)))
问题:
我想用随机的东西替换 [1..3]。 IE。我想在纯代码上映射随机性 (IO)。这给我造成了无穷无尽的困惑(请参阅下面人们试图回答我的尝试,以更好地了解我的困惑)。事实上,我什至不确定我是否正确地解释了问题。
我遇到了这种类型的错误:Couldn't match expected type [Int] with actual type IO [Int]
解决方案:
因此,在发现我想做的事情在功能环境中是根本错误的之后,我决定改变我的方法。我没有生成城市列表然后应用随机性来连接它们,而是创建了一个 [[Int]],其中每个内部列表代表随机边缘。从而在流程开始时创建我的随机性,而不是试图将随机性映射到纯代码上。
(我将最终结果发布为我自己的答案,但现在还不允许我接受我自己的答案。一旦我达到了那个阈值,我就会回来接受)
最佳答案
如果您愿意,您可以在没有任何 monad 或 IO 的情况下使用随机数。 您只需要知道,由于涉及到状态(随机数生成器的内部状态),因此您必须接受该状态。
在我看来,最简单的框架是 Sytem.Random .
使用这个你的 getRn
函数看起来像这样:
getRn :: (RandomGen g) => Int -> Int -> g -> (Int, g)
getRn lo hi g = randomR (lo,hi) g
在这里你可以将 g
视为我上面提到的 state - 你把它放进去然后你会像这样(在 ghci 中)得到另一个回来:
> let init = mkStdGen 11
> let (myNr, nextGen) = getRn 1 6 init
> myNr
6
> let (myNr, nextGen') = getRn 1 6 nextGen
> myNr
4
我认为你可以从使用这个开始 - 围绕 gen
进行线程化,稍后当你得到所有 monad 的东西时回来并使其更容易编写/阅读。
我不知道你的数据的定义,但这里有一个使用这种技术的简单例子:
module StackOQuestion where
import System.Random
getRn :: (RandomGen g) => Int -> Int -> g -> (Int, g)
getRn lo hi = randomR (lo,hi)
getRnList :: (RandomGen g) => (g -> (a, g)) -> Int -> g -> ([a], g)
getRnList f n g
| n <= 0 = ([], g)
| otherwise = let (ls, g') = getRnList f (n-1) g
(a, g'') = f g'
in (a:ls, g'')
type City = (Int, Int)
randomCity :: (RandomGen g) => g -> (City, g)
randomCity g =
let (f, g') = getRn 1 6 g
(s, g'') = getRn 1 6 g'
in ((f, s), g'')
randomCities :: (RandomGen g) => (Int, Int) -> g -> ([City], g)
randomCities (minC, maxC) g =
let (count, g') = getRn minC maxC g
in getRnList randomCity count g'
你可以这样测试它:
> let init = mkStdGen 23
> randomCities (2,6) init
([(4,3),(1,2)],394128088 652912057)
如您所见,这会创建两个 Cities(此处仅表示为整数对)- 对于 init
的其他值,您将得到其他答案。
如果你以正确的方式看这里,你可以看到那里已经有一个 state-monad 的开始(g -> ('a, g)
部分) ;)
PS:mkStdGen
有点像您从 Java 和 co 了解到的随机初始化(您通常将系统时钟的滴答计数放入其中的部分)- 我选择 11,因为它是快速输入 ;) - 当然,如果你坚持使用 11,你总是会得到相同的数字 - 所以你需要用 IO 中的东西初始化它 - 但你可以将这个包推送到 main
并保留pure 否则如果你只是通过 g
around
关于haskell - Haskell RNG 和状态,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24502918/