Re: [Haskell-cafe] Generating random graph

2011-04-13 Thread Bertram Felgenhauer
Hi Mitar, > I have made this function to generate a random graph for > Data.Graph.Inductive library: > > generateGraph :: Int -> IO (Gr String Double) > generateGraph graphSize = do > when (graphSize < 1) $ throwIO $ AssertionFailed $ "Graph size out > of bounds " ++ show graphSize > let ns =

Re: [Haskell-cafe] Generating random graph

2011-04-11 Thread Mitar
Hi! On Mon, Apr 11, 2011 at 7:36 AM, Steffen Schuldenzucker wrote: > So when using randomRs, the state of the global random number generator is > not updated, but it is used again in the next iteration of the toplevel forM > [1..graphSize] loop. I thought it would be interleaved. Thanks. Mita

Re: [Haskell-cafe] Generating random graph

2011-04-11 Thread Henning Thielemann
On Mon, 11 Apr 2011, Mitar wrote: generateGraph :: Int -> IO (Gr String Double) generateGraph graphSize = do when (graphSize < 1) $ throwIO $ AssertionFailed $ "Graph size out of bounds " ++ show graphSize let ns = map (\n -> (n, show n)) [1..graphSize] es <- fmap concat $ forM [1..graphSiz

Re: [Haskell-cafe] Generating random graph

2011-04-10 Thread Steffen Schuldenzucker
Hello. I don't know if that is the reason for the strange behaviour, but On 04/11/2011 03:03 AM, Mitar wrote: I have made this function to generate a random graph for Data.Graph.Inductive library: generateGraph :: Int -> IO (Gr String Double) generateGraph graphSize = do when (graphSize<

[Haskell-cafe] Generating random graph

2011-04-10 Thread Mitar
Hi! I have made this function to generate a random graph for Data.Graph.Inductive library: generateGraph :: Int -> IO (Gr String Double) generateGraph graphSize = do when (graphSize < 1) $ throwIO $ AssertionFailed $ "Graph size out of bounds " ++ show graphSize let ns = map (\n -> (n, show n