14 Aug
2008
14 Aug
'08
8:47 a.m.
On Wed 2008-08-13 16:58, Patrick Perry wrote:
variant :: Int -> Gen a -> Gen a variant v (Gen m) = Gen (\n r -> m n (rands r !! v')) where v' = abs (v+1) `mod` 10000 rands r0 = r1 : rands r2 where (r1, r2) = split r0
This sort of defeats the purpose of variant since it is now a nearly random sampling in the predefined range. I filed a bug report (http://hackage.haskell.org/trac/ghc/ticket/2065) but it was closed since it works with QC-2. However, most people don't seem to use QC-2 so it still seems relevant to me. Jed