[過去ﾛｸﾞ] プログラミングのお題スレ Part21 (1002ﾚｽ)

プログラミングのお題スレ Part21 http://mevius.5ch.net/test/read.cgi/tech/1668333636/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

728: 638 [sage] 2023/06/06(火) 01:24:29.34 ID:gRU+jG8g >>726 しくった utf-8文字を可変長16進数にunpackして辞書的順番でsortするので、例題では意図した通りの結果を得られたが、 半角と全角などutf-8でバイト数の異なる文字が混在する文字列の場合には、順番が違ってくるだろうな… http://mevius.5ch.net/test/read.cgi/tech/1668333636/728

729: 638 [sage] 2023/06/06(火) 02:40:16.03 ID:gRU+jG8g >>726 Perlで文字の数値コードを返すord()関数は半角文字の場合にASCIIコードを返すが、 全角Unicode文字ではコードポイントを返す、ということなので、素直にそれを使い、 文字列としてっではなく数値としてsortし 　%h = map{unpack('H*', encode('utf-8', $_)) => $_} @s; 　@i = reverse @c = sort keys %h; 　　↓を 　%h = map{ord($_) => $_} @s; 　@i = reverse @c = sort{$a <=> $b} keys %h; と修正するのがよさげ。連投ｽﾏｿ http://mevius.5ch.net/test/read.cgi/tech/1668333636/729

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 1.741s*