One of n lines in a file: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added whitespace, used a template for the output section.) |
No edit summary |
||
| Line 62: | Line 62: | ||
Example output:<pre> 100104 100075 99761 99851 100457 100315 100101 99557 99678 100101</pre> |
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}}== |
=={{header|ALGOL 68}}== |
||