-module test
-
-import Data.Func, Math.Random
-import StdArray, StdList, StdFunc, StdArrayExtensions
-
-num :== 1000000
-lim :== 100
-
-Start :: {!Int}
-Start
- = foldl (flip (updateArrElt inc)) (createArray lim 0)
- $ map (flip (rem) lim)
- $ take num
- $ genRandInt 42