結果

問題 No.2233 Average
ユーザー tailstails
提出日時 2023-03-03 21:33:06
言語 Perl
(5.40.0)
結果
TLE  
(最新)
AC  
(最初)
実行時間 -
コード長 139 bytes
コンパイル時間 460 ms
コンパイル使用メモリ 5,888 KB
実行使用メモリ 19,712 KB
最終ジャッジ日時 2024-11-22 06:34:10
合計ジャッジ時間 15,975 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 1
other AC * 17 TLE * 1
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

<>;
for(<>){
	($a,$b,$c,$k)=glob;
	for(1..$k){
		($a,$b,$c)=($b+$c>>1,$c+$a>>1,$a+$b>>1);
		last if$a==$b&&$a==$c;
	}
	print$a+$b+$c,$/;
}
0