Re: [Haskell-cafe] Array copying

2007-12-05 Thread Andrew Coppin
Jules Bean wrote: Andrew Coppin wrote: Andrew Coppin wrote: copy :: Word32 -> IOUArray Word32 Bool -> Word32 -> IO (IOUArray Word32 Bool) copy p grid size = do let size' = size * p grid' <- newArray (1,size') False mapM_ (\n -> do b <- readArray grid n if b then mapM_ (

Re: [Haskell-cafe] Array copying

2007-12-04 Thread Jules Bean
Andrew Coppin wrote: Andrew Coppin wrote: copy :: Word32 -> IOUArray Word32 Bool -> Word32 -> IO (IOUArray Word32 Bool) copy p grid size = do let size' = size * p grid' <- newArray (1,size') False mapM_ (\n -> do b <- readArray grid n if b then mapM_ (\x -> writeArray gr

[Haskell-cafe] Array copying

2007-12-02 Thread Andrew Coppin
Andrew Coppin wrote: copy :: Word32 -> IOUArray Word32 Bool -> Word32 -> IO (IOUArray Word32 Bool) copy p grid size = do let size' = size * p grid' <- newArray (1,size') False mapM_ (\n -> do b <- readArray grid n if b then mapM_ (\x -> writeArray grid' (n + size*x) True)