Magic Gumball Simulation

MagicGumball.ps1

function Get-StatisticsResults {

    $NumberOfQuarters = 10;
    $PercentageOfGettingQuarterBack = 0.5;
    $NumberOfGumballs = 0;

    while ($NumberOfQuarters -ne 0) {
        $NumberOfGumballs++;
        $RandNumber = (Get-Random -Minimum 0.0 -Maximum 1.0)
        if ($RandNumber -lt $PercentageOfGettingQuarterBack) {
            $NumberOfQuarters--;
        }
    }

    return $NumberOfGumballs

}

1..10000 | 
    ForEach-Object { Get-StatisticsResults } | 
    Group-Object | 
    Select-Object Name,Count,@{Name="Graph";Expression={"*" * [math]::floor($_.Count / 50)}} | 
    Sort-Object Name