One of n lines in a file: Difference between revisions
no edit summary
(Added Elixir) |
No edit summary |
||
Line 1,534:
Output:
<pre>-> (99893 100145 99532 100400 100263 100229 99732 100116 99709 99981)</pre>
=={{header|PowerShell}}==
'''Translation''' of: '''C#'''
<lang PowerShell>
function Get-OneOfN ([int]$Number)
{
$current = 1
for ($i = 2; $i -le $Number; $i++)
{
$limit = 1 / $i
if ((Get-Random -Minimum 0.0 -Maximum 1.0) -lt $limit)
{
$current = $i
}
}
$current
}
$table = [ordered]@{}
for ($i = 1; $i -lt 11; $i++)
{
$table.Add(("Line {0,2}" -f $i), 0)
}
for ($i = 0; $i -lt 1000000; $i++)
{
$index = (Get-OneOfN -Number 10) - 1
$table[$index] = $table[$index] + 1
}
[PSCustomObject]$table
</lang>
{{Out}}
<pre>
Line 1 : 99928
Line 2 : 100067
Line 3 : 100415
Line 4 : 100133
Line 5 : 100555
Line 6 : 99845
Line 7 : 99625
Line 8 : 99968
Line 9 : 99864
Line 10 : 99600
</pre>
=={{header|PureBasic}}==
| |||