如何在haskell中使用fmap的随机生成器使用函数？

中是否存在任何进化算法框架,因为我无法找到任何？

我目前正在努力寻找一种以一般方式改变神经网络权重的方法.目前,我试图在权重的HMatrix上映射随机函数(形式(RandomGen g)=> g – > a – >(b,g)).

我想要一种通用的方法来修改现有的fmap(或fold？),以便在可以完成的情况下使用随机函数.例如,我可能有一个函数可能会或可能不会向其输入添加一些高斯噪声,并希望将其应用于整个网络.我遇到的问题是如何使用随机数生成器.

对于地图,我目前正在执行以下操作：

rmap :: (StdGen -> a -> (b,StdGen)) -> StdGen -> [a] -> ([b],StdGen)
rmap _ g [] = ([],g)
rmap f g (x:xs) = let (mapped, g') = rmap f g xs
                      (rVal, g'')  = f g' x
                   in (rVal:mapped, g'')

这对我来说似乎是一个黑客攻击,我希望一些更好的haskellers可能会对如何更有效地处理这种随机性提出一些建议？

)是一个高阶函数,它捕获一种广义的折叠和映射操作,在可遍历的结构上有状态地工作并转换元素.你的随机映射函数是这种模式的一个例子 – 正如你所看到的,mapAccumL的类型非常接近你的函数类型：

mapAccumL :: Traversable t => (a      -> b -> (a, c))      -> a      -> t b -> (a, t c)
rmap      ::                  (StdGen -> a -> (b, StdGen)) -> StdGen -> [a] -> ([b], StdGen)

我们可以设置t~ []和~StdGen,这样在一些元组翻转之后,rmap基本上是mapAccumL的另一个名字.

rmap f z = swap . mapAccumL (\x y -> swap (f x y)) z