old/randdist/test.icl

   1 module test
   2
   3 import Data.Func, Math.Random
   4 import StdArray, StdList, StdFunc, StdArrayExtensions
   5
   6 num :== 1000000
   7 lim :== 100
   8
   9 Start :: {!Int}
  10 Start
  11         = foldl (flip (updateArrElt inc)) (createArray lim 0)
  12         $ map (flip (rem) lim)
  13         $ take num
  14         $ genRandInt 42