nDiki : ベンチマーク

ベンチマーク (benchmark)

2004年7月11日 (日)

過去の今ごろ

過去の7月11日より。

[ permalink ]
[ 7月11日全て ]

2005年5月16日 (月)

PDL の bad value と計算速度

PDL は bad value を扱うことができるのだが、どの程度速度に影響がでるであろうか。 ベンチマークを取ってみた。 環境は Debian GNU/Linux sid + pdl 2.4.2-2 + 2672-PHJ。 

 #!/usr/bin/perl -w
 use strict;

 use PDL;
 use Benchmark;
 my $a = sequence(1000, 1000);
 my $b = sequence(1000, 1000);
 #$a->badflag(1);
 #$b->badflag(1);
 timethis(10, sub { my $c = matmult($a, $b)});

badflag(0) 

 timethis 10: 203 wallclock secs
 (198.90 usr +  0.46 sys = 199.36 CPU) @  0.05/s (n=10)

badflag(1) 

 timethis 10: 416 wallclock secs
 (400.87 usr +  0.92 sys = 401.79 CPU) @  0.02/s (n=10)

ほぼ半分の速度。 ちなみに bad value サポート無しで PDL をリビルドして試してみたが、bad value 無しの計算では(matmult においては)特に差がなかった。

bad value の必要がないならば、PDL をリビルドした方がいいのかと思ってみたけれど実験した範囲ではかわらないようだ。

[ permalink ]
[ 5月16日全て ]

2006年12月19日 (火)

USB メモリが遅い

この間買った USB メモリ、エクスプローラで書き込みしたりすると遅い感じがするので、ベンチマークテストしてみた。 

  ★ ★ ★  HDBENCH Ver 3.40 beta 6 (C)EP82改/かず ★ ★ ★
  Read   Write   RRead  RWrite  Drive
  8500    2076    8499     412  F:\100MB

遅い。

Linux でマウントして書き込むとそれなりに速いのに。

[ permalink ]
[ 12月19日全て ]

2012年9月28日 (金)

今日のさえずり: ライブリファクタリング芸いつもすごい

2012年09月28日

[ permalink ]
[ 9月28日全て ]

2013年7月23日 (火)

Perl で「いくつかの値のどれかと同じか判定」するにはやはりハッシュにして exists するのが速い

Perl で「ある値が、いくつかの値のどれかと同じか判定」するには、あらかじめ判定用のハッシュを作っておくのが定石だし、実際に速い。けど実際にどれぐらい速いのかな。

試してみる。手元の環境は Perl 5.14.2。どれかにマッチするのは 0.1% というケースでベンチマーク。 

 #!/usr/bin/perl

 use warnings;
 use strict;

 use Benchmark qw(cmpthese);
 use List::MoreUtils qw(any);

 foreach my $size (3, 10, 100) {
   my @a = (1 .. $size);
   my %h;
   $h{$_}++ foreach @a;

   cmpthese(
     -30,
     {
       "grep($size)" => sub {
         foreach my $i (1 .. $size * 1000) {
           my $exists = grep { $_ == $i } @a;
         }
       },
       "any($size)" => sub {
         foreach my $i (1 .. $size * 1000) {
           my $exists = any { $_ == $i } @a;
         }
       },
       "exists($size)" => sub {
         foreach my $i (1 .. $size * 1000) {
           my $exists = exists $h{$i};
         }
       },
       "make & exists($size)" => sub {
         foreach my $i (1 .. $size * 1000) {
           my %my_h;
           $my_h{$_}++ foreach @a;
           my $exists = exists $my_h{$i};
         }
       },
     }
   );
   print "\n";
 }

結果

                   Rate        any(3) make & exists(3)       grep(3)    exists(3)
 any(3)           107/s            --             -33%          -77%         -87%
 make & exists(3) 160/s           49%               --          -66%         -80%
 grep(3)          471/s          339%             194%            --         -43%
 exists(3)        820/s          665%             412%           74%           --

                    Rate      any(10) make & exists(10)     grep(10)  exists(10)
 any(10)           21.1/s           --               -8%         -67%        -91%
 make & exists(10) 23.0/s           9%                --         -65%        -90%
 grep(10)          64.9/s         208%              182%           --        -73%
 exists(10)         240/s        1036%              941%         269%          --

                     s/iter make & exists(100)   any(100)  grep(100) exists(100)
 make & exists(100)     3.48                 --       -50%       -65%        -99%
 any(100)               1.75                99%         --       -30%        -97%
 grep(100)              1.23               182%        42%         --        -96%
 exists(100)        4.49e-02              7643%      3797%      2641%          --

やはりハッシュを作っておいた方が速いね。ただし毎回その場で配列に入っているものからハッシュを作って判定処理するぐらいなら100個程度なら grep した方が速い。

配列の全件をほぼ毎回舐めることになる今回のケースでは any よりも grep の方が速い。

Happy Benchmarking!

[ permalink ]
[ 7月23日全て ]
月別インデックス

About

Naney Naneymx

Naney (なにい) です。株式会社MIXIで SNS 事業の部長をしています。

※本サイトの内容は個人的見解であり所属組織とは関係ありません。

Process Time: 0.020423s / load averages: 0.30, 0.27, 0.21