結果

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

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 RE -
testcase_01 RE -
testcase_02 RE -
testcase_03 RE -
testcase_04 RE -
testcase_05 RE -
testcase_06 RE -
testcase_07 RE -
testcase_08 RE -
testcase_09 RE -
testcase_10 RE -
testcase_11 RE -
testcase_12 RE -
testcase_13 RE -
testcase_14 RE -
testcase_15 RE -
権限があれば一括ダウンロードができます
コンパイルメッセージ
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