比較3種算法的效率

zhshb8511

采用下面兩種方式生成200個(gè)隨機(jī)4位數(shù)，并存入文件中，
想知道那種實(shí)現(xiàn)方式比較好？ 給出理由。

自己分析：第一種算法從時(shí)間復(fù)雜度上考慮，比較低效；
               第二種算法比較耗內(nèi)存，尤其是數(shù)組內(nèi)容過大的時(shí)候
               第三種是自己認(rèn)為最好的

請(qǐng)大家?guī)兔Ψ治�，或不惜曬出更好的�?shí)現(xiàn)方式

第一種實(shí)現(xiàn)方式：

1. #!/usr/bin/perl
   
2. #use strict;
   
3. use warnings;
   
4. 
   
5. #生成200隨機(jī)數(shù)
   
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);

復(fù)制代碼

第二種實(shí)現(xiàn)方式：

1. #!/usr/bin/perl
   
2. #use strict;
   
3. use warnings;
   
4. my @all_number = (1000..9999);
   
5. #9000個(gè)數(shù)據(jù)，序號(hào)分別為0-8999
   
6. #生成200隨機(jī)數(shù)
   
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);

復(fù)制代碼

第三種實(shí)現(xiàn)方式：

1. #!/usr/bin/perl
   
2. #use strict;
   
3. use warnings;
   
4. #生成200隨機(jī)數(shù)
   
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);

復(fù)制代碼

zhlong8

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

zhshb8511

回復(fù) 2# zhlong8


    zhlong8 兄的回復(fù)讓我恍然大悟，for 1 .. 200; 這樣的寫作方式前面看到過，但自己沒能吸收，慚愧