結果

問題 No.1477 Lamps on Graph
ユーザー Takeky0
提出日時 2021-05-20 19:09:59
言語 Crystal
(1.14.0)
結果
WA  
実行時間 -
コード長 569 bytes
コンパイル時間 16,053 ms
コンパイル使用メモリ 293,732 KB
実行使用メモリ 20,568 KB
最終ジャッジ日時 2024-10-10 07:18:26
合計ジャッジ時間 23,728 ms
ジャッジサーバーID
(参考情報)
judge2 / judge5
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
sample AC * 2
other AC * 5 WA * 33
権限があれば一括ダウンロードができます

ソースコード

diff #

n, m = read_line.split.map(&.to_i)
a = read_line.split.map(&.to_i)
a = (0...n).map { |i| {a[i], i} }.sort
graph = (1..n).map { [] of Int32 }
m.times {
  u, v = read_line.split.map(&.to_i.pred)
  graph[u] << v
  graph[v] << u
}
k = read_line.to_i
c = read_line.split.map(&.to_i)
b = [0]*n
c.each { |i| b[i.pred] = 1 }
ans = Array(Int32).new
a.each do |(ai, i)|
  if b[i] == 0
    next
  end
  b[i] = 0
  graph[i].each do |j|
    if ai < a[j][0]
      b[j] = 1 - b[j]
    end
  end
  ans << i.succ
end
if b.sum > 0
  puts -1
else
  puts ans.size
  puts ans.join("\n")
end
0