螺旋打印

zxpxyz

新近想学perl，从螺旋打印入手。

刚开始奇数不能打印正中间的数，后来做个简单判断。
请高手帮忙改改。

1. 
   
2. #!/usr/bin/env perl
   
3. @z=();
   
4. $n=1;
   
5. #$w=7;
   
6. 
   
7.   my $w;
   
8. 
   
9.   while (1) {
   
10. 
    
11.         print "input number:";
    
12. 
    
13.         $w=<STDIN>;;
    
14. 
    
15.         chomp($w);
    
16. 
    
17. 
    
18.         last if ($w);
    
19. 
    
20.   }
    
21. 
    
22. 
    
23. if ($w%2!=0) {
    
24.         $m=($w+1)/2;
    
25.         print "$m\n";
    
26.         $z[$m][$m]=$w*$w;
    
27. }
    
28. 
    
29. 
    
30. sub zong {
    
31.         for ( $i=$_[0];$i<$_[1];$i++ ) {
    
32.                 for ( $j=$_[0] ) {
    
33.                         $z[$i][$j]=$n;
    
34.                         $n=$n+1;
    
35.                 }
    
36.         }
    
37. }
    
38. sub heng {
    
39.         for $i ( $i=$_[1] ){
    
40.                 for ( $j=$_[0];$j<$_[1];$j++ ){
    
41.                         $z[$i][$j]=$n;
    
42.                         $n=$n+1;
    
43.                 }
    
44.         }
    
45. }
    
46. sub nzong {
    
47.         for ( $i=$_[1];$i>$_[0];$i-- ) {
    
48.                 for ( $j=$e ) {
    
49.                         $z[$i][$j]=$n;
    
50.                         $n=$n+1;
    
51.                 }
    
52.         }
    
53. }
    
54. sub nheng {
    
55.         for $i ( $i=$_[0] ){
    
56.                 for ( $j=$_[1];$j>$_[0];$j-- ){
    
57.                         $z[$i][$j]=$n;
    
58.                         $n=$n+1;
    
59.                 }
    
60.         }
    
61. }
    
62. 
    
63. $b=1;
    
64. $e=$w;
    
65. $c=($b+$e)/2;
    
66. 
    
67. for ( $k=0;$k<=$c;$k++ ) {
    
68.         zong($b,$e);
    
69.         heng($b,$e);
    
70.         nzong($b,$e);
    
71.         nheng($b,$e);
    
72.         $b=$b+1;
    
73.         $e=$e-1;
    
74. }
    
75. 
    
76. 
    
77. 
    
78. for $i ( 0 .. $#z ) {
    
79.         for $j ( 0 .. $#{$z[$i]} ) {
    
80.                 print "$z[$i][$j]\t";
    
81.                 #print "elt $i $j is $z[$i][$j]\n";
    
82.         }
    
83.         print "\n";
    
84. }
    

复制代码

bernana

回复 1# zxpxyz


    这程序写的。。。。。。。不是高手，飘。。。。。。

zxpxyz

回复 2# bernana

那啥。。。

我知道写得很烂，并且我还不懂perl下的很多方便的函数。。。

当作是2维数组和for循环和if判断的流程控制的熟悉吧。

坦白说我还不了解perl，我希望能给我一个学习的方向。。。

bernana

回复  bernana

那啥。。。

我知道写得很烂，并且我还不懂perl下的很多方便的函数。。。

当作是2维 ...
zxpxyz 发表于 2011-01-30 13:30

加上
use strict;
use warnings;

他会告诉你哪错了。

zhlong8

我滴

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. 
   
5. my $n = 15;
   
6. 
   
7. my @aoa;
   
8. 
   
9. my($dx,$dy) = (1, 0);   # 起始方向
   
10. my($x, $y) = (0, 0);    # 起始位置
    
11. 
    
12. sub next {
    
13.     my($nx, $ny) = ($x+$dx, $y+$dy);
    
14. 
    
15.     # 过滤不在矩阵内的坐标
    
16.     if ($nx >= 0 and $ny >= 0 and $nx < $n and $ny < $n) {
    
17.         unless (defined $aoa[$nx][$ny]) {
    
18.             ($x, $y) = ($nx, $ny);
    
19.             return;
    
20.         }
    
21.     }
    
22.     for ([1,0], [0,1],[-1,0], [0,-1]) { #依次查看四个方向有无可用空位
    
23.         my($ndx, $ndy) = @$_;
    
24.         ($nx, $ny) = ($x+$ndx, $y+$ndy);
    
25. 
    
26.         # 过滤不在矩阵内的坐标
    
27.         next if $nx < 0 or $ny < 0 or $nx >= $n or $ny >= $n;
    
28.         unless (defined $aoa[$nx][$ny]) {
    
29.             ($x, $y) = ($nx, $ny);
    
30.             ($dx, $dy) = ($ndx, $ndy);
    
31.             return;
    
32.         }
    
33.     }
    
34. }
    
35. 
    
36. 
    
37. for (1 .. $n*$n) {
    
38.     $aoa[$x][$y] = $_;
    
39.     &next;
    
40. }
    
41. 
    
42. for my $array_ref (@aoa) {
    
43.     printf " %3d", $_ for @$array_ref;
    
44.     print "\n";
    
45. }

复制代码

zxpxyz

回复 4# bernana


感谢，感谢～

加入以后不能执行成功了。。。
看来被我给弄成只能写的代码了

2gua

好长好长。

zxpxyz

回复 5# zhlong8

好漂亮啊！！
羡慕～～