Re: слишком умный supercite

SO> ====================== test.pl ======================= #!/usr/bin/perl SO> -w use strict; use Benchmark; SO> my ＠words = (qw(a b c a b c c d ftg g htg ftg tgtg gg h rg tg t t tg SO> yg)) SO> x 12000; SO> my ＠swords = sort ＠words; SO> timethese -10, { SO> 'foreach' => sub { SO> my %w; SO> foreach (＠words) { SO> $w{$_}++; SO> } SO> }, SO> 'oneline' => sub { SO> my %w; SO> $w{$_}++ foreach ＠words; SO> }, У меня квотится вот так. Чем-то не устраивает? ---Vas