結果

問題 No.3660 LIS on Tree
コンテスト
ユーザー tomerun
提出日時 2026-08-30 14:27:47
言語 Crystal
(1.21.0)
コンパイル:
crystal build -Donline_judge -o a.out --release --no-debug _filename_
実行:
./a.out
結果
AC  
実行時間 172 ms / 2,000 ms
+ 994µs
コード長 778 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 9,022 ms
コンパイル使用メモリ 338,184 KB
実行使用メモリ 49,152 KB
最終ジャッジ日時 2026-08-30 14:28:08
合計ジャッジ時間 11,778 ms
ジャッジサーバーID
（参考情報） 		judge2_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 20
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

n = read_line.to_i
s = read_line.split.map(&.to_i64)
g = Array.new(n) { [] of Int32 }
(n - 1).times do
  a, b = read_line.split.map(&.to_i)
  g[a - 1] << b - 1
  g[b - 1] << a - 1
end
q = [0]
parent = Array.new(n, -1)
n.times do |i|
  cur = q[i]
  g[cur].each do |adj|
    next if parent[cur] == adj
    parent[adj] = cur
    q << adj
  end
end

dp0 = Array.new(n, 0i64)
dp1 = Array.new(n, 0i64)

# bottom -> top
(n - 1).downto(0) do |i|
  cur = q[i]
  par = parent[cur]
  dp0[cur] = s[cur]
  dp1[cur] = s[cur]
  g[cur].each do |adj|
    next if par == adj
    if s[adj] < s[cur]
      dp0[cur] = {dp0[cur], dp0[adj] + s[cur]}.max
    elsif s[adj] > s[cur]
      dp1[cur] = {dp1[cur], dp1[adj] + s[cur]}.max
    end
  end
end

puts n.times.max_of { |i| dp0[i] + dp1[i] - s[i] }
0