buildPair =
do
arr <- newArray ((1,1),(1,10)) 37 :: ST s (STArray s (Int,Int) Int)
a <- readArray arr (1,1)
writeArray arr (1,1) 64
b <- readArray arr (1,1)
return (a,b)main = print $ runST buildPair -- -- Regards, KC
_______________________________________________ Haskell-Cafe mailing list [email protected] http://www.haskell.org/mailman/listinfo/haskell-cafe
