-

[clean-tests.git] / randdist / test.icl

diff --git a/randdist/test.icl b/randdist/test.icl
deleted file mode 100644 (file)
index 0f38841..0000000
--- a/randdist/test.icl
+++ /dev/null
@@ -1,14 +0,0 @@
-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