弊社の、とあるエンジニアだけが集まるミーティングで、毎週ライブコーディングでアルゴリズム勝負をやるみたいなコーナーを設けてたりします。 毎週ベンチマーク対決をやり、最強のやつに勝てるアルゴリズムで挑戦します。 #!/usr/local/bin/perl use strict; use Benchmark qw(:all); my @args = qw(foo bar baz); cmpthese(100000, { champ => sub { champ(\@args) }, yours => sub { yours(\@args) }, }); # winner sub champ { my $args = shift; # do something } # your code here sub yours { } 実際のものはもっと数多くのベンチマークのパターンがあるのですが、こんな
