[原创代码] [Perl]Win32::Console版生命游戏

523066680

环境: Perl 5.16.3, Win32
循环设置了1000次，按ESC可提前退出。
思路写的不太漂亮，先简单实现吧

use Term::ReadKey;
use Win32::Console;
use Time::HiRes 'sleep';
use IO::Handle;
STDOUT->autoflush(1);
system("mode con lines=40 cols=80");

our $OUT=Win32::Console->new(STD_OUTPUT_HANDLE);
$OUT->Cursor(20, 20, 99, 0);  #hide cursor

my ($i, $j);
our ($rows, $cols) = (40, 40);
our ($mxrow, $mxcol) = ($rows-1, $cols-1);

# init
our @coord;
my (@h, @n);
my $y = 0;

foreach (<DATA>) {
    s/\r?\n$//;
    tr/\*\./10/;
    @{$h[$y++]} = ( split("", $_) );
}

foreach $i (0 .. $mxrow) {
    foreach $j (0 .. $mxcol) {
        $coord[$i][$j]{'x'} = $j*2;
        $coord[$i][$j]{'y'} = $i;
        $h[$i][$j] = 0 unless (defined $h[$i][$j]);
        $n[$i][$j] = 0;
    }
}

&Draw(\@n, \@h);
foreach (0..1000) {
    sleep 0.1;
    @n = ();
    &NextBuffer(\@h, \@n);
    &Draw(\@h, \@n);
    @h = (@n);
    &KeyFunc();
}

sub NextBuffer {
    my ($ra, $rb) = (shift, shift);
    my ($i, $j, $sum, $n);
    my ($L, $R, $U, $D, $vi, $vj);
    foreach $i (0 .. $mxrow) {
        $U = ($i-1) < 0 ? $mxrow : ($i-1);
        $D = ($i+1) > $mxrow ? 0 : ($i+1);
        foreach $j (0 .. $mxcol) {
            $sum = 0;
            $L = ($j-1) < 0 ? $mxcol : ($j-1);
            $R = ($j+1) > $mxcol ? 0 : ($j+1);
            $sum = $ra->[$U][$L] + $ra->[$U][$j] + $ra->[$U][$R] +
                   $ra->[$i][$L] +        0      + $ra->[$i][$R] +
                   $ra->[$D][$L] + $ra->[$D][$j] + $ra->[$D][$R];

            if ($sum == 3) {
                $rb->[$i][$j] = 1;
            } elsif ($sum == 2) {
                $rb->[$i][$j] = $ra->[$i][$j];
            } else {
                $rb->[$i][$j] = 0;
            }
        }
    }
}

sub Draw {
    my ($ra, $rb) = (shift, shift);
    foreach $i (0 .. $mxrow) {
        foreach $j (0 .. $mxcol) {
            if ($rb->[$i][$j] != $ra->[$i][$j]) {
                &Point( 
                    $coord[$i][$j]{'x'}, 
                    $coord[$i][$j]{'y'}, 
                    $rb->[$i][$j],
                );
            }
        }
    }
}

sub Point {
    my ($mx, $my, $light) = (shift, shift, shift);
    my $color;
    if ($light == 1) {
        $color = $FG_WHITE|$BG_GRAY;
    } else {
        $color = $FG_WHITE|$BG_BLACK;
    }
    $OUT->Cursor($mx, $my);
    $OUT->FillAttr($color, 2, $mx, $my);
}

sub KeyFunc {
    my $key;
    $key = ReadKey(-1);
    return if (not defined $key);
    if ( ord($key) == 27 ) {
        exit;
    }
}


__DATA__
......................**...............
......................**...............
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.........*..........**...**............
.......*.*............***..............
......*.*............*...*.............
**...*..*.............*.*..............
**....*.*..............*...............
.......*.*......*.*....................
.........*......**.....................
.................*...*.................
.....................**......*.........
....................*.*......*.*.......
...............*..............*.*....**
..............*.*.............*..*...**
.............*...*............*.*......
..............***............*.*.......
............**...**..........*.........
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
.......................................
...............**......................
...............**......................
复制代码

523066680

我都没做过这个东东
neorobin 发表于 2014-9-21 11:38

    规则：

1． 如果一个细胞周围有3个细胞为生（一个细胞周围共有8个细胞），则该细胞为生（即该细胞若原先为死，则转为生，若原先为生，则保持不变） 。
2． 如果一个细胞周围有2个细胞为生，则该细胞的生死状态保持不变；
3． 在其它情况下，该细胞为死（即该细胞若原先为生，则转为死，若原先为死，则保持不变）
设定图像中每个像素的初始状态后依据上述的游戏规则演绎生命的变化，由于初始状态和迭代次数不同，将会得到令人叹服的优美图案。

    有些生命游戏的模式超赞  发个wiki链接
Conway's Game of Life

523066680

回复 4# neorobin


      确定不使用 C + 图形库 吗 ……
有时间搞个3D+半透明效果方块组成的细胞自动机，应该很有趣。

523066680

回复 6# neorobin


    果然是走在前线的，表示也是业余玩个兴趣。

523066680

回复 9# neorobin

上传到公共图床然后论坛贴图咯，可能加载会比wikipedia的快一些

523066680

回复  neorobin
cmd命令怎么删掉_106.lif结尾的文件名 del .*_106.lif不行啊 你给的链接里面好多文件 我要 ...
普大喜奔 发表于 2014-9-28 12:59

把.*改成 *

    你可以改成  dir *_106.lif 看看结果对不对，然后改成del