- 113 名前：デフォルトの名無しさん mailto:sage [2020/04/09(木) 00:05:07.49 ID:VEjEdiDF.net]
- >>106 Perl5、ｺﾞﾒﾝ「降順に整列」が抜けてた…orz、やり直し
for (<>) {
($r, @a) = /([-\d]+)/g;
push @s, $r;
for (@a) {
@b = /(\d+)/g;
$h{$_}++ for $b[0]..$b[-1]
}
}
@t = sort{$h{$b} <=> $h{$a}} @s;
printf "$_: %d\n", $h{$_}//0 for @t;
実行結果
https://ideone.com/r4tBGc
