Re: Типа промежуточные итоги;-)
Yury Kopyl
hrg на sama.ru
Чт Сен 25 23:36:28 CDT 2003
Hello, LaVei!
You wrote to "Samara (Russia) Perl Mongers" <samara-pm на mail.pm.org> on Thu,
25 Sep 2003 18:26:59 +0500:
L> Benchmark: timing 500000 iterations of Evgen, LaVei, Yury, hrg...
L> Evgen: 0 wallclock secs ( 1.23 usr + 0.00 sys = 1.23 CPU) @
L> 406504.07/s (n=500000)
L> LaVei: 2 wallclock secs ( 2.11 usr + 0.00 sys = 2.11 CPU) @
L> 236966.82/s (n=500000)
L> Yury: 2 wallclock secs ( 0.88 usr + 0.00 sys = 0.88 CPU) @
L> 568181.82/s (n=500000)
L> hrg: 3 wallclock secs ( 2.06 usr + 0.00 sys = 2.06 CPU) @
L> 242718.45/s (n=500000)
L> Rate LaVei hrg Evgen Yury
L> LaVei 236967/s -- -2% -42% -58%
L> hrg 242718/s 2% -- -40% -57%
L> Evgen 406504/s 72% 67% -- -28%
L> Yury 568182/s 140% 134% 40% --
Кстате, если интересует быстродействие,а не меньшее кол-во строк мона
сделать еще так:
my $format_str='^'.'>'x ($width-1)."~~\n";
my $del_before=qr{ s/^\s+//};
my $del_after =qr{ s/\s+$//};
my $buf;
foreach my $text (split (/\n/,$text)){
$text=~$del_before;
$text=~$del_after;
formline ($format_str,$text);
$buf.=$^A;
};
print $buf;
И еще - ты сравнивал при одинаковой ширине при разбиении для всех
алгоритмов?
With best regards, Yury Kopyl. E-mail: hrg на sama.ru
Подробная информация о списке рассылки Samara-pm