結果

問題 No.625 ソンタクロース
ユーザー tails
提出日時 2017-12-25 00:40:12
言語 Perl
(5.40.0)
結果
AC  
実行時間 166 ms / 4,000 ms
コード長 306 bytes
コンパイル時間 460 ms
コンパイル使用メモリ 6,820 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2024-12-17 18:42:16
合計ジャッジ時間 1,795 ms
ジャッジサーバーID
(参考情報)
judge4 / judge1
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 3
other AC * 21
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #

($n,$m)=glob<>;
for$i(0..$n-1){
	@b=sort{$a-$b}@a;
	$w=($i+1)>>1;
	$c=$b[$w-1];
	$s=0;
	$v=0;
	$s+=$_,$v+=$_==$c for @b[0..$w-1];
	if($s+$w>$m){
		$a[$i]=-1;
	}else{
		$s=0;
		for(@a){
			if($_<$c||($_==$c&&$v-->0)){
				$s+=$_+=1;
			}else{
				$_=0;
			}
		}
		$a[$i]=$m-$s;
	}
}
@a=reverse@a;
print"@a"
0