3 lines
108 B
Forth
3 lines
108 B
Forth
: next-random dup * 1000 / 1000000 mod ;
|
|
: 5-random-num 5 0 do next-random dup . loop ;
|
|
675248 5-random-num
|