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 のアルゴリズムだ。
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 のアルゴリズムだ。