From c7524e19c481a50a9095b1d567e3d23316915f82 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Wed, 5 Mar 2025 12:41:01 +1100
Subject: multisite

---
 src/PPL/Sampling.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/PPL/Sampling.hs b/src/PPL/Sampling.hs
index 9a749e9..2d0c380 100644
--- a/src/PPL/Sampling.hs
+++ b/src/PPL/Sampling.hs
@@ -52,11 +52,12 @@ mh g p m = do
     mutate :: MonadIO m => StdGen -> IORef (M.HashMap [Int] Double, StdGen) ->  m (IORef (M.HashMap [Int] Double, StdGen))
     mutate g omega = do
       (m, g0) <- liftIO $ readIORef omega
-      let (r:q:_) = R.randoms g
+      {-let (r:q:_) = R.randoms g
           ks = M.keys m
           k = ks !! floor (r * join traceShow (fromIntegral (length ks)))
           m' = M.insert k q m
-      liftIO $ newIORef $ (m',g0)
+      liftIO $ newIORef $ (m',g0)-}
+      liftIO $ newIORef $ (,g0) $ flip evalState g $ mapM go m
       
      where
       go x = do
-- 
cgit v1.2.3