結果

問題 No.13 囲みたい！
ユーザー syarosyaro
提出日時 2016-01-18 14:35:41
言語 Ruby
(3.3.0)
結果
TLE  
実行時間 -
コード長 426 bytes
コンパイル時間 42 ms
コンパイル使用メモリ 7,424 KB
実行使用メモリ 21,024 KB
最終ジャッジ日時 2024-09-19 20:27:26
合計ジャッジ時間 7,031 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 89 ms
12,160 KB
testcase_01 AC 83 ms
12,160 KB
testcase_02 AC 84 ms
12,416 KB
testcase_03 AC 99 ms
12,544 KB
testcase_04 AC 86 ms
12,544 KB
testcase_05 TLE -
testcase_06 -- -
testcase_07 -- -
testcase_08 -- -
testcase_09 -- -
testcase_10 -- -
testcase_11 -- -
testcase_12 -- -
testcase_13 -- -
testcase_14 -- -
testcase_15 -- -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

(h,w),*m=$<.map{|l|l.split.map(&:to_i)+[0]}+[[0]*100]
(h*w).times{|i|
  *a=i
  (
    v,*a=a
#    m[y=v%h][v/h]==$c&&(m[y][v/h]=-1;((y<1?[]:[-1])+[1,-h,h]).count{|w|a<<w+=v;m[w%h][w/h]<0}>1&&($><<:possible;exit))
    m[y=v%h][v/h]==$c&&(m[y][v/h]=-1;((y<1?[]:[-1])+[1,-h,h]).count{|w|w+=v;t=m[w%h][w/h];t==$c&&a<<w;t<0}>1&&($><<:possible;exit))
  )while a[0]if 0<$c=m[i%h][i/h]
  m.map{|n|n.map!{|t|t<0?0:t}}
}
$><<:impossible
0