[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
836(1): 2020/12/09(水)08:45 ID:UMU4oc+t(1/7) AAS
それで書けるなら、sort { } でも書けるよね
840: 2020/12/09(水)10:47 ID:UMU4oc+t(2/7) AAS
順番が変わるだけで処理量は変わらんでしょう
どっちにしろ重い
次にソートする時はソート対象が変わっているんだから、キャッシュできない
有効な局面もあるんだろうけど、今回に関してはトリッキーなだけでメリットがない
841(1): 2020/12/09(水)10:51 ID:UMU4oc+t(3/7) AAS
次のソートじゃなくて、1回のソート内部の複数の比較に対してか
あー、確かに速くなりそうな気がする
処理系が気を利かせて変わらない気もする
843(1): 2020/12/09(水)12:58 ID:UMU4oc+t(4/7) AAS
内部の話だからsayでは判らんだろ
関数で評価しないといけないと判っていて、動的に処理する必要も無いんだから、
評価済みのテーブルを内部に持たせようというのは自然な発想
845(2): 2020/12/09(水)13:44 ID:UMU4oc+t(5/7) AAS
判ってないのかな
処理速度に配慮した処理系があっても不思議ではないという話
手元で試して遅かったとしても、全ての処理系に対する証明にはならない
848(1): 2020/12/09(水)15:17 ID:UMU4oc+t(6/7) AAS
そもそも重いかどうかが疑問で、どっちでやっても一瞬で終わるのが普通
それなら読みやすい方が優れている
重くて困ってから対策を考えればいい
851(2): 2020/12/09(水)18:15 ID:UMU4oc+t(7/7) AAS
別に短く書かなくていいんだよ
@r = sort s2 @a;
sub s1 {
my $str = shift;
$str =~ /(\d+)\-(\d+)/;
return $1 * 100 + $2;
}
sub s2 {
return s1($a) <=> s1($b);
}
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.052s