結果

問題 No.1095 Smallest Kadomatsu Subsequence
ユーザー simansiman
提出日時 2022-09-25 16:32:18
言語 Ruby
(3.3.0)
結果
TLE  
実行時間 -
コード長 935 bytes
コンパイル時間 48 ms
コンパイル使用メモリ 7,552 KB
実行使用メモリ 43,040 KB
最終ジャッジ日時 2024-06-01 22:22:59
合計ジャッジ時間 6,440 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge4
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 79 ms
19,360 KB
testcase_01 AC 79 ms
12,288 KB
testcase_02 AC 85 ms
12,288 KB
testcase_03 AC 83 ms
12,160 KB
testcase_04 AC 77 ms
12,160 KB
testcase_05 AC 79 ms
12,288 KB
testcase_06 AC 77 ms
12,160 KB
testcase_07 AC 77 ms
12,160 KB
testcase_08 AC 79 ms
12,288 KB
testcase_09 AC 78 ms
12,160 KB
testcase_10 AC 79 ms
12,288 KB
testcase_11 AC 80 ms
12,288 KB
testcase_12 AC 77 ms
12,160 KB
testcase_13 AC 111 ms
12,928 KB
testcase_14 AC 113 ms
12,928 KB
testcase_15 AC 112 ms
13,056 KB
testcase_16 AC 112 ms
13,056 KB
testcase_17 AC 110 ms
12,928 KB
testcase_18 AC 109 ms
13,056 KB
testcase_19 AC 110 ms
13,056 KB
testcase_20 AC 111 ms
12,928 KB
testcase_21 AC 117 ms
13,184 KB
testcase_22 AC 115 ms
12,928 KB
testcase_23 TLE -
testcase_24 -- -
testcase_25 -- -
testcase_26 -- -
testcase_27 -- -
testcase_28 -- -
testcase_29 -- -
testcase_30 -- -
testcase_31 -- -
testcase_32 -- -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.rb:67: warning: ambiguous first argument; put parentheses or a space even after `-' operator
Syntax OK

ソースコード

diff # 

N = gets.to_i
A = gets.split.map(&:to_i)
L = []
R = []
LA = []
RA = []
LL = Array.new(N, -1)
RR = Array.new(N, -1)

min_v = Float::INFINITY
0.upto(N - 1) do |i|
  a = A[i]
  idx = LA.bsearch_index { |x| x > a } || LA.size
  if idx < LA.size
    LL[i] = a + LA[idx]
  end
  LA.insert(idx, a)

  if min_v > a
    min_v = a
  end

  L[i] = min_v
end

min_v = Float::INFINITY
(N - 1).downto(0) do |i|
  a = A[i]
  idx = RA.bsearch_index { |x| x > a } || RA.size
  if idx < RA.size
    RR[i] = a + RA[idx]
  end
  RA.insert(idx, a)

  if min_v > a
    min_v = a
  end
  R[i] = min_v
end

ans = Float::INFINITY

1.upto(N - 2) do |i|
  a = A[i]
  l = LL[i]
  r = RR[i]
  next if l == -1
  next if r == -1

  v = l + r - a

  ans = v if ans > v
end

1.upto(N - 2) do |i|
  a = A[i]
  l = L[i - 1]
  r = R[i + 1]
  next if l > a
  next if r > a

  v = a + l + r
  ans = v if ans > v
end

if ans == Float::INFINITY
  puts -1
else
  puts ans
end
0