結果

問題 No.20 砂漠のオアシス
ユーザー letrangerjpletrangerjp
提出日時 2017-06-03 20:26:29
言語 Ruby
(3.3.0)
結果
RE  
(最新)
AC  
(最初)
実行時間 -
コード長 355 bytes
コンパイル時間 454 ms
コンパイル使用メモリ 7,552 KB
実行使用メモリ 19,584 KB
最終ジャッジ日時 2024-10-13 05:57:40
合計ジャッジ時間 4,576 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 80 ms
12,160 KB
testcase_01 AC 80 ms
12,288 KB
testcase_02 AC 78 ms
12,160 KB
testcase_03 AC 97 ms
12,672 KB
testcase_04 AC 117 ms
12,544 KB
testcase_05 RE -
testcase_06 AC 145 ms
13,440 KB
testcase_07 AC 681 ms
19,584 KB
testcase_08 AC 234 ms
14,336 KB
testcase_09 AC 591 ms
19,328 KB
testcase_10 AC 79 ms
12,288 KB
testcase_11 AC 78 ms
12,160 KB
testcase_12 AC 106 ms
12,672 KB
testcase_13 AC 101 ms
12,544 KB
testcase_14 AC 129 ms
12,800 KB
testcase_15 AC 122 ms
12,800 KB
testcase_16 AC 205 ms
13,824 KB
testcase_17 AC 170 ms
13,312 KB
testcase_18 AC 185 ms
13,568 KB
testcase_19 AC 207 ms
13,568 KB
testcase_20 AC 94 ms
12,288 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

eval"N,V,X,Y="+gets.split*?,
L=$<.map{|s|s.split.map(&:to_i)<<1e3}+[[1e3]*N]
$*<<[V,0,0,1]
d={[0,0,1]=>V}
while(h,x,y,o=$*.pop)
[x,y]==[N-1,N-1]&&($><<:YES;exit)
[x,y,o]==[X-1,Y-1,1]&&(h*=2;o=0)
[[x+1,y],[x,y+1],[x-1,y],[x,y-1]].map{|a,b|(0<i=h-L[b][a])&&!d[[a,b,o]]&&(d[[a,b,o]]=i;e=[i,a,b,o];$*[$*.bsearch_index{|v|0.<v<=>e}||$*.size,0]=[e])}end
$><<:NO
0