Monty Hall simulation in PowerShell

function Test-MontyHall {
    param (
        [int] $MaxSimulations = 1000,
        [bool] $SwapChoice = $true
    )

    $detailLog = @()
    $winCount = 0
    $loseCount = 0
 
    for ($simulationCount = 1; $simulationCount -le $MaxSimulations; $simulationCount++) {
        # Pick a random door for the prize and your choice, both from 1..3
        $prizeDoor = (Get-Random 3) + 1
        $firstChoice = (Get-Random 3) + 1
        # Pick one of the doors left over to be shown to be empty
        $emptyDoor = (1..3 | Where { $_ -notin $firstChoice, $prizeDoor } | Select -First 1)
        
        # Stay with our first choice
        if (!$SwapChoice) {
            $secondChoice = $firstChoice
        } else {
            # Or swap our choice to the other remaining closed door
            $secondChoice = (1..3 | Where { $_ -notin $firstChoice,$emptyDoor })
        }
         
        # Evaluate the result
        if ($prizeDoor -eq $secondChoice) {
            $winCount++
        } else {
            $loseCount++       
        }

        $detailLog += [PSCustomObject] @{
            FirstChoice = $firstChoice
            EmptyDoor = $emptyDoor
            SecondChoice = $secondChoice
            PrizeDoor = $prizeDoor
        }
    }
 
    # Our final counts
    [PSCustomObject] @{
        Win = $winCount
        Lose = $loseCount
        SuccessPercentage = ("{0:P0}" -f ($winCount / $MaxSimulations))
        DetailLog = $detailLog
    }
}

Cls
$simulationCount = 1000

# Run some tests because I had a lot of bugs in the code along the way
$false, $true | %{
    Write-Host "Testing Monty Hall results ($(if ($_) { "swap choice" } else { "stay with original choice" })): " -NoNewLine

    $test = Test-MontyHall -SimulationCount $simulationCount -SwapChoice $_
    if ($test.Win -ne ($test.DetailLog | Where-Object { $_.SecondChoice -eq $_.PrizeDoor } | Measure-Object).Count) {
        Write-Error "Testing win count failed"
    }
    if ($test.DetailLog | Where-Object { $_.EmptyDoor -in $_.FirstChoice,$_.SecondChoice,$_.PrizeDoor }) {
        Write-Error "Testing empty doors failed"
    }
    if ($test.DetailLog | Where-Object { !($_.FirstChoice -is [int] -and $_.EmptyDoor -is [int] -and $_.SecondChoice -is [int] -and $_.PrizeDoor -is [int]) }) {
        Write-Error "Testing door assignment failed"
    }
    Write-Host "Ok"
}

"Running Monty Hall, $simulationCount simulations, staying with original choice"
$stay = Test-MontyHall -SimulationCount $simulationCount -SwapChoice $false
$stay | Format-List
 
"Running Monty Hall, $simulationCount simulations, swapping choice"
$swap = Test-MontyHall -SimulationCount $simulationCount -SwapChoice $true
$swap | Format-List