Joachim Breitner
--- a/Data/Array.hs
+++ b/Data/Array.hs
    array,          -- :: (Ix a) => (a,a) -> [(a,b)] -> Array a b
    listArray,      -- :: (Ix a) => (a,a) -> [b] -> Array a b
    accumArray,     -- :: (Ix a) => (b -> c -> b) -> b -> (a,a) -> [(a,c)] -> Array a b
+    genArray,       -- :: (Ix a) => (a,a) -> (a -> b) -> Array a b
--- a/Data/Array/Base.hs
+++ b/Data/Array/Base.hs
 listArray (l,u) es =
    let n = safeRangeSize (l,u)
    in unsafeArray (l,u) (zip [0 .. n - 1] es)
+--
--- a/Data/Array/Base.hs
+++ b/Data/Array/Base.hs
 listArray (l,u) es =
    let n = safeRangeSize (l,u)
    in unsafeArray (l,u) (zip [0 .. n - 1] es)
+--
+-- | Constructs an immutable array using a generator function.
+genArray :: (IArray a e, Ix i) => (i,i) -> (i -> e) -> a i e
+genArray (l,u) f = listArray (l,u) $ map f $ range (l,u)