ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vlad                                 2:5020/400     20 Nov 2002  14:13:09
 To : All
 Subject : map и foreach
 -------------------------------------------------------------------------------- 
 

 Привет всем!
 
 Кто может подсказать, почему map работает медленнее прямого перебора
 массива? И почему sort оказывает такое сильное влияние на скорость
 работы map (попробуйте закомментировать строку с сортировкой)?
 Вот код:
 
 #!/usr/bin/perl
 use strict;
 use Time::HiRes qw(tv_interval gettimeofday);
 my $words = "a b c a b c c d ftg g htg ftg tgtg gg h rg tg t t tg yg " x 12000;
 my @words = split /\s+/, $words;
 @words = sort(@words);
 
 my %words_2 = ();
 my $t1 = [gettimeofday];
 foreach (@words) {
     if (defined $words_2{$_}) {
         $words_2{$_} ++;
     }
 }
 print "simple: ",tv_interval($t1, [gettimeofday]), " sec.\n";
 
 my %words_1 = ();
 my $t0 = [gettimeofday];
 map {$words_1{$_}++} @words;
 print "map:    ",tv_interval($t0, [gettimeofday]), " sec.\n";
 
   
 
 -- 
 Best regards,
 VLAD                          
 mailto:vlad@niko.kiev.ua
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: NIKO (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    map и foreach   Vlad   20 Nov 2002 14:13:09   Re: map и foreach   Artem Chuprina   20 Nov 2002 19:55:03   Re[2]: map и foreach   Vlad   20 Nov 2002 21:38:45   Re: Re[2]: map и foreach   Artem Chuprina   20 Nov 2002 22:43:21   Re: map и foreach   Andrey Sapozhnikov   22 Nov 2002 05:22:02   Re[2]: map и foreach   Vlad   24 Nov 2002 21:33:47   Re: map и foreach   Timur Vafin   21 Nov 2002 00:49:19   Re: map и foreach   Artem Chuprina   21 Nov 2002 15:37:35   Re: map и foreach   Timur Vafin   21 Nov 2002 17:46:24   Re: map и foreach   Artem Chuprina   21 Nov 2002 22:01:39   Re: map и foreach   Timur Vafin   22 Nov 2002 15:54:20   Re: map и foreach   Artem Chuprina   23 Nov 2002 14:15:49