AL
Size: a a a
AL
KV
ЗП
DS
{-# LANGUAGE ScopedTypeVariables #-}
instance forall a s. Show a => Show (MV.MVector s a) where
show vec = show $ ST.runST $ forM indexes readElem
where
indexes = [0..(MV.length vec)]
readElem = MV.read vecDS
ЗП
DS
DS
DS
DS
DS