プログラミングのお題スレ Part18
(ID:
UiQUiAYf
のみ表示中)
戻る
261
253
[sage]
AAS
NG
>>226
Perl5
push(@{$h{uc$_}}, $_) for qw{D a B c d c C A E c e B b};
print map{"(@{$h{$_}}) "} sort keys %h;
実行結果
~ $ perl 18_221_NCS_sort_grp.pl
(a A) (B B b) (c c C c) (D d) (E e)
2020/08/09(日)19:01:45.47(
UiQUiAYf.net
)
戻る
ver.151005sp