最近一周在学习 Perl ,刚看完小骆驼书。写点有趣的东西练习练习。灵感来自于这里
。
刚刚起步,可能有些地方还残留着其他语言的痕迹。如果有什么更好的写法请大家不吝赐教。
学习 Perl 是为了写一些处理文本的小工具,今后会陆续发出来的。预计第一个将是 Java 代码转换 AS3 代码的工具。
#!perl
use 5.010;
use strict;
use utf8;
binmode(STDIN, ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');
my $cell=16;
my $cell_char="+";
my $turn = 1;
my (@cells, @line, @rows, $point, $msg);
&init;
while(1) {
system "cls";
&printCells;
if(&checkWin) {
say "[".(!$turn ? "Black" : "White")."] is win!";
last;
}
say $msg if ($msg);
$msg = undef;
say "[".($turn ? "Black" : "White")."] side turn...";
chomp($point = <STDIN>);
unless ($point =~ s/([a-p]{2})/\L\1/i) {
$msg = "Invalid input or out of range. \nPlease enter two character in a-z.";
redo;
}
if (&downChess) {
$turn = !$turn;
} else {
$msg = "Pieces already exist, can not be repeated. \nTry again!";
redo;
}
}
#初始化游戏二维数组
sub init {
for(1..$cell) {
my @line = split(/ /, "$cell_char " x $cell);
push @cells, \@line;
}
@rows = 'a'..'p';
}
#打印游戏当前棋盘
sub printCells {
say " @rows";
for(0..$cell-1){
@line = @{$cells[$_]};
say "$rows[$_] @line";
}
}
#落子
sub downChess {
#解析
my $rowNum = &index(substr $point, 0, 1);
my $colNum = &index(substr $point, 1, 1);
#验证
#return 0 if (!&isInRange($rowNum) or !&isInRange($colNum));
return 0 unless ($cells[$rowNum]->[$colNum] eq $cell_char);
#落子
$cells[$rowNum]->[$colNum] = &turnChar($turn);
return 1;
}
#当前棋子样式
sub turnChar {
return $_[0] ? '@' : 'o';
}
sub isInRange {
return $_[0] >= 0 and $_[0] <= $cell;
}
#传入char,返回与'a'的差
sub index {
ord($_[0]) - ord('a');
}
#判断是否胜利
sub checkWin {
return (&checkVerticalWin or &checkTraverseWin or &checkLeftCantWin);
}
#判断纵向胜利
sub checkVerticalWin {
for my $index (0..$#cells) {
my $time;
for my $line (@cells) {
if(@{$line}[$index] eq &turnChar(!$turn)) {
$time++;
} else {
$time = 0;
}
if($time == 5) {
return 1;
}
}
}
return 0;
}
#判断横向胜利
sub checkTraverseWin {
for(@cells) {#0..$#cells) {
my $time;
for my $chess (@{$_}) {#$cells[$_]}) {
if($chess eq &turnChar(!$turn)) {
$time++;
} else {
$time = 0;
}
#say $time if($time != 0);
if($time == 5) {
return 1;
}
}
}
return 0;
}
#判断向左倾斜
sub checkLeftCantWin {
for my $index (0..$#cells) {
my ($time_right, $time_left, $temp_index);
$temp_index = $index;
for my $line (@cells) {
#左上到右下,上半部分
if(@{$line}[$temp_index] eq &turnChar(!$turn)) {
$time_right++;
} else {
$time_right = 0;
}
#右上到左下,上半部分
if(@{$line}[$#line-$temp_index] eq &turnChar(!$turn)) {
$time_left++;
} else {
$time_left = 0;
}
$temp_index--;
#say $time if ($time != 0);
return 1 if($time_right == 5 or $time_left == 5);
last if($temp_index < 0);
}
$time_right = 0;
$time_left = 0;
for my $line(reverse @cells) {
#左上到右下,下半部分
if(@{$line}[$#line-$index] eq &turnChar(!$turn)) {
$time_right++;
} else {
$time_right = 0;
}
#右上到左下,下半部分
if(@{$line}[$index] eq &turnChar(!$turn)) {
$time_left++;
} else {
$time_left = 0;
}
$index--;
#say $time if ($time != 0);
return 1 if($time_right == 5 or $time_left == 5);
last if($#line == $index);
}
}
return 0;
}
分享到:
相关推荐
Html初学练习Html初学练习Html初学练习Html初学练习 Html初学练习Html初学练习Html初学练习Html初学练习 Html初学练习Html初学练习Html初学练习Html初学练习 Html初学练习Html初学练习Html初学练习Html初学练习 Html...
C#写的五子棋 C#写的五子棋 C#写的五子棋 C#写的五子棋 C#写的五子棋 C#写的五子棋 C#写的五子棋 C#写的五子棋 C#写的五子棋 C#写的五子棋 C#写的五子棋 C#写的五子棋
perl初学必读,perl语言入门(第四版),帮助初学者快速掌握perl语言基础
HTML CSS 初学的练习HTML CSS 初学的练习HTML CSS 初学的练习 HTML CSS 初学的练习HTML CSS 初学的练习HTML CSS 初学的练习 HTML CSS 初学的练习HTML CSS 初学的练习HTML CSS 初学的练习 HTML CSS 初学的练习...
C#写的五子棋,比较简单,适合初学者。里面有源代码。
Perl 常用函数 初学PERL是必备工具。
ava写的五子棋,一个能够画在叉点上的五子棋游戏代码简单、清晰,对于初学者很适合!
Python引入Turtle包写的五子棋游戏,源代码分享。适合初学者练手。 15*15格的简单五子棋。
java面向对象初学者练习小游戏.zipjava面向对象初学者练习小游戏.zip java面向对象初学者练习小游戏.zipjava面向对象初学者练习小游戏.zip java面向对象初学者练习小游戏.zipjava面向对象初学者练习小游戏.zip java...
Java初学者 JDK命令行 路径问题.TXT
这是一个命令行版的斗地主游戏。主要供java初学者练习数组及流程控制的引用,是极好的入门级教材。
用java写的项目,适合初学者学习,在这里免费分享给大家,欢迎下载使用。用java写的项目,适合初学者学习,在这里免费分享给大家,欢迎下载使用。用java写的项目,适合初学者学习,在这里免费分享给大家,欢迎下载...
由于我是初学者,所以我写的五子棋很简单,没有复杂的算法,没有过多的代码。用很傻的办法实现一个小游戏。很值得初学者!
c++初学教程-第2课-命令行计算器_lambda_vector
适用于初学者所学习的五子棋算法 运用VS2005。所绘画的五子棋
java基础练习,适合初学者练习使用,练习难度由浅入深,循序渐进
VB初学练习程序:字体设置. 提供VB初学者的练习小程序。
纯sdk编写,有待成熟。
20以内加减法运算练习(初学Android练习用,开发时从网上东拼西凑了一些代码并经整合调试通过,涉及GridView-动态数组-wav)