比较3种算法的效率

zhshb8511

采用下面两种方式生成200个随机4位数，并存入文件中，
想知道那种实现方式比较好？ 给出理由。

自己分析：第一种算法从时间复杂度上考虑，比较低效；
               第二种算法比较耗内存，尤其是数组内容过大的时候
               第三种是自己认为最好的

请大家帮忙分析，或不惜晒出更好的实现方式

第一种实现方式：

1. #!/usr/bin/perl
   
2. #use strict;
   
3. use warnings;
   
4. 
   
5. #生成200随机数
   
6. open(FH_200,">IN_all.txt") || die $!;
   
7. for(my $total = 1; $total <= 200;  $total++){
   
8.         my $single_4_word = 1000 * ((int rand(9)) + 1)
   
9.                             + 100 * (int rand(10))
   
10.                             + 10* (int rand(10))
    
11.                             + (int rand(10));
    
12.         print FH_200 $single_4_word."\n";
    
13.         }
    
14. close(FH_200);

复制代码

第二种实现方式：

1. #!/usr/bin/perl
   
2. #use strict;
   
3. use warnings;
   
4. my @all_number = (1000..9999);
   
5. #9000个数据，序号分别为0-8999
   
6. #生成200随机数
   
7. open(FH_200,">IN_all.txt") || die $!;
   
8. for(my $total = 1; $total <= 200;  $total++){
   
9.         my $hello = int rand(9000);
   
10.         print FH_200 $all_number[$hello]."\n";
    
11.         }
    
12. close(FH_200);

复制代码

第三种实现方式：

1. #!/usr/bin/perl
   
2. #use strict;
   
3. use warnings;
   
4. #生成200随机数
   
5. open(FH_200,">IN_all.txt") || die $!;
   
6. for(my $total = 1; $total <= 200;  $total++){
   
7.         my $hello = (int rand(9)+1).(int rand(10)).(int rand(10)).(int rand(10));
   
8.         print FH_200 $hello."\n";
   
9.         }
   
10. close(FH_200);

复制代码

zhlong8

say 1000 + int rand 9000 for 1 .. 200;

zhshb8511

回复 2# zhlong8


    zhlong8 兄的回复让我恍然大悟，for 1 .. 200; 这样的写作方式前面看到过，但自己没能吸收，惭愧