1 --!!! Array - array difference operator
4 module Main(main) where
9 hist :: (Ix a, Num b) => (a,a) -> [a] -> Array a b
10 hist bnds is = accumArray (+) 0 bnds [(i,1) | i <- is , inRange bnds i]
14 a1 = hist (0,10) (concat $ take 2 $ repeat [1..20])
17 print (a1 // [ (i,0) | i<-[0..10], odd i])