- 87 名前:デフォルトの名無しさん mailto:sage [2018/04/29(日) 23:14:55.98 ID:UI+loYQZ.net]
- >>78 Perl5
@s = split '', '213cba213cba213cba'; @i = 0..$#s; @k = grep{$s[$_] =~ /[a-z]/} 0..$#s; @l = sort @s[@k]; $s[$k[$_]] = $l[$_] for 0..$#k; use feature 'say'; say @s; $ perl 11_77.pl 213aaa213bbb213ccc
|

|