罪罰改造板２/269

$RK_E{$R{'nm'}} = $R{'rank_exe'}; # 貢献値の設定

$l = $rk = 1;
foreach $nm (sort sclv keys(%LV_V)){
	$lv_v = $LV_V{$nm};
	next if($lv_v<=0);
	if($lv_v<$prv_lv){ $rk = $l; }

• foreach $nm (sort {$RK_E{$b} <=> $RK_E{$a}} keys(%RK_E)){