randdist/testsk.icl

   1 module testsk
   2
   3 import Data.Func, Math.Random
   4 import StdArray, StdList, StdFunc, StdArrayExtensions
   5
   6 num :== 10000000
   7 lim :== 100
   8
   9 Start :: {!Int}
  10 Start
  11         = foldl (flip (updateArrElt inc)) (createArray (lim*50) 0)
  12         $ take num
  13         $ map (\x->toInt ((ln x) * fromInt lim - 0.5))
  14         $ genRandReal 42