[project @ 1997-03-14 07:52:06 by simonpj]

[ghc-hetmet.git] / ghc / lib / tests / Array / arr011 / Main.hs

diff --git a/ghc/lib/tests/Array/arr011/Main.hs b/ghc/lib/tests/Array/arr011/Main.hs
new file mode 100644 (file)
index 0000000..76ad178
--- /dev/null
+++ b/ghc/lib/tests/Array/arr011/Main.hs
@@ -0,0 +1,20 @@
+-- Array - array difference operator
+-- 
+--
+module Main(main) where
+
+import Array
+import Ix
+
+hist :: (Ix a, Num b) => (a,a) -> [a] -> Array a b
+hist bnds is = accumArray (+) 0 bnds [(i,1) | i <- is , inRange bnds i]
+
+main = 
+ let 
+  a1 = hist (0,10) (concat $ take 2 $ repeat [1..20])
+ in
+ print a1 >>
+ print (a1 // [ (i,0) | i<-[0..10], odd i])
+
+
+