Perl
Perlではその名もBenchmarkというモジュールを使うと 簡単にベンチマーク=性能比較を行えます。まずはやってみました。 #!/usr/bin/perl -w use strict; use Benchmark qw/timethese cmpthese/; my $result = timethese( 10000, { loop1 => sub{ my $i = 0;…
「バタバタしていて…」と心の中でできない社会人の典型な言い訳している内に ブログの最終更新日から10日も経っていました。反省します。今日、知ったこと map関数を使うと配列からハッシュを作れる。 例えば配列の要素をキーにして、バリューには1を入れた…
配列の添字に正の数と0以外を設定した場合の挙動を調べてみました。 負の値を添字に指定すると、添字の中で最大のものを-1に割り当てて、絶対値が大きくなるに連れて配列を逆向き(末尾から先頭)に見ていきます。 例、 要素数3である@fredを使用。 $fred[-1…
変数名は、意味をなす限り、できるだけ長くなるように解釈されます。 (初めてのPerl P40) Perlでは、変数名に英数字またはアンスコを続けると それも変数名だと解釈されます。 #!/usr/bin/perl use strict; use warnings; my $what = "brontosaurus steak"…