$one = @{'狼'='';'羊'='';'菜'=''};
$two = @{};
While ( $one.count -gt 0 ) {
	$ref1 = Get-Random @($one.keys) -count 1;
	$one.remove($ref1);
	if ( $two.kes -notcontains $ref1 ) { $two.add($ref1,'') };

	if ( ($one.keys -contains '狼' -and $one.keys -contains '羊') -or `
	( $one.keys -contains '羊' -and $one.keys -contains '菜') ) {
		$one.add($ref1,'');
		$two.remove($ref1);
	} else {
		Write-host "人+$ref1 过河" -fore green;
		if ( $two.count -lt 3 ) {
			if ( ($two.keys -contains '狼' -and $two.keys -contains '羊') -or `
			( $two.keys -contains '羊' -and $two.keys -contains '菜') ) {
				$ref2 = Get-Random @($two.keys) -count 1;
				$one.add($ref2,'');
				$two.remove($ref2);
				Write-host "人+$ref2 返回" -fore yellow;
			} else { Write-host "人 返回" }
		}
	}
}
复制代码

[Collections.Arraylist] $one = @('狼','羊','菜');
[Collections.Arraylist] $two = @();
$back = $null;
While ( $one.count -gt 0 ) {
	$ref = Get-Random $one -count 1;
	if ( $ref -ne $back ) { $one.remove($ref) }
	if ( $two -notcontains $ref ) { $null = $two.add($ref) };
	if ( ($one -contains '狼' -and $one -contains '羊') -or `
	( $one -contains '羊' -and $one -contains '菜') ) {
		$null = $one.add($ref);
		$two.remove($ref);
	} else {
		if ( $two.count -lt 3 ) {
			Write-host "人+$ref 过河 → " -fore green -NoNewLine;
			if ( $two.Count -eq 2 ) {
				if ( ($two -contains '狼' -and $two -contains '羊') -or `
				( $two -contains '羊' -and $two -contains '菜') ) {
					if ( $two[0] -ne $ref ) { $back = $two[0] } else { $back = $two[1] };
					$null = $one.add($back);
					$two.remove($back);
					Write-host "人+$back 返回" -fore yellow;
				} else { Write-host "人 返回" }
			} else { Write-host "人 返回" }
		} else { Write-host "人+$ref 过河 Over" -fore red; break };
	}
}
复制代码