Anonymous user
One of n lines in a file: Difference between revisions
m
→{{header|REXX}}: added/changed whitespace and comments.
(Add Forth) |
m (→{{header|REXX}}: added/changed whitespace and comments.) |
||
Line 1,569:
=={{header|REXX}}==
<lang rexx>/*REXX
N=10 /*the number of lines in pseudo-file. */
do 1000000 /*perform main loop one million
?=1
do k=1 for N /*N is the
if random(0,99999) / 100000 < 1/k then ?=k /*the
end /*k*/
end /*1000000*/
do j=1 for N
say "number of times line" right(j,2) "was selected:" right(
end /*j*/
/*stick a fork in it, we're all done. */</lang>
'''output'''
<pre>
number of times line 1 was selected: 99752
number of times line 2 was selected: 100060
|