From 00f7bf547ecc8b9a709c6fbeff55b9b0d05ecffe Mon Sep 17 00:00:00 2001 From: Matt McCutchen Date: Fri, 11 Jul 2008 00:29:03 -0400 Subject: [PATCH] Remove randomMap and randomRep definitions (obsoleted by RandomizedMonad). --- program/InstanceGenerator.hs | 8 -------- 1 file changed, 8 deletions(-) diff --git a/program/InstanceGenerator.hs b/program/InstanceGenerator.hs index cf61e6a..23b20a1 100644 --- a/program/InstanceGenerator.hs +++ b/program/InstanceGenerator.hs @@ -5,14 +5,6 @@ import RandomizedMonad import Data.Array.IArray import ArrayStuff -randomMap :: RandomGen g => g -> (g -> a -> b) -> [a] -> [b] -randomMap g f l = case l of - [] -> [] - h:t -> let (g1, g2) = split g in (f g1 h):(randomMap g2 f t) -randomRep :: RandomGen g => g -> (g -> a) -> Int -> [a] -randomRep g f n = if n == 0 then [] - else let (g1, g2) = split g in (f g1):(randomRep g2 f (n-1)) - numTopics = 20 -- Expertise on each of the topics -- 2.34.1