結果

問題 No.3723 Climb or Detour
コンテスト
ユーザー 👑 tails
提出日時 2026-09-19 16:40:09
言語 Perl
(5.44.0)
コンパイル:
perl -cw _filename_
実行:
perl -X _filename_
結果
AC  
実行時間 128 ms / 2,000 ms
+ 982µs
コード長 246 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 301 ms
コンパイル使用メモリ 9,948 KB
実行使用メモリ 9,924 KB
最終ジャッジ日時 2026-09-19 16:40:45
合計ジャッジ時間 7,099 ms
ジャッジサーバーID
（参考情報） 		judge2_1 / judge5_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 58
権限があれば一括ダウンロードができます
コンパイルメッセージ
Possible precedence problem on bitwise & operator at Main.pl line 12.
Main.pl syntax OK

ソースコード

diff #
raw source code 

sub dame{print-1;exit}
($n,$k)=glob<>;
($a,$b)=glob<>;
($c,$d)=glob<>;
$k-=$e=abs($c-$a)+abs($d-$b);
dame if $k<0;
dame if $k&1;
dame if $k>$e>>1<<1;
for$x(1..$n){
	for$y(1..$n){
		$f=abs($x-$a)+abs($y-$b);
		print$f&$f<$k?"#":".";
	}
	print$/;
}
0