くだすれPerl（超初心者用）

くだすれPerl（超初心者用） at PHP

20:nobodyさん
06/09/26 22:45:11
これやってみろ。
my @sorted = sort {
print $a . "＼t" . $b . "＼n" ;
$a <=> $b
} qw( 5 10 3 5 4 2 1 ) ;
少くとも $a < $b なんて確定ではないことは明白。

URLﾘﾝｸ(www.ics.kagoshima-u.ac.jp)
ここ読め。perl 5.8 以降の sort のアルゴリズムだ。

次ページ

続きを表示

1を表示