結果

問題 No.202 1円玉投げ
ユーザー %20%20
提出日時 2018-05-30 17:07:01
言語 Perl
(5.38.2)
結果
AC  
実行時間 1,093 ms / 5,000 ms
コード長 244 bytes
コンパイル時間 387 ms
コンパイル使用メモリ 5,300 KB
実行使用メモリ 114,788 KB
最終ジャッジ日時 2023-08-23 23:39:33
合計ジャッジ時間 19,377 ms
ジャッジサーバーID
（参考情報） 		judge13 / judge11
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 929 ms
60,476 KB
testcase_01 AC 1,056 ms
114,788 KB
testcase_02 AC 6 ms
5,200 KB
testcase_03 AC 6 ms
5,116 KB
testcase_04 AC 6 ms
5,116 KB
testcase_05 AC 74 ms
20,996 KB
testcase_06 AC 901 ms
91,552 KB
testcase_07 AC 1,028 ms
98,460 KB
testcase_08 AC 1,023 ms
99,012 KB
testcase_09 AC 567 ms
67,140 KB
testcase_10 AC 236 ms
38,392 KB
testcase_11 AC 462 ms
59,008 KB
testcase_12 AC 475 ms
60,028 KB
testcase_13 AC 263 ms
41,084 KB
testcase_14 AC 86 ms
22,328 KB
testcase_15 AC 537 ms
65,820 KB
testcase_16 AC 839 ms
61,844 KB
testcase_17 AC 840 ms
61,800 KB
testcase_18 AC 838 ms
61,832 KB
testcase_19 AC 508 ms
62,932 KB
testcase_20 AC 813 ms
85,264 KB
testcase_21 AC 509 ms
62,640 KB
testcase_22 AC 14 ms
5,864 KB
testcase_23 AC 14 ms
5,984 KB
testcase_24 AC 14 ms
5,356 KB
testcase_25 AC 14 ms
5,500 KB
testcase_26 AC 15 ms
5,968 KB
testcase_27 AC 22 ms
15,444 KB
testcase_28 AC 15 ms
5,832 KB
testcase_29 AC 15 ms
5,856 KB
testcase_30 AC 18 ms
10,188 KB
testcase_31 AC 13 ms
5,244 KB
testcase_32 AC 21 ms
12,548 KB
testcase_33 AC 15 ms
5,740 KB
testcase_34 AC 15 ms
5,560 KB
testcase_35 AC 884 ms
58,276 KB
testcase_36 AC 928 ms
58,064 KB
testcase_37 AC 1,093 ms
103,564 KB
testcase_38 AC 884 ms
61,816 KB
testcase_39 AC 9 ms
5,232 KB
testcase_40 AC 8 ms
5,312 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

<>;
for(<>){
	($X,$Y)=glob;
	$x=$X/20+1|0;
	$y=$Y/20+1|0;
	for$y($y-1..$y+1){
		for$x($x-1..$x+1){
			for(@{$_[$y][$x]}){
				if((@$_[0]-$X)**2+(@$_[1]-$Y)**2<400){
					goto a
				}
			}
		}
	}
	push@{$_[$y][$x]},[$X,$Y];
	++$z;
	a:
}
print$z
0