結果

問題 No.198 キャンディー・ボックス２
ユーザー むらためむらため
提出日時 2019-01-24 01:49:31
言語 Nim
(2.0.2)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,319 bytes
コンパイル時間 509 ms
コンパイル使用メモリ 52,724 KB
最終ジャッジ日時 2024-04-27 02:46:51
合計ジャッジ時間 913 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
/home/judge/data/code/Main.nim(2, 21) Error: cannot open file: queues

ソースコード

diff # 

import sequtils,algorithm,math,tables
import sets,intsets,queues,heapqueue,bitops,strutils
template times*(n:int,body) = (for _ in 0..<n: body)
template `max=`*(x,y) = x = max(x,y)
template `min=`*(x,y) = x = min(x,y)

proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" .}
proc scan(): int =
  while true:
    let k = getchar_unlocked()
    if k < '0': break
    result = 10 * result + k.ord - '0'.ord

let my = scan()
let n = scan()
if n == 1 :  quit "0",0
let C0 = newSeqWith(n,scan()).sorted(cmp)
let C = C0.mapIt(it - C0[0])
var ans = int.high

proc calcCost(m:int):int =
  var myLeft = my
  for c in C:
    let diff = c - m
    if diff < 0 : continue
    myLeft += diff
    result += diff
  for c in C:
    let diff = m - c
    if diff < 0 : continue
    myLeft -= diff
    result += diff
    if myLeft < 0 : return int.high
var x = C[0]
var y = C[^1]
while true:
  let m = (x + y) div 2
  let costM = m.calcCost()
  let costX = x.calcCost()
  let costY = y.calcCost()
  # echo "XMY:",[x,m,y]
  # echo "COST:",[costX,costM,costY]
  if m - x <= 1 or y - m <= 1:
    echo toSeq(x..y).mapIt(it.calcCost()).min()
    quit 0
  if costM > costY : x = m
  elif costM > costX : y = m
  elif calcCost((x+m) div 2) > calcCost((m+y) div 2):
    x = (x + m) div 2
  else: y = (y + m) div 2
echo ans
0