[過去ﾛｸﾞ] Perlについての質問箱 64箱目 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

849(5): 2020/12/09(水)16:44 ID:qaSCdqDS(1) AAS
map {
$_->[0];
} sort {
$a->[1] <=> $b->[1] || $a->[2] <=> $b->[2];
} map {
[$_, /(\d+)/g ];
}

読みにくい…かなあ?

---

850(1): 2020/12/09(水)17:06 ID:8NKLSi5o(1) AAS
>>849
他の言語の人が見たら発狂しそう

---

856(1): 849 2020/12/10(木)06:03 ID:+FxPMgzN(1) AAS
読みやすい優れたコードが >>851 か。
自分のコードを出してくれた点は評価するが
$1 * 100 + $2
って何?

---

877: 532 2020/12/12(土)00:48 ID:tTwN9OuS(3/3) AAS
>>849
おっとここに十分な解答があったわｗ

---

884: 532 2020/12/12(土)10:47 ID:+ekv//0b(2/2) AAS
こうやって幾つかｺｰﾄﾞ書いてみて…>>849かTie::IxHashで十分な気がしたわｗ

---

893: 849 2020/12/18(金)16:30 ID:1Xc4Ax1A(2/2) AAS
sub Schwalts {
@tmp = @_;
@tmp = map { [$_, /(\d+)/g ] } @tmp;
@tmp = sort { $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] } @tmp;
( map { $_->[0] } @tmp);
}

を短く書いたのがシュワルツ変換だよ
くらいの説明はした方がいいのかな。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.294s*