Izvedba algoritama sufiksnog stabla u funkcijskome ... - Zemris - FER

createHeap :: Int -> IO (Heap a)
createHeap n =
do arr IO (Pointer a)
new (arr,iRef) v =
do i Pointer a -> IO a
get (arr,_) p = do Just v Pointer a -> a -> IO ()
set (arr,_) p v = writeArray arr p $ Just v
getHeap :: Heap a -> IO [Maybe a]
getHeap (arr,_) = getElems arr
Slika 8: Manipulacija dinamičkom memorijom u monadi IO.
13