結果

問題 No.2433 Min Increasing Sequence
ユーザー tomerun
提出日時 2023-08-18 23:12:45
言語 Crystal
(1.14.0)
結果
AC  
実行時間 32 ms / 2,000 ms
コード長 340 bytes
コンパイル時間 15,470 ms
コンパイル使用メモリ 293,156 KB
実行使用メモリ 20,352 KB
最終ジャッジ日時 2024-11-28 09:57:03
合計ジャッジ時間 15,383 ms
ジャッジサーバーID
(参考情報)
judge4 / judge1
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 32
権限があれば一括ダウンロードができます

ソースコード

diff #

MOD = 998244353i64
n = read_line.to_i
a = read_line.split.map(&.to_i)
cnt = Array.new(n + 1, 0i64)
sum = Array.new(n + 1, 0i64)
cnt[n] = 1
sum[n] = 1
min = a[-1]
min_pos = n - 1
(n - 1).downto(0) do |i|
  if a[i] <= min
    min = a[i]
    min_pos = i
  end
  cnt[i] = sum[min_pos + 1]
  sum[i] = (sum[i + 1] + cnt[i]) % MOD
end
puts cnt[0]
0