Anonymous user
One of n lines in a file: Difference between revisions
→Icon and Unicon
(→{{header|C}}: Name change.) |
|||
Line 48:
return 0;
}</lang>output<lang>100561 99814 99816 99721 99244 99772 100790 100072 99997 100213</lang>
=={{header|Icon}} and {{header|Unicon}}==
<lang Icon>procedure main() # one of n
one_of_n_test(10,1000000)
end
procedure one_of_n(n)
every i := 1 to n do
choice := (?0 < 1. / i, i)
return \choice | fail
end
procedure one_of_n_test(n,trials)
bins := table(0)
every i := 1 to trials do
bins[one_of_n(n)] +:= 1
every writes(bins[i := 1 to n]," ")
return bins
end</lang>
Sample output:<pre>99470 99806 99757 99921 100213 100001 99778 100385 100081 100588</pre>
=={{header|Perl 6}}==
| |||