X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/967c39efa10c8a2d74812741cd7a2a96602a6210..fd0d2377785ca843a46b0050a7351dac82c84777:/program/ArrayStuff.hs

diff --git a/program/ArrayStuff.hs b/program/ArrayStuff.hs
index abf14c7..8fcced9 100644
--- a/program/ArrayStuff.hs
+++ b/program/ArrayStuff.hs
@@ -4,6 +4,8 @@ import Data.Array.IArray
 
 funcArray lohi f = listArray lohi $ map f $ range lohi
 
+constArray lohi v = listArray lohi $ repeat v
+
 transposeArray arr =
 	let swap (x, y) = (y, x) in
 	let (lo, hi) = bounds arr in