#!/usr/bin/perluse utf8; binmode STDIN => ":raw"; binmode STDOUT => ":raw"; binmode STDERR => ":raw";use Benchmark;Benchmark::timethese(300000, { 's_original' =>\&s_original, 's_new' => \&s_new, });sub s_original{ my $a = 'あれ'; my $b = '…

Perlで定数を使いたい。 変更を不可にするんじゃなくて、パフォーマンスをアップするために。 で、 http://eureka.prits.jp/resources/developer/perl_memo.html によると、定数関数というのを用いるとインライン展開してくれるらしい。 で、それを自動でや…

#!/usr/bin/perluse utf8; binmode STDIN => ":raw"; binmode STDOUT => ":raw"; binmode STDERR => ":raw";use Benchmark;Benchmark::timethese(150000, { 's_regex' =>\&s_regex, 's_substr' => \&s_substr, });sub s_regex{ my $a = 'オレオレ詐欺'; if($…

Perlソース中の正規表現の最適化をしています。 後方一致をsubstr使ってやったり、とか。詳説 正規表現を読んでいないのでアレですが、 すくなくとも文を前から読んでいく仮定のもとで 決定性オートマトンが容易に思いつかない正規表現は遅いような気がする…

知能システム科学専攻というものの博士課程まで行っておきながら、 ずーっと触ってなかったSVM。 まあ、使われているから調べないと。アルゴリズム本も買うかな。http://www.kernel-machines.org/index.html でちょこちょこ。