Я немного по-другому посчитал:
CPU0: AMD Opteron 23xx (Gen 3 Class Opteron) stepping 01
perl -e 'use Benchmark qw/ timethese /; use List::Util qw/ sum /; use integer;
my @arr = 0 .. 10_000_000 - 1; timethese(10, { FUNC => sub { sum @arr } });'
Benchmark: timing 10 iterations of FUNC...
FUNC: 2 wallclock secs ( 1.75 usr + 0.01 sys = 1.76 CPU) @ 5.68/s
(n=10)
Конечно, мой вариант является троллингом, но все же... :)
С почтением,
Илья Винокуров.
Вторник, 10 февраля 2015, 0:00 +03:00 от vividsnow <[email protected]>:
>perl+pdl:
>
>~$ /usr/bin/time -f 'mem: %MKb' perl -MPDL::LiteF -MBenchmark=countit -e '
>my $s = sequence long, 1e7;
>printf "time: %dms sum: %d\n", 1e3/countit(1, sub { $s->dsum })->iters,
>$s->dsum'
>
>time: 19ms sum: 49999995000000
>mem: 48516Kb
>
>p.s. intel core2duo t7400
>
>On 02/09/2015 11:45 PM, Daniel Podolsky wrote:
>> я тут подумал, и гоняю не один раз этот расчет, а 10 тысяч. исходники,
>> если нужны, готов предоставить.
>>
>> получил вот такие результаты:
>> COMMAND %CPU #TH MEM avg time
>> go 100.5 2/1 122M 7ms
>> go-rt 160.6 15/1 123M 2ms
>> java 109.6 20/1 3008M 4ms
>> groovy 112.2 20/1 1837M 5ms
>>
>> чет эта развлекуха мне поднадоела :) да и очевидно уже, какие шишки в лесу
>> чьи.
>>
>> наблюдал ленивые вычисления в действии - забыл добавить печать суммы в
>> диагностику. время на java тут же упало до нуля.
>>
>> скажите, коллеги, то, что никто из нас даже не подумал потестить перл
>> - это из уважения к сообществу?
>>
>--
>Moscow.pm mailing list
>[email protected] | http://moscow.pm.org
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
