Andrew Coppin wrote:
> ChrisK wrote:
>> For GHC 6.6 I created
>>
>>
>>> foreign import ccall unsafe "memcpy"
>>> memcpy :: MutableByteArray# RealWorld -> MutableByteArray#
>>> RealWorld -> Int# -> IO ()
>>>
>>
>>
>>> {-# INLINE copySTU #-}
>>> copySTU :: (Show i,Ix i,MArray (STUArray s
Reinier Lamers wrote:
> ChrisK wrote:
>
>> For GHC 6.6 I created
>>
>>
>>
>>> foreign import ccall unsafe "memcpy"
>>>memcpy :: MutableByteArray# RealWorld -> MutableByteArray#
>>> RealWorld -> Int# -> IO ()
>>>
>>
>>
>>
>>> {-# INLINE copySTU #-}
>>> copySTU :: (Show i,Ix i,MArray (STU
ChrisK wrote:
For GHC 6.6 I created
foreign import ccall unsafe "memcpy"
memcpy :: MutableByteArray# RealWorld -> MutableByteArray# RealWorld -> Int#
-> IO ()
{-# INLINE copySTU #-}
copySTU :: (Show i,Ix i,MArray (STUArray s) e (ST s)) => STUArray s i e ->
STUArray s i e ->
ChrisK wrote:
For GHC 6.6 I created
foreign import ccall unsafe "memcpy"
memcpy :: MutableByteArray# RealWorld -> MutableByteArray# RealWorld -> Int#
-> IO ()
{-# INLINE copySTU #-}
copySTU :: (Show i,Ix i,MArray (STUArray s) e (ST s)) => STUArray s i e ->
STUArray s i e ->
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
>>t