listToArr :: (IxMinMax k, Ix k) => v -> [(k, v)] -> Array k v
listToArr def ass = accumArray (flip const) def (ixMin keys, ixMax keys) ass
  where keys = map fst ass
listToArr :: (IxMinMax k, Ix k) => v -> [(k, v)] -> Array k v
listToArr def ass = accumArray (flip const) def (ixMin keys, ixMax keys) ass
  where keys = map fst ass
listToArr def ass = accumArray (flip const) def (ixMin keys, ixMax keys) ass
  where keys = map fst ass