打印 n X n 的矩阵

打印 n X n 的矩阵
打印 n X n 的矩阵
评论/浏览(0/0)发表时间：2007年4月29日 21时26分

[%repeat_0 match="/data/option"%] [%=@title%] [%=@count%]票 [[%=@percent%]％]
[%_repeat_0%]


#!/usr/bin/perl
#打印 n X n 的矩阵
my $n=10;
for $a(1..$n){
for $b(1..$n){
printf(" %3d ",num($n,$a,$b,0)); }
print "\n";
}
sub num($n,$x,$y,$p){
my ($n,$x,$y,$p)=@_;
if ($x==1){
$p+=$y;
return $p;
}elsif($y==$n){
$p+=$n+$x-1;
return $p;
}
elsif($x==$n){
$p+=$n*3-$y-1;
return $p;
}
elsif($y==1){
$p+=$n*4-$x-2;
return $p;
}
else{
$p+=$n*4-4;
num($n-2,$x-1,$y-1,$p);
}
}
#By MR.WATER
__END__
1 2 3 4 5 6 7 8 9 10
36 37 38 39 40 41 42 43 44 11
35 64 65 66 67 68 69 70 45 12
34 63 84 85 86 87 88 71 46 13
33 62 83 96 97 98 89 72 47 14
32 61 82 95 100 99 90 73 48 15
31 60 81 94 93 92 91 74 49 16
30 59 80 79 78 77 76 75 50 17
29 58 57 56 55 54 53 52 51 18
28 27 26 25 24 23 22 21 20 19
This Just Is MR.WATER!