1 USING: io.files io.encodings.ascii random math.parser io math ;
4 : random-numbers-path ( -- path )
5 "random-numbers.txt" temp-file ;
7 : write-random-numbers ( n -- )
8 random-numbers-path ascii [
9 [ 200 random 100 - number>string print ] times
13 1000000 write-random-numbers ;