« 組込Windows向けのアンチウイルス機器 | Main | マウス検定(DPZ版) »

かっこいい

かっこいいPerlのコードを発見した。

while (<>) { $line = $_ if $. * rand() < 1.0; } print $line;

これは結城さんのメールマガジンで知った。

ランダムに選んだ1行を表示するプログラムです。 このプログラムの特徴は、 ・各行が選ばれる確率は等しい ・全体の行数が最初は不明でもかまわない ・(原理的には)一行分しかメモリを消費しない という3点です。

すげー。おいらはプログラマじゃないんだが、こういうスマートなことがしたいものだ。
最近地を這うような感じ仕事が多い(それはそれで嫌いではないが)。
たまにはスマートな仕事もいい。

|

« 組込Windows向けのアンチウイルス機器 | Main | マウス検定(DPZ版) »

Comments

Post a comment



(Not displayed with comment.)




TrackBack

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/7373/2819589

Listed below are links to weblogs that reference かっこいい:

« 組込Windows向けのアンチウイルス機器 | Main | マウス検定(DPZ版) »