Anonymous user
One of n lines in a file: Difference between revisions
no edit summary
m (→{{header|REXX}}: added whitespace, used a template for the output section.) |
No edit summary |
||
Line 62:
Example output:<pre> 100104 100075 99761 99851 100457 100315 100101 99557 99678 100101</pre>
=={{header|Aime}}==
<lang aime>one_of_n(integer n)
{
integer i, r;
i = r = 0;
while ((r += 1) < n) {
i = drand(r) ? i : r;
}
i;
}
main(void)
{
integer i;
index x;
i = 1000000;
do {
x[one_of_n(10)] += 1;
} while (i -= 1);
x.ucall(o_winteger, 1, 7);
o_newline();
0;
}</lang>
{{Out}}
<pre> 99804 100236 99846 100484 99888 99639 99886 99810 99923 100484</pre>
=={{header|ALGOL 68}}==
| |||