結果
問題 | No.771 しおり |
ユーザー |
|
提出日時 | 2019-01-30 03:42:36 |
言語 | Nim (2.2.0) |
結果 |
WA
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 829 bytes |
コンパイル時間 | 3,005 ms |
コンパイル使用メモリ | 62,264 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-07-23 01:35:36 |
合計ジャッジ時間 | 5,499 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 42 WA * 1 |
ソースコード
import sequtils,algorithmtemplate `max=`*(x,y) = x = max(x,y)template `min=`*(x,y) = x = min(x,y)template `^`(n:int) : int = (1 shl n)proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}proc scan(): int =while true:let k = getchar_unlocked()if k < '0': breakresult = 10 * result + k.ord - '0'.ordlet n = scan()let AB = newSeqWith(n,(a:scan(),b:scan())).sortedByIt(-it.a)let L = AB.mapIt(it.a)let R = AB.mapIt(it.b-it.a)const INF = 1e10.intvar dp = newSeqWith(^n,INF)var ans = INFproc solve(s:int,r:int,cost:int) =if s == ^n - 1 :ans .min= costreturnif dp[s] <= cost : returndp[s] .min= costfor x in 0..<n:if (s and ^x) > 0 : continueif s == 0 : solve(s or ^x,R[x],0)else: solve(s or ^x,R[x],cost.max(L[x]+r))solve(0,0,0)echo ans