Matt McCutchen's Web Site
/
match
/
match.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2ed0056
)
Remove randomMap and randomRep definitions (obsoleted by RandomizedMonad).
author
Matt McCutchen
<matt@mattmccutchen.net>
Fri, 11 Jul 2008 04:29:03 +0000
(
00:29
-0400)
committer
Matt McCutchen
<matt@mattmccutchen.net>
Fri, 11 Jul 2008 04:29:32 +0000
(
00:29
-0400)
program/InstanceGenerator.hs
patch
|
blob
|
blame
|
history
diff --git
a/program/InstanceGenerator.hs
b/program/InstanceGenerator.hs
index
cf61e6a
..
23b20a1
100644
(file)
--- 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