康威的生活 |电源外壳
Conway's Life | Powershell
我一直致力于在 Powershell 中创建一个基本的 Conway 生命游戏模拟器，以更加熟悉该语言。但是我当前的代码错误地计算了相邻单元格的数量，因此游戏无法运行。我相信我的包装是正确的，据我所知，但似乎 'up' 我的邻居计数。
代码如下：
function next-gen{
param([System.Array]$origM)
$tmpM = $origM
For($x=0; $x -lt $tmpM.GetUpperBound(0); $x++ ){
For($y=0; $y -lt $tmpM.GetUpperBound(1); $y++){
$neighborCount = getNeighbors $tmpM $x $y
if($neighborCount -lt 2 -OR $neighborCount -gt 3){
$tmpM[$x,$y] = 0
}
elseif($neighborCount -eq 3){
$tmpM[$x, $y] = 1
}
}
}
$Global:origM = $tmpM
}
function getNeighbors{
param(
[System.Array]$g,
[Int]$x,
[Int]$y
)
$newX=0
$newY=0
$count=0
for($newX = -1; $newX -le 1; $newX++){
for($newY = -1; $newY -le 1; $newY++){
if($g[$(wrap $x $newX),$(wrap $y $newY)]){
$count++
}
}
}
return $count
}
function wrap{
param(
[Int]$z,
[Int]$zEdge
)
$z+=$zEdge
If($z -lt 0){
$z += $size
}
ElseIf($z -ge $size){
$z -= $:size
}
return $z
}
function printBoard{
0..$m.GetUpperBound(0) |
% { $dim1=$_; (0..$m.GetUpperBound(1) | % { $m[$dim1, $_] }) -join ' ' }
write-host ""
}
#board is always a square, size represents both x and y
$size = 5
$m = New-Object 'int[,]' ($size, $size)
$m[2,1] = 1
$m[2,2] = 1
$m[2,3] = 1
clear
printBoard
For($x=0; $x -lt 1; $x++){
next-gen $m
printBoard
write-host ""
}
使用上面演示中的电路板设置，结果应该是指示灯：
第 0 代
0 0 0 0 0
0 0 0 0 0
0 1 1 1 0
0 0 0 0 0
0 0 0 0 0
第一代
0 0 0 0 0
0 0 1 0 0
0 0 1 0 0
0 0 1 0 0
0 0 0 0 0
对于那些不熟悉的人，可以在这里找到规则：
Wikipedia - Conway's Game of Life
我添加了一些调试代码（write-verbose），并找到了错误所在。
首先，您正在检查 $tmpm 数组（正在更新）中的邻居，而不是当前这一代）。
其次，你在设置 $global:OrigM 时你的意思是 $Global:M 在 next-gen 函数的末尾，但它实际上必须是 $script:M，因为变量存在于 script 作用域，而不是 global 作用域。
此外，getNeighbors错误地将目标位置本身视为邻居，而不仅仅是周围的 8 个位置。
function next-gen{
param([System.Array]$origM)
$size=1+$origM.GetUpperBound(0)
$tmpM = New-Object 'int[,]' ($size, $size)
For($x=0; $x -lt $size; $x++ ){
For($y=0; $y -lt $size; $y++){
$neighborCount = getNeighbors $origm $x $y
if($neighborCount -lt 2 -OR $neighborCount -gt 3){
$tmpM[$x,$y] = 0
write-verbose "Clearing $x,$y"
}
elseif($neighborCount -eq 3 -or $OrigM[$x,$y] -eq 1){
$tmpM[$x, $y] = 1
write-verbose "Setting $x,$y"
}
}
}
$script:M = $tmpM
}
function getNeighbors{
param(
[System.Array]$g,
[Int]$x,
[Int]$y
)
$newX=0
$newY=0
$count=0
for($newX = -1; $newX -le 1; $newX++){
for($newY = -1; $newY -le 1; $newY++){
if($newX -ne 0 -or $newY -ne 0){
$neighborx=wrap $x $newx
$neighborY=wrap $y $newY
write-verbose "x=$x y=$y Nx=$neighborx Ny=$neighborY"
if($g[$neighborx,$neighborY] -eq 1){
write-verbose "Neighbor at $neighborx, $neighborY is Set!"
$count++
}
}
}
}
write-verbose "x=$x y=$y Neighbor count = $count"
return $count
}
function wrap{
param(
[Int]$z,
[Int]$zEdge
)
$z+=$zEdge
If($z -lt 0){
$z += $size
}
ElseIf($z -ge $size){
$z -= $size
}
return $z
}
function printBoard{
0..$m.GetUpperBound(0) |
% { $dim1=$_; (0..$m.GetUpperBound(1) | % { $m[$dim1, $_] }) -join ' ' }
write-host ""
}
#board is always a square, size represents both x and y
$size = 5
$m = New-Object 'int[,]' ($size, $size)
$m[2,1] = 1
$m[2,2] = 1
$m[2,3] = 1
clear
printBoard
For($x=0; $x -lt 1; $x++){
next-gen $m
printBoard
write-host ""
}
P.S。你在下一代循环中的边界检查偏离了 1，我让它从一个干净的板开始而不是重新使用上一代（因为你明确设置了每个位置，所以这并不重要）。
已经提供了一个可行的解决方案和对问题中代码问题的解释。
让我用一个重构版本来补充它：
通过 [ref]（通过引用）变量就地更新板变量，以便连续调用按需要工作。
具有灵活的显示功能，允许指定要显示的世代数，是否就地更新显示，以及世代之间暂停多长时间。
- 如果您按原样运行 代码，将显示 5 代，就地更新，暂停 1 秒。几代人之间。
使用更符合 PowerShell 命名约定的函数名称。
让代码更健壮，比如通过：
- 完全避免使用脚本级（或全局）变量。
- 顺便说一句：全局变量是 session-global 并在脚本退出后保留在范围内；如果需要 "script-global" 个变量，请使用
$script: 范围；该脚本范围（不是 global 范围）是在脚本顶层没有明确范围创建的变量的默认值。
- 使用强类型
[int[,]] 参数作为接收板的参数。
- 防止引用未初始化的变量。
注意：可以在 this Gist 中找到具有交互功能的完整游戏的有效实现；适用于 Windows PowerShell v3+ 和 PowerShell Core。
$ErrorActionPreference = 'Stop' # Abort on all unhandled errors.
Set-StrictMode -version 1 # Prevent use of uninitialized variables.
# Given a board as $m_ref, calculates the next generation and assigns it
# back to $m_ref.
function update-generation {
param(
[ref] [int[,]]$m_ref # the by-reference board variable (matrix)
)
# Create a new, all-zero clone of the current board (matrix) to
# receive the new generation.
$m_new = New-Object 'int[,]' ($m_ref.Value.GetLength(0), $m_ref.Value.GetLength(1))
For($x=0; $x -le $m_new.GetUpperBound(0); $x++ ){
For($y=0; $y -le $m_new.GetUpperBound(1); $y++){
# Get the count of live neighbors.
# Note that the *original* matrix must be used to:
# - determine the live neighbors
# - inspect the current state
# because the game rules must be applied *simultaneously*.
$neighborCount = get-LiveNeighborCount $m_ref.Value $x $y
if ($m_ref.Value[$x,$y]) { # currently LIVE cell
# A live cell with 2 or 3 neighbors lives, all others die.
$m_new[$x,$y] = [int] ($neighborCount -eq 2 -or $neighborCount -eq 3)
} else { # curently DEAD cell
# A currently dead cell is resurrected if it has 3 live neighbors.
$m_new[$x,$y] = [int] ($neighborCount -eq 3)
}
$null = $m_new[$x,$y]
}
}
# Assign the new generation to the by-reference board variable.
$m_ref.Value = $m_new
}
# Get the count of live neighbors for board position $x, $y.
function get-LiveNeighborCount{
param(
[int[,]]$m, # the board (matrix)
[Int]$x,
[Int]$y
)
$xLength = $m.GetLength(0)
$yLength = $m.GetLength(1)
$count = 0
for($xOffset = -1; $xOffset -le 1; $xOffset++) {
for($yOffset = -1; $yOffset -le 1; $yOffset++) {
if (-not ($xOffset -eq 0 -and $yOffset -eq 0)) { # skip the position at hand itself
if($m[(get-wrappedIndex $xLength ($x + $xOffset)),(get-wrappedIndex $yLength ($y + $yOffset))]) {
$count++
}
}
}
}
# Output the count.
$count
}
# Given a potentially out-of-bounds index along a dimension of a given length,
# return the wrapped-around-the-edges value.
function get-wrappedIndex{
param(
[Int]$length,
[Int]$index
)
If($index -lt 0){
$index += $length
}
ElseIf($index -ge $length){
$index -= $length
}
# Output the potentially wrapped index.
$index
}
# Print a single generation's board.
function show-board {
param(
[int[,]] $m # the board (matrix)
)
0..$m.GetUpperBound(0) |
ForEach-Object {
$dim1=$_
(0..$m.GetUpperBound(1) | ForEach-Object { $m[$dim1, $_] }) -join ' '
}
}
# Show successive generations.
function show-generations {
param(
[int[,]] $Board,
[uint32] $Count = [uint32]::MaxValue,
[switch] $InPlace,
[int] $MilliSecsToPause
)
# Print the initial board (the 1st generation).
Clear-Host
show-board $Board
# Print the specified number of generations or
# indefinitely, until Ctrl+C is pressed.
[uint32] $i = 1
while (++$i -le $Count -or $Count -eq [uint32]::MaxValue) {
# Calculate the next generation.
update-generation ([ref] $Board)
if ($MilliSecsToPause) {
Start-Sleep -Milliseconds $MilliSecsToPause
}
if ($InPlace) {
Clear-Host
} else {
'' # Output empty line before new board is printed.
}
# Print this generation.
show-board $Board
}
}
# Board is always a square, $size represents both x and y.
$size = 5
$board = New-Object 'int[,]' ($size, $size)
# Seed the board.
$board[2,1] = 1
$board[2,2] = 1
$board[2,3] = 1
# Determine how many generations to show and how to show them.
$htDisplayParams = @{
Count = 5 # How many generations to show (1 means: just the initial state);
# omit this entry to keep going indefinitely.
InPlace = $True # Whether to print subsequent generations in-place.
MilliSecsToPause = 1000 # To slow down updates.
}
# Start showing the generations.
show-generations -Board $board @htDisplayParams
警告：即将看到的是极其骇人听闻的……本质上是图形化的。
不，即使对于新手来说，这段代码也很草率，所以我深表歉意。
这里是在B/W中输出到控制台的版本。如果您愿意，它还会为您随机生成 # 个种子。它不是很漂亮而且我在工作所以目前没有时间花在它上 :) 希望本周末 github 一个整洁的版本。
$ErrorActionPreference = 'Stop' # Abort on all unhandled errors.
Set-StrictMode -version 1 # Prevent use of uninitialized variables.
# Given a board as $m_ref, calculates the next generation and assigns it
# back to $m_ref.
function update-generation {
param(
[ref] [int[,]]$m_ref # the by-reference board variable (matrix)
)
# Create a new, all-zero clone of the current board (matrix) to
# receive the new generation.
$m_new = New-Object 'int[,]' ($m_ref.Value.GetLength(0), $m_ref.Value.GetLength(1))
For($x=0; $x -le $m_new.GetUpperBound(0); $x++ ){
For($y=0; $y -le $m_new.GetUpperBound(1); $y++){
# Get the count of live neighbors.
# Note that the *original* matrix must be used to:
# - determine the live neighbors
# - inspect the current state
# because the game rules must be applied *simultaneously*.
$neighborCount = get-LiveNeighborCount $m_ref.Value $x $y
if ($m_ref.Value[$x,$y]) { # currently LIVE cell
# A live cell with 2 or 3 neighbors lives, all others die.
$m_new[$x,$y] = [int] ($neighborCount -eq 2 -or $neighborCount -eq 3)
} else { # curently DEAD cell
# A currently dead cell is resurrected if it has 3 live neighbors.
$m_new[$x,$y] = [int] ($neighborCount -eq 3)
}
$null = $m_new[$x,$y]
}
}
# Assign the new generation to the by-reference board variable.
$m_ref.Value = $m_new
}
# Get the count of live neighbors for board position $x, $y.
function get-LiveNeighborCount{
param(
[int[,]]$m, # the board (matrix)
[Int]$x,
[Int]$y
)
$xLength = $m.GetLength(0)
$yLength = $m.GetLength(1)
$count = 0
for($xOffset = -1; $xOffset -le 1; $xOffset++) {
for($yOffset = -1; $yOffset -le 1; $yOffset++) {
if (-not ($xOffset -eq 0 -and $yOffset -eq 0)) { # skip the position at hand itself
if($m[(get-wrappedIndex $xLength ($x + $xOffset)),(get-wrappedIndex $yLength ($y + $yOffset))]) {
$count++
}
}
}
}
# Output the count.
$count
}
# Given a potentially out-of-bounds index along a dimension of a given length,
# return the wrapped-around-the-edges value.
function get-wrappedIndex{
param(
[Int]$length,
[Int]$index
)
If($index -lt 0){
$index += $length
}
ElseIf($index -ge $length){
$index -= $length
}
# Output the potentially wrapped index.
$index
}
# Print a single generation's board.
function show-board {
param(
[int[,]] $m # the board (matrix)
)
0..$m.GetUpperBound(0) |
ForEach-Object {
$dim1=$_
(0..$m.GetUpperBound(1) | ForEach-Object { $m[$dim1, $_] }) -join ' '
}
}
# Show successive generations.
function show-generations {
param(
[int[,]] $Board,
[uint32] $Count = [uint32]::MaxValue,
[switch] $InPlace,
[int] $MilliSecsToPause
)
# Print the initial board (the 1st generation).
Clear-Host
#show-board $Board
drawIt $Board
# Print the specified number of generations or
# indefinitely, until Ctrl+C is pressed.
[uint32] $i = 1
while (++$i -le $Count -or $Count -eq [uint32]::MaxValue) {
# Calculate the next generation.
update-generation ([ref] $Board)
if ($MilliSecsToPause) {
Start-Sleep -Milliseconds $MilliSecsToPause
}
if ($InPlace) {
Clear-Host
} else {
'' # Output empty line before new board is printed.
}
# Print this generation.
#show-board $Board
drawIt $Board
}
}
function drawIt{
param([int[,]]$m_ref)
For($x=0; $x -le $m_ref.GetUpperBound(0); $x++ ){
For($y=0; $y -le $m_ref.GetUpperBound(1); $y++){
$val = $m_ref[$x,$y]
If($val -eq 1){
$cellColor = 'White'
}
Else{
$cellColor = 'Black'
}
#write-host $cellColor.GetType()
Write-Host " " -NoNewline -BackgroundColor $CellColor
Write-Host " " -NoNewline
}
Write-Host '' #start a new line
}
}
# Board is always a square, $size represents both x and y.
$size = 10 #change this to change size of the board
$board = New-Object 'int[,]' ($size, $size)
$seedCount = 17 #change this to change # of alive cells to start with
# Seed the board.
for($seed = 0; $seed -lt $seedCount ; $seed ++){
$board[$(Get-random -Maximum ($size -1)),$(Get-random -Maximum ($size -1))] = 1
}
# Determine how many generations to show and how to show them.
$htDisplayParams = @{
Count = 25 # how many generations to show (1 means: just the initial state)
# omit this entry to keep going indefinitely
InPlace = $True # whether to print subsequent generations in-place
MilliSecsToPause = 1000 # To slow down updates
}
# Start showing the generations.
show-generations -Board $board @htDisplayParams
非常感谢 mklement0 和 Mike Shepard 花时间提供帮助并提供指导和建议。
我一直致力于在 Powershell 中创建一个基本的 Conway 生命游戏模拟器，以更加熟悉该语言。但是我当前的代码错误地计算了相邻单元格的数量，因此游戏无法运行。我相信我的包装是正确的，据我所知，但似乎 'up' 我的邻居计数。
代码如下：
function next-gen{
param([System.Array]$origM)
$tmpM = $origM
For($x=0; $x -lt $tmpM.GetUpperBound(0); $x++ ){
For($y=0; $y -lt $tmpM.GetUpperBound(1); $y++){
$neighborCount = getNeighbors $tmpM $x $y
if($neighborCount -lt 2 -OR $neighborCount -gt 3){
$tmpM[$x,$y] = 0
}
elseif($neighborCount -eq 3){
$tmpM[$x, $y] = 1
}
}
}
$Global:origM = $tmpM
}
function getNeighbors{
param(
[System.Array]$g,
[Int]$x,
[Int]$y
)
$newX=0
$newY=0
$count=0
for($newX = -1; $newX -le 1; $newX++){
for($newY = -1; $newY -le 1; $newY++){
if($g[$(wrap $x $newX),$(wrap $y $newY)]){
$count++
}
}
}
return $count
}
function wrap{
param(
[Int]$z,
[Int]$zEdge
)
$z+=$zEdge
If($z -lt 0){
$z += $size
}
ElseIf($z -ge $size){
$z -= $:size
}
return $z
}
function printBoard{
0..$m.GetUpperBound(0) |
% { $dim1=$_; (0..$m.GetUpperBound(1) | % { $m[$dim1, $_] }) -join ' ' }
write-host ""
}
#board is always a square, size represents both x and y
$size = 5
$m = New-Object 'int[,]' ($size, $size)
$m[2,1] = 1
$m[2,2] = 1
$m[2,3] = 1
clear
printBoard
For($x=0; $x -lt 1; $x++){
next-gen $m
printBoard
write-host ""
}
使用上面演示中的电路板设置，结果应该是指示灯：
第 0 代
0 0 0 0 0
0 0 0 0 0
0 1 1 1 0
0 0 0 0 0
0 0 0 0 0
第一代
0 0 0 0 0
0 0 1 0 0
0 0 1 0 0
0 0 1 0 0
0 0 0 0 0
对于那些不熟悉的人，可以在这里找到规则： Wikipedia - Conway's Game of Life
我添加了一些调试代码（write-verbose），并找到了错误所在。
首先，您正在检查 $tmpm 数组（正在更新）中的邻居，而不是当前这一代）。
其次，你在设置 $global:OrigM 时你的意思是 $Global:M 在 next-gen 函数的末尾，但它实际上必须是 $script:M，因为变量存在于 script 作用域，而不是 global 作用域。
此外，getNeighbors错误地将目标位置本身视为邻居，而不仅仅是周围的 8 个位置。
function next-gen{
param([System.Array]$origM)
$size=1+$origM.GetUpperBound(0)
$tmpM = New-Object 'int[,]' ($size, $size)
For($x=0; $x -lt $size; $x++ ){
For($y=0; $y -lt $size; $y++){
$neighborCount = getNeighbors $origm $x $y
if($neighborCount -lt 2 -OR $neighborCount -gt 3){
$tmpM[$x,$y] = 0
write-verbose "Clearing $x,$y"
}
elseif($neighborCount -eq 3 -or $OrigM[$x,$y] -eq 1){
$tmpM[$x, $y] = 1
write-verbose "Setting $x,$y"
}
}
}
$script:M = $tmpM
}
function getNeighbors{
param(
[System.Array]$g,
[Int]$x,
[Int]$y
)
$newX=0
$newY=0
$count=0
for($newX = -1; $newX -le 1; $newX++){
for($newY = -1; $newY -le 1; $newY++){
if($newX -ne 0 -or $newY -ne 0){
$neighborx=wrap $x $newx
$neighborY=wrap $y $newY
write-verbose "x=$x y=$y Nx=$neighborx Ny=$neighborY"
if($g[$neighborx,$neighborY] -eq 1){
write-verbose "Neighbor at $neighborx, $neighborY is Set!"
$count++
}
}
}
}
write-verbose "x=$x y=$y Neighbor count = $count"
return $count
}
function wrap{
param(
[Int]$z,
[Int]$zEdge
)
$z+=$zEdge
If($z -lt 0){
$z += $size
}
ElseIf($z -ge $size){
$z -= $size
}
return $z
}
function printBoard{
0..$m.GetUpperBound(0) |
% { $dim1=$_; (0..$m.GetUpperBound(1) | % { $m[$dim1, $_] }) -join ' ' }
write-host ""
}
#board is always a square, size represents both x and y
$size = 5
$m = New-Object 'int[,]' ($size, $size)
$m[2,1] = 1
$m[2,2] = 1
$m[2,3] = 1
clear
printBoard
For($x=0; $x -lt 1; $x++){
next-gen $m
printBoard
write-host ""
}
P.S。你在下一代循环中的边界检查偏离了 1，我让它从一个干净的板开始而不是重新使用上一代（因为你明确设置了每个位置，所以这并不重要）。
让我用一个重构版本来补充它：
通过
[ref]（通过引用）变量就地更新板变量，以便连续调用按需要工作。具有灵活的显示功能，允许指定要显示的世代数，是否就地更新显示，以及世代之间暂停多长时间。
- 如果您按原样运行 代码，将显示 5 代，就地更新，暂停 1 秒。几代人之间。
使用更符合 PowerShell 命名约定的函数名称。
让代码更健壮，比如通过：
- 完全避免使用脚本级（或全局）变量。
- 顺便说一句：全局变量是 session-global 并在脚本退出后保留在范围内；如果需要 "script-global" 个变量，请使用
$script:范围；该脚本范围（不是 global 范围）是在脚本顶层没有明确范围创建的变量的默认值。
- 顺便说一句：全局变量是 session-global 并在脚本退出后保留在范围内；如果需要 "script-global" 个变量，请使用
- 使用强类型
[int[,]]参数作为接收板的参数。 - 防止引用未初始化的变量。
- 完全避免使用脚本级（或全局）变量。
注意：可以在 this Gist 中找到具有交互功能的完整游戏的有效实现；适用于 Windows PowerShell v3+ 和 PowerShell Core。
$ErrorActionPreference = 'Stop' # Abort on all unhandled errors.
Set-StrictMode -version 1 # Prevent use of uninitialized variables.
# Given a board as $m_ref, calculates the next generation and assigns it
# back to $m_ref.
function update-generation {
param(
[ref] [int[,]]$m_ref # the by-reference board variable (matrix)
)
# Create a new, all-zero clone of the current board (matrix) to
# receive the new generation.
$m_new = New-Object 'int[,]' ($m_ref.Value.GetLength(0), $m_ref.Value.GetLength(1))
For($x=0; $x -le $m_new.GetUpperBound(0); $x++ ){
For($y=0; $y -le $m_new.GetUpperBound(1); $y++){
# Get the count of live neighbors.
# Note that the *original* matrix must be used to:
# - determine the live neighbors
# - inspect the current state
# because the game rules must be applied *simultaneously*.
$neighborCount = get-LiveNeighborCount $m_ref.Value $x $y
if ($m_ref.Value[$x,$y]) { # currently LIVE cell
# A live cell with 2 or 3 neighbors lives, all others die.
$m_new[$x,$y] = [int] ($neighborCount -eq 2 -or $neighborCount -eq 3)
} else { # curently DEAD cell
# A currently dead cell is resurrected if it has 3 live neighbors.
$m_new[$x,$y] = [int] ($neighborCount -eq 3)
}
$null = $m_new[$x,$y]
}
}
# Assign the new generation to the by-reference board variable.
$m_ref.Value = $m_new
}
# Get the count of live neighbors for board position $x, $y.
function get-LiveNeighborCount{
param(
[int[,]]$m, # the board (matrix)
[Int]$x,
[Int]$y
)
$xLength = $m.GetLength(0)
$yLength = $m.GetLength(1)
$count = 0
for($xOffset = -1; $xOffset -le 1; $xOffset++) {
for($yOffset = -1; $yOffset -le 1; $yOffset++) {
if (-not ($xOffset -eq 0 -and $yOffset -eq 0)) { # skip the position at hand itself
if($m[(get-wrappedIndex $xLength ($x + $xOffset)),(get-wrappedIndex $yLength ($y + $yOffset))]) {
$count++
}
}
}
}
# Output the count.
$count
}
# Given a potentially out-of-bounds index along a dimension of a given length,
# return the wrapped-around-the-edges value.
function get-wrappedIndex{
param(
[Int]$length,
[Int]$index
)
If($index -lt 0){
$index += $length
}
ElseIf($index -ge $length){
$index -= $length
}
# Output the potentially wrapped index.
$index
}
# Print a single generation's board.
function show-board {
param(
[int[,]] $m # the board (matrix)
)
0..$m.GetUpperBound(0) |
ForEach-Object {
$dim1=$_
(0..$m.GetUpperBound(1) | ForEach-Object { $m[$dim1, $_] }) -join ' '
}
}
# Show successive generations.
function show-generations {
param(
[int[,]] $Board,
[uint32] $Count = [uint32]::MaxValue,
[switch] $InPlace,
[int] $MilliSecsToPause
)
# Print the initial board (the 1st generation).
Clear-Host
show-board $Board
# Print the specified number of generations or
# indefinitely, until Ctrl+C is pressed.
[uint32] $i = 1
while (++$i -le $Count -or $Count -eq [uint32]::MaxValue) {
# Calculate the next generation.
update-generation ([ref] $Board)
if ($MilliSecsToPause) {
Start-Sleep -Milliseconds $MilliSecsToPause
}
if ($InPlace) {
Clear-Host
} else {
'' # Output empty line before new board is printed.
}
# Print this generation.
show-board $Board
}
}
# Board is always a square, $size represents both x and y.
$size = 5
$board = New-Object 'int[,]' ($size, $size)
# Seed the board.
$board[2,1] = 1
$board[2,2] = 1
$board[2,3] = 1
# Determine how many generations to show and how to show them.
$htDisplayParams = @{
Count = 5 # How many generations to show (1 means: just the initial state);
# omit this entry to keep going indefinitely.
InPlace = $True # Whether to print subsequent generations in-place.
MilliSecsToPause = 1000 # To slow down updates.
}
# Start showing the generations.
show-generations -Board $board @htDisplayParams
警告：即将看到的是极其骇人听闻的……本质上是图形化的。 不，即使对于新手来说，这段代码也很草率，所以我深表歉意。
这里是在B/W中输出到控制台的版本。如果您愿意，它还会为您随机生成 # 个种子。它不是很漂亮而且我在工作所以目前没有时间花在它上 :) 希望本周末 github 一个整洁的版本。
$ErrorActionPreference = 'Stop' # Abort on all unhandled errors.
Set-StrictMode -version 1 # Prevent use of uninitialized variables.
# Given a board as $m_ref, calculates the next generation and assigns it
# back to $m_ref.
function update-generation {
param(
[ref] [int[,]]$m_ref # the by-reference board variable (matrix)
)
# Create a new, all-zero clone of the current board (matrix) to
# receive the new generation.
$m_new = New-Object 'int[,]' ($m_ref.Value.GetLength(0), $m_ref.Value.GetLength(1))
For($x=0; $x -le $m_new.GetUpperBound(0); $x++ ){
For($y=0; $y -le $m_new.GetUpperBound(1); $y++){
# Get the count of live neighbors.
# Note that the *original* matrix must be used to:
# - determine the live neighbors
# - inspect the current state
# because the game rules must be applied *simultaneously*.
$neighborCount = get-LiveNeighborCount $m_ref.Value $x $y
if ($m_ref.Value[$x,$y]) { # currently LIVE cell
# A live cell with 2 or 3 neighbors lives, all others die.
$m_new[$x,$y] = [int] ($neighborCount -eq 2 -or $neighborCount -eq 3)
} else { # curently DEAD cell
# A currently dead cell is resurrected if it has 3 live neighbors.
$m_new[$x,$y] = [int] ($neighborCount -eq 3)
}
$null = $m_new[$x,$y]
}
}
# Assign the new generation to the by-reference board variable.
$m_ref.Value = $m_new
}
# Get the count of live neighbors for board position $x, $y.
function get-LiveNeighborCount{
param(
[int[,]]$m, # the board (matrix)
[Int]$x,
[Int]$y
)
$xLength = $m.GetLength(0)
$yLength = $m.GetLength(1)
$count = 0
for($xOffset = -1; $xOffset -le 1; $xOffset++) {
for($yOffset = -1; $yOffset -le 1; $yOffset++) {
if (-not ($xOffset -eq 0 -and $yOffset -eq 0)) { # skip the position at hand itself
if($m[(get-wrappedIndex $xLength ($x + $xOffset)),(get-wrappedIndex $yLength ($y + $yOffset))]) {
$count++
}
}
}
}
# Output the count.
$count
}
# Given a potentially out-of-bounds index along a dimension of a given length,
# return the wrapped-around-the-edges value.
function get-wrappedIndex{
param(
[Int]$length,
[Int]$index
)
If($index -lt 0){
$index += $length
}
ElseIf($index -ge $length){
$index -= $length
}
# Output the potentially wrapped index.
$index
}
# Print a single generation's board.
function show-board {
param(
[int[,]] $m # the board (matrix)
)
0..$m.GetUpperBound(0) |
ForEach-Object {
$dim1=$_
(0..$m.GetUpperBound(1) | ForEach-Object { $m[$dim1, $_] }) -join ' '
}
}
# Show successive generations.
function show-generations {
param(
[int[,]] $Board,
[uint32] $Count = [uint32]::MaxValue,
[switch] $InPlace,
[int] $MilliSecsToPause
)
# Print the initial board (the 1st generation).
Clear-Host
#show-board $Board
drawIt $Board
# Print the specified number of generations or
# indefinitely, until Ctrl+C is pressed.
[uint32] $i = 1
while (++$i -le $Count -or $Count -eq [uint32]::MaxValue) {
# Calculate the next generation.
update-generation ([ref] $Board)
if ($MilliSecsToPause) {
Start-Sleep -Milliseconds $MilliSecsToPause
}
if ($InPlace) {
Clear-Host
} else {
'' # Output empty line before new board is printed.
}
# Print this generation.
#show-board $Board
drawIt $Board
}
}
function drawIt{
param([int[,]]$m_ref)
For($x=0; $x -le $m_ref.GetUpperBound(0); $x++ ){
For($y=0; $y -le $m_ref.GetUpperBound(1); $y++){
$val = $m_ref[$x,$y]
If($val -eq 1){
$cellColor = 'White'
}
Else{
$cellColor = 'Black'
}
#write-host $cellColor.GetType()
Write-Host " " -NoNewline -BackgroundColor $CellColor
Write-Host " " -NoNewline
}
Write-Host '' #start a new line
}
}
# Board is always a square, $size represents both x and y.
$size = 10 #change this to change size of the board
$board = New-Object 'int[,]' ($size, $size)
$seedCount = 17 #change this to change # of alive cells to start with
# Seed the board.
for($seed = 0; $seed -lt $seedCount ; $seed ++){
$board[$(Get-random -Maximum ($size -1)),$(Get-random -Maximum ($size -1))] = 1
}
# Determine how many generations to show and how to show them.
$htDisplayParams = @{
Count = 25 # how many generations to show (1 means: just the initial state)
# omit this entry to keep going indefinitely
InPlace = $True # whether to print subsequent generations in-place
MilliSecsToPause = 1000 # To slow down updates
}
# Start showing the generations.
show-generations -Board $board @htDisplayParams
非常感谢 mklement0 和 Mike Shepard 花时间提供帮助并提供指导和建议。