プログラミングのお題スレ Part21

[727 デフォルトの名無しさん 2023/06/05(月) 22:09:27.65 ID:hSG7KPux]

>>722
PowerShell 4以上 (U+10000以上の文字、結合文字、異体字セレクタに対応)

foreach ($s in "HELLO WORLD", "�H�K�F�A�D�M�P�S㉔�@�I�L㉒�R�C�N�J�G㉓�E�B�O㉑�Q", "魚と花󠄁か゚𩸽") {
　　$c = [Globalization.StringInfo]::GetTextElementEnumerator($s) | sort | unique
　　$h = @{}
　　0..($c.length - 1) |% {$h[$c[$_]] = $c[-$_ - 1]}
　　-join $h[[Globalization.StringInfo]::GetTextElementEnumerator($s)]
}

[実行結果]
LOHHEW EDHR
�O�L�Q㉓�S�J�G�D�@㉔�N�K�B�E㉑�I�M�P�A�R㉒�H�C�F
と魚花󠄁𩸽か゚