- 642 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 22:08:43.18 ID:DBPerFhf.net]
- >>622
途中の
say $n;
は不要なdebug write、
削除して下記と差し替え
use List::Util max;
use feature say;
for (<DATA>) {
@a = split;
$n = max map{length} @a;
$b = join '', sort map{$_.'a'x($n-length)} @a;
$b =~ s/a//g;
say $b;
}
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
