一个Perl 的 '九九表' 谁能再把它优化一下。

彩叶草

for (1..9) {
   $tp=1;
       while(1) {
       printf "$_*$tp=%2d",$tp*$_;
       if ($tp==$_) {
         print "\n"; last;
       } else {print " ";}
       $tp++;
      }
}

y6cmE

1. 
   
2. my @array=(1..9);
   
3. foreach my $gh(@array){
   
4.         map{print "$gh*$_=",$gh*$_,"\t" unless($gh < $_)}(1..9);
   
5. }
   

复制代码

pupilzeng

没什么好优化的了
这个算法的复杂度就是这个反正是要打印9*(1+9)/2次，再怎么优化也得打印这么多次

aaccdd

1. for (1..9) {
   
2.         for ($i=1;$i<=$_;$i++) {
   
3.                 printf "$_*$i=%2d ",$_*$i;
   
4.         }
   
5.         print "\n";
   
6. }
   

复制代码

aaccdd

1. 
   
2. my @array=(1..9);
   
3. foreach my $gh(@array){
   
4.         map{print "$gh*$_=",$gh*$_,"\t" unless($gh < $_)}(1..9);
   
5. }
   

复制代码

输出格式有问题呐

aaccdd

这个可以：

1. 
   
2. foreach my $a(1..9){
   
3.         map{printf "$a*$_=%2d ",$a*$_ unless($a<$_);print "\n" if($a==$_);}(1..9);
   
4. }
   

复制代码

sfatsdu

贴一段ruby

1. 
   
2. 1.upto(9) do |i|
   
3.         1.upto(i) {|j| print(i.to_s + "*" + j.to_s + "=" + (i*j).to_s + " ")}
   
4.         puts ""
   
5. end
   

复制代码

维扬剑客

代码比楼主的简洁，不过没有及时跳出内循环。
吹毛求疵一下，呵呵。

Post by aaccdd
这个可以：

1. 
   
2. foreach my $a(1..9){
   
3.         map{printf "$a*$_=%2d ",$a*$_ unless($a<$_);print "\n" if($a==$_);}(1..9);
   
4. }
   

复制代码