プログラミングのお題 ..
639:デフォルトの名無しさん
18/11/21 21:47:53.81 DBPerFhf.net
>>618 Perl5
use feature say;
for (<DATA>) {
s/\s*//g;
$z = tr/0//;
@a = grep{$_} sort split '';
$a = shift @a;
say join '',($a, (0)x$z, @a);
}
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
execution
$ perl 12_614.pl
123
1122
10111111112233445566789
次ページ続きを表示1を表示最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
1879日前に更新/360 KB
担当:undef