子程序每次调用都会创建一个数组，有必要在子程序结束前清空吗？(附上计数排序的代码)

qq64878641

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. use 5.010;
   
4. sub counting_sort(\@){
   
5.     my $a = shift @_;
   
6.     my @arr = @$a;
   
7.     my @count;
   
8.     my @result;
   
9.     for(0..$#arr){
   
10.         $count[$arr[$_]] ++;  #count[i] 包含等于i的元素个数
    
11.     }
    
12.     for(1..$#count){
    
13.         $count[$_] += $count[$_-1] ; #count[i] 包含小于或等于i的元素个数
    
14.     }
    
15.     for(0..$#arr){
    
16.         $result[$count[$arr[$_]]-1] = $arr[$_];
    
17.         $count[$arr[$_]] -- ;
    
18.     }
    
19.     return @result;
    
20. }
    
21. my @array = qw/2 5 3 0 2 3 0 3/;
    
22. my @temp = counting_sort(@array);
    
23. say "@temp";# print  0 0 2 2 3 3 3 5
    

复制代码

用Perl写了一个 计数排序，不知道这样写有没有不对的地方？
另外，Perl子程序每次调用的时候都会创建一个数组，有必要在子程序结束前清空吗？

guap514

回复 1# qq64878641

1. print sort { $a <=> $b } qw/2 5 3 0 2 3 0 3/

复制代码

就排序嘛 写那么多干嘛

qq64878641

回复  qq64878641 就排序嘛 写那么多干嘛
guap514 发表于 2011-04-27 09:55

    呵呵。幽默！ 我用Perl写排序不是为了给一串数排个序，而是在学习算法。
    这个排序我是根据《算法导论》上的伪代码用Perl敲的。 顺便学习下Perl的语法！

x9x9

呵呵。幽默！ 我用Perl写排序不是为了给一串数排个序，而是在学习算法。
    这个排序我是根据《 ...
qq64878641 发表于 2011-04-27 17:57

    即便如此，也一点都不幽默。

jason680

用Perl写了一个 计数排序，不知道这样写有没有不对的地方？
另外，Perl子程序每次调用的时候都会创建一个数 ...
qq64878641 发表于 2011-04-27 09:16

改一下...

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use 5.010;
   
6. 
   
7. sub counting_sort{
   
8.     my @arr = @_;
   
9.     my @count;
   
10.     my @result;
    
11.     my $sCnt;
    
12.    
    
13.     for(@arr){
    
14.         $count[$_]++; #count[i] 等于i的元素
    
15.     }
    
16.     # @count = (2,'', 2, 3,'', 1)
    
17.     #      下标  0  1  2  3  4  5
    
18. 
    
19.     $sCnt = 0; # 下标
    
20.     for(@count){
    
21.         $_ ||= 0;
    
22.         push @result,($sCnt) x $_;
    
23.         $sCnt++
    
24.     }
    
25. 
    
26.     return @result;
    
27. }
    
28. my @array = qw/2 5 3 0 2 3 0 3/;
    
29. my @temp = counting_sort(@array);
    
30. say "@temp";# print 0 0 2 2 3 3 3 5

复制代码