\ Random generator test 4tH - (c) 1994,2009 Hans Bezemer

include lib/random.4th

randomize
cr ." Random generator test... Wait!" cr cr

10 array times                         ( initialize )
10 0 do 0 times i th ! loop

1000000 0 do 1 times random 10 mod th +! loop
                                       ( run random generator )
10 0 do i 7 .r loop cr                 ( report )
space 10 0 do ." ------ " loop cr
10 0 do times i th @ 7 .r loop cr
space 10 0 do ." ------ " loop cr
10 0 do times i th @ 100000 - 7 .r loop cr cr
