diff options
| author | Justin Bedo <cu@cua0.org> | 2023-01-17 09:12:18 +1100 |
|---|---|---|
| committer | Justin Bedo <cu@cua0.org> | 2023-01-20 09:17:05 +1100 |
| commit | 0718de4acc18df39152fc55d6bd279af56d7e2af (patch) | |
| tree | 36e8f2eed93680a35d68c12667aa473b0a087911 /src/PPL/Sampling.hs | |
| parent | 3f2bd030b69a11a0f409c715740ec4bf8536f8b1 (diff) | |
add some strictness
Diffstat (limited to 'src/PPL/Sampling.hs')
| -rw-r--r-- | src/PPL/Sampling.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/PPL/Sampling.hs b/src/PPL/Sampling.hs index a3f38db..1d20838 100644 --- a/src/PPL/Sampling.hs +++ b/src/PPL/Sampling.hs @@ -42,7 +42,7 @@ mh p m = do ratio = w' / w (Exp . log -> r, g3) = random g2 put g3 - pure $ + pure $! if r < ratio then (t', x', w') else (t, x, w) |