結果

問題 No.120 傾向と対策：門松列（その１）
コンテスト
ユーザー kotatsugame
提出日時 2018-04-12 15:39:48
言語 Perl
(5.40.0)
結果
AC  
実行時間 362 ms / 5,000 ms
コード長 193 bytes
コンパイル時間 114 ms
コンパイル使用メモリ 6,684 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-06-26 21:25:24
合計ジャッジ時間 2,013 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 4
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

<>;
while(<>){
	$s=0;
	%t={};
	@a=map$t{$_},grep!$t{$_}++,glob<>;
	if(@a>2)
	{
		while($a[2]>0)
		{
			@a=sort{$b-$a}@a;
			$s++;
			$a[$_]--for 0..2;
			@a=sort{$b-$a}@a;
		}
	}
	print$s,$/
}
0