One of n lines in a file: Difference between revisions
Content added Content deleted
(Added Elixir) |
No edit summary |
||
Line 1,534: | Line 1,534: | ||
Output: |
Output: |
||
<pre>-> (99893 100145 99532 100400 100263 100229 99732 100116 99709 99981)</pre> |
<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}}== |
=={{header|PureBasic}}== |