如何将STArray转换为Haskell中的列表？

Question

是否有一个功能，可以做什么功能arrayToList做：

import Data.Array.ST 
import Control.Monad.ST 

genArray :: ST s [Int] 
genArray = do 
    a <- new Array (0, 99) 0 :: ST s (STArray s Int Int) 
    writeArray a 0 1 
    {- ... write something to the array ... -} 
    return arrayToList(a) 

如果不是，怎么写呢？

Answer 1

你不需要IO为此，构建一个列表是一个纯粹的操作：

genArray :: [Int] 
genArray = runST $ do 
    a <- newArray (0, 99) 0 :: ST s (STArray s Int Int) 
    writeArray a 0 1 
    {- ... write something to the array ... -} 
    getElems a 

Answer 2

使用stToIO和getElems：

genArray :: IO [Int] 
genArray = stToIO $ do 
    a <- newArray (0,99) 0 :: ST s (STArray s Int Int) 
    writeArray a 0 1 
    getElems a