プログラミングのお題スレ Part15

[754 デフォルトの名無しさん 2019/10/12(土) 13:09:50.35 ID:Nq/Z/R6A]

>>744 perl

use List::Util qw(sum);
$h{sum(split"")}++ for(0..9999);
map{print"$_ $h{$_}\n"}sort{$a<=>$b}keys%h;