[過去ﾛｸﾞ] プログラミングのお題スレ Part21 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
732: デフォルトの名無しさん [] 2023/06/06(火) 22:14:45.84 ID:x5qPYUnP(1) AAS
>>722
722(7): デフォルトの名無しさん [sage] 2023/06/05(月) 17:20:26.45 ID:41NWmDDP(1) AAS
お題　逆順に

文字列が与えられます
使われている文字のリストを作って並べその“反対の”文字を対応させます
例えば登場文字列が
HELLO WORLD
なら出てくる文字をコード順に並べると
" DEHLORW"
であるので
E → O, L →H, ' '→W
となります(空白、句読点等一切区別せず一文字と考えます)
この対応で入力された文字列を変換してください

例　
HELLO WORLD →
LOHHEW EDHR

⑨⑫⑦②⑤⑭⑰⑳㉔①⑩⑬㉒⑲④⑮⑪⑧㉓⑥③⑯㉑⑱ →
⑯⑬⑱㉓⑳⑪⑧⑤①㉔⑮⑫③⑥㉑⑩⑭⑰②⑲㉒⑨④⑦
>>727
727(1): デフォルトの名無しさん [] 2023/06/05(月) 22:09:27.65 ID:hSG7KPux(1) AAS
>>722
PowerShell 4以上 (U+10000以上の文字、結合文字、異体字セレクタに対応)

foreach ($s in "HELLO WORLD", "????????㉔???㉒?????㉓???㉑?", "魚と花󠄁か゚𩸽") {
　　$c = [Globalization.StringInfo]::GetTextElementEnumerator($s) | sort | unique
　　$h = @{}
　　0..($c.length - 1) |% {$h[$c[$_]] = $c[-$_ - 1]}
　　-join $h[[Globalization.StringInfo]::GetTextElementEnumerator($s)]
}

[実行結果]
LOHHEW EDHR
???㉓?????㉔????㉑?????㉒???
と魚花󠄁𩸽か゚
では大・小・全角・半角文字が区別されないのを修正した。PowerShell 2でも正しく動作するようになった。

foreach ($s in "HELLO WORLD", "????????㉔???㉒?????㉓???㉑?", "魚と花󠄁か゚𩸽", "HeLLO ＷoRＬD") {
　　$c = [Globalization.StringInfo]::GetTextElementEnumerator($s) | sort -unique {[int[]][char[]]$_}
　　$h = New-Object Collections.Hashtable
　　0..($c.length - 1) |% {$h[$c[$_]] = $c[-$_ - 1]}
　　-join $h[[Globalization.StringInfo]::GetTextElementEnumerator($s)]
}

[実行結果]
LOHHEW EDHR
???㉓?????㉔????㉑?????㉒???
と魚花󠄁𩸽か゚
oLeeRＷ HODＬ
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.042s