結果

問題 No.3427 Erasing a Subsequence
コンテスト
ユーザー tomerun
提出日時 2026-01-11 16:06:32
言語 Crystal
(1.19.1)
コンパイル:
crystal build -Donline_judge -o a.out --release --no-debug _filename_
実行:
./a.out
結果
AC  
実行時間 1 ms / 2,000 ms
+ 620µs
コード長 644 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 9,600 ms
コンパイル使用メモリ 335,900 KB
実行使用メモリ 5,888 KB
最終ジャッジ日時 2026-07-20 07:35:08
合計ジャッジ時間 11,089 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 14
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

n, m = read_line.split.map(&.to_i)
s = read_line.split.map(&.to_i)
t = read_line.split.map(&.to_i)
limit = Array.new(n + 1, m)
pos = m
(n - 1).downto(0) do |i|
  if pos > 0 && s[i] == t[pos - 1]
    pos -= 1
  end
  limit[i] = pos
end

np = 0
mp = 0
ans = [] of Int32
(n - m).times do
  min = 9999
  min_np = n
  cur_mp = mp
  np.upto(n - 1) do |i|
    if s[i] < min && limit[i + 1] <= cur_mp
      min = s[i]
      min_np = i
    end
    if cur_mp < m
      if t[cur_mp] == s[i]
        cur_mp += 1
      else
        break
      end
    else
      break
    end
  end
  mp += min_np - np
  np = min_np + 1
  ans << min
end
puts ans.join(" ")
0