結果
問題 |
No.448 ゆきこーだーの雨と雪 (3)
|
ユーザー |
|
提出日時 | 2016-11-23 01:14:46 |
言語 | Ruby (3.4.1) |
結果 |
AC
|
実行時間 | 749 ms / 2,000 ms |
コード長 | 619 bytes |
コンパイル時間 | 375 ms |
コンパイル使用メモリ | 7,552 KB |
実行使用メモリ | 28,288 KB |
最終ジャッジ日時 | 2024-06-11 19:36:14 |
合計ジャッジ時間 | 14,684 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 4 |
other | AC * 35 |
コンパイルメッセージ
Syntax OK
ソースコード
#!/usr/bin/ruby n,k=gets.split.map(&:to_i) a=$<.map{|e|e.split.map(&:to_i)} p ma=(0..10**9).bsearch{|e| tail=-k !!a.each{|t,d| if d>e if t-tail<k break else tail=t end end } } ng=[false]*n tail=-k 0.upto(n-1){|i| if a[i][1]>ma tail=a[i][0] elsif a[i][0]-tail<k ng[i]=true end } tail=a[-1][0]+k (n-1).downto(0){|i| if a[i][1]>ma tail=a[i][0] elsif tail-a[i][0]<k ng[i]=true end } s=0 n.times{|i| if a[i][1]>ma a[i][1]=0 else s+=a[i][1] a[i][1]=0 if ng[i] end } dp=[0] t=x=0 n.times{|i| t=[t,dp[x+=1]].max while a[i][0]-a[x][0]>=k dp[i+1]=[dp[i],t+a[i][1]].max } p s-dp[n]