作者LiloHuang (筑梦踏实)
看板perl
标题Re: 用递回解一些小问题
时间Sun Mar 18 20:26:28 2007
递回的经典当然就是老鼠走迷宫罗
#!/usr/bin/perl
<<GRAPH;
██████████████████
◇◇◇◇ █ █ ██ ██
█ █◇█ █ █ ██ ██
█ ◇◇◇███ █ █ █
██ ◇◇◇◇◇◇◇█ ██ █
██ █ ██ ██ ◇█ █
██ █ █ ◇◇◇█ ██
██ █ ████ █ ◇█ ██
█████ ██ ◇█ █
█ █ ██◇██ █
█ █ █ █ █ ◇◇◇◇█
███ ███ █ ████◇█
█ █ ██ ◇◇
██████████████████
GRAPH
$startI=1;
$startJ=0;
$endI=12;
$endJ=17;
$success=0;
@maze=(
[2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2],
[0,0,0,0,0,2,0,0,2,0,0,2,2,0,0,0,2,2],
[2,0,2,0,2,0,0,0,2,0,2,0,0,2,2,0,2,2],
[2,0,0,0,0,0,2,2,2,0,2,0,2,0,0,0,0,2],
[2,2,0,0,0,0,0,0,0,0,0,0,2,0,2,2,0,2],
[2,2,0,2,0,2,2,0,2,2,0,0,2,0,0,0,0,2],
[2,2,0,0,0,0,2,0,0,2,0,0,0,0,2,0,2,2],
[2,2,0,0,2,0,2,2,2,2,0,2,0,0,2,0,2,2],
[2,2,2,2,2,0,0,0,2,2,0,0,0,0,2,0,0,2],
[2,0,0,0,0,0,0,0,2,0,0,2,2,0,2,2,0,2],
[2,0,2,0,2,0,0,0,2,0,2,0,0,0,0,0,0,2],
[2,2,2,0,0,0,2,2,2,0,2,0,2,2,2,2,0,2],
[2,0,0,0,2,0,0,0,2,2,0,0,0,0,0,0,0,0],
[2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
);
mousewalk($startI,$startJ);
for($i=0;$i<=13;$i++) {
for($j=0;$j<=17;$j++) {
if($maze[$i][$j]==0) {
print " ";
}elsif($maze[$i][$j]==1) {
print "◇";
}elsif($maze[$i][$j]==2) {
print "█";
}
}
print $/;
}
sub mousewalk {
my($i,$j)=@_;
$maze[$i][$j]=1;
$success=1 if($i==$endI && $j==$endJ);
mousewalk($i,$j+1) if(!$success && $maze[$i][$j+1]==0);
mousewalk($i+1,$j) if(!$success && $maze[$i+1][$j]==0);
mousewalk($i,$j-1) if(!$success && $maze[$i][$j-1]==0);
mousewalk($i-1,$j) if(!$success && $maze[$i-1][$j]==0);
$maze[$i][$j]=0 if(!$success);
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.113.22.65
1F：推 reizarc:唔喔 这个果然有趣 :D 03/20 00:43
2F：推 buganini:接下来可以用递回产生迷宫XD 03/20 17:32