blob: d5b7f38c1c182530a0c879156c9ce52d43001ead (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
-- !!! Array - accumulated arrays
--
--
module Main(main) where
import Data.Array
import Data.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
|
