[過去ﾛｸﾞ] プログラミングのお題スレ Part21 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
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
⑨⑫⑦②⑤⑭⑰⑳㉔①⑩⑬㉒⑲④⑮⑪⑧㉓⑥③⑯㉑⑱ →
⑯⑬⑱㉓⑳⑪⑧⑤①㉔⑮⑫③⑥㉑⑩⑭⑰②⑲㉒⑨④⑦
723: デフォルトの名無しさん [] 2023/06/05(月) 19:56:23.90 ID:8ZOWtKfv(1) AAS
>>722
Java
外部ﾘﾝｸ:paiza.io
725: 638 [sage] 2023/06/05(月) 21:31:53.30 ID:4V5NjjYa(2/3) AAS
>>722 Perl5
use feature qw{signatures say};
use utf8; binmode STDOUT => 'utf8';
use Encode 'encode';
sub f($s) {
@s = split '', $s;
%h = map{unpack('H*', encode('utf-8', $_)) => $_} @s;
@i = reverse @c = sort keys %h;
%o = map{$h{$c[$_]} => $h{$i[$_]}} 0..$#c;
say map{$o{$_}} @s;
}
f 'HELLO WORLD';
f '⑨⑫⑦②⑤⑭⑰⑳?①⑩⑬?⑲④⑮⑪⑧?⑥③⑯?⑱';
※見易くするためインデントは全角スペースに置換してあります。
実行結果:
$ perl 21_722.pl
LOHHEW EDHR
⑯⑬⑱?⑳⑪⑧⑤①?⑮⑫③⑥?⑩⑭⑰②⑲?⑨④⑦
726(2): 638 [sage] 2023/06/05(月) 21:35:18.29 ID:4V5NjjYa(3/3) AAS
>>722 Perl5 ｽﾏｿ、ﾋﾞｭｰﾜｰから書き込んだら丸数字の一部が文字化けしたのでﾌﾞﾗｳｻﾞから再書き込み
use feature qw{signatures say};
use utf8; binmode STDOUT => 'utf8';
use Encode 'encode';
sub f($s) {
@s = split '', $s;
%h = map{unpack('H*', encode('utf-8', $_)) => $_} @s;
@i = reverse @c = sort keys %h;
%o = map{$h{$c[$_]} => $h{$i[$_]}} 0..$#c;
say map{$o{$_}} @s;
}
f 'HELLO WORLD';
f '????????㉔???㉒?????㉓???㉑?';
実行結果
$ perl 21_722.pl
LOHHEW EDHR
???㉓?????㉔????㉑?????㉒???
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
???㉓?????㉔????㉑?????㉒???
と魚花󠄁𩸽か゚
731: デフォルトの名無しさん [sage] 2023/06/06(火) 21:42:34.58 ID:hMwocYm9(2/2) AAS
>>722 ruby
外部ﾘﾝｸ:ideone.com
f = ->(s) {s.chars.uniq.sort.join.tap{|u| break s.tr(u, u.reverse)}}
p f.('HELLO WORLD')
p f.('????????㉔???㉒?????㉓???㉑?')
#p f.('HELLO WORLD-') # trのパターンになっちゃう文字があるとダメ
732: デフォルトの名無しさん [] 2023/06/06(火) 22:14:45.84 ID:x5qPYUnP(1) AAS
>>722
>>727では大・小・全角・半角文字が区別されないのを修正した。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Ｌ
750: デフォルトの名無しさん [] 2023/06/10(土) 01:30:29.55 ID:yUcAFYfk(1) AAS
>>722
Kotlin
○付き数字はブラウザやフォントの設定によっては表示が文字ごとに大きかったり小さかったりするかも知れない。
外部ﾘﾝｸ:paiza.io
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.041s