プログラミング学習の記録 723.2 9章(リファレンスを使った実践的なテクニック)の練習問題2(シュワルツ変換と標準のソートのBenchmark)『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール／長尾 高弘 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix　著、伊藤 直也、田中 慎司、吉川 英興　監訳、株式会社ロングテール／長尾 高弘　訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9) の 9章(リファレンスを使った実践的なテクニック),　9.9(練習問題)、2を解いてみる。

 

2.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; use Benchmark qw(:all); my @files = glob "/bin/*"; my $r = timethese(-5, { '標準のソート ' => 'sort { -s $a <=> -s $b } @files', 'シュワルツ変換' => ' my @sorted = map $_->[0], sort {$a->[1]<=>$b->[1]} map[$_, -s $_], @files;', }); cmpthese $r;

入出力結果(Terminal)

$ ./perl_program Benchmark: running シュワルツ変換, 標準のソート for at least 5 CPU seconds... シュワルツ変換: 6 wallclock secs ( 5.53 usr + 0.01 sys = 5.54 CPU) @ 2280092.42/s (n=12631712) 標準のソート : 7 wallclock secs ( 5.37 usr + 0.01 sys = 5.38 CPU) @ 14044450.19/s (n=75559142) Rate シュワルツ変換 標準のソート シュワルツ変換 2280092/s -- -84% 標準のソート 14044450/s 516% $

Perl標準ディストリビューションに含まれているBenchmarkモジュールを利用することによって、標準のソートよりシュワルツ変換を使ったソートの方が上記の場合は14044450.19/2280092.42=約6倍高速になっていることが分かる。