結果

問題 No.697 池の数はいくつか
ユーザー letrangerjpletrangerjp
提出日時 2018-06-15 22:16:58
言語 Ruby
(3.3.0)
結果
RE  
実行時間 -
コード長 462 bytes
コンパイル時間 243 ms
コンパイル使用メモリ 7,680 KB
実行使用メモリ 91,932 KB
最終ジャッジ日時 2024-05-04 05:55:55
合計ジャッジ時間 21,231 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 75 ms
12,160 KB
testcase_01 AC 73 ms
12,160 KB
testcase_02 AC 74 ms
12,160 KB
testcase_03 AC 77 ms
12,416 KB
testcase_04 AC 79 ms
12,288 KB
testcase_05 AC 77 ms
12,160 KB
testcase_06 AC 80 ms
12,160 KB
testcase_07 AC 78 ms
12,288 KB
testcase_08 AC 78 ms
12,160 KB
testcase_09 AC 74 ms
12,160 KB
testcase_10 AC 77 ms
12,288 KB
testcase_11 AC 75 ms
12,416 KB
testcase_12 AC 75 ms
12,416 KB
testcase_13 AC 78 ms
12,416 KB
testcase_14 AC 79 ms
12,288 KB
testcase_15 AC 76 ms
12,288 KB
testcase_16 AC 76 ms
12,160 KB
testcase_17 AC 77 ms
12,160 KB
testcase_18 AC 73 ms
12,416 KB
testcase_19 AC 76 ms
12,416 KB
testcase_20 AC 77 ms
12,288 KB
testcase_21 AC 78 ms
12,160 KB
testcase_22 AC 80 ms
12,160 KB
testcase_23 AC 80 ms
12,160 KB
testcase_24 AC 1,741 ms
21,504 KB
testcase_25 AC 1,747 ms
21,376 KB
testcase_26 AC 1,716 ms
21,248 KB
testcase_27 AC 1,750 ms
21,248 KB
testcase_28 AC 1,735 ms
21,504 KB
testcase_29 RE -
testcase_30 TLE -
testcase_31 -- -
testcase_32 -- -
testcase_33 -- -
testcase_34 -- -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Syntax OK

ソースコード

diff # 

H, W = gets.split.map &:to_i
board = $<.map{|s|s.split.join.to_i(2)}
used = H.times.map{[false] * W}

DIRS = [[0, 1], [0, -1], [1, 0], [-1, 0]]

f = ->y, x{
  return if !y.between?(0, H-1)
  return if !x.between?(0, W-1)
  return if board[y][x] == 0
  return if used[y][x]
  used[y][x] = true
  DIRS.each{|dy, dx|
    f[y+dy, x+dx]
  }
}

ans = 0
H.times{|i|
  W.times{|j|
    next if board[i][j] == 0
    next if used[i][j]
    ans += 1
    f[i, j]
  }
}
p ans
0