結果

問題 No.60 魔法少女
コンテスト
ユーザー むらため
提出日時 2017-08-16 09:45:15
言語 Nim
(2.2.6)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 2,639 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 858 ms
コンパイル使用メモリ 65,936 KB
最終ジャッジ日時 2024-11-14 20:13:17
合計ジャッジ時間 1,422 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
/home/judge/data/code/Main.nim(1, 41) Warning: Use the new 'sugar' module instead; future is deprecated [Deprecated]
stack trace: (most recent call last)
Main.nim(5, 7)           unpack
/home/judge/data/code/Main.nim(58, 38) template/generic instantiation of `unpack` from here
/home/judge/data/code/Main.nim(5, 7) Error: index 1 not in 0 .. 0

ソースコード

diff #
raw source code 

import sequtils,strutils,algorithm,math,future,macros
template get*():string = stdin.readLine() #.strip()
macro unpack*(arr: auto,cnt: static[int]): auto =
  let t = genSym(); result = quote do:(let `t` = `arr`;())
  for i in 0..<cnt: result[0][1].add(quote do:`t`[`i`])

# N,K<1e6  |X,Y|,W,H<=500  HP,D<1e5 | [X,X+W] [Y,Y+W] に D | 倒れていない敵の体力の合計

# var field : array[-501..501,array[-501..501,int]] などが可能...
# range :: [x1..x2][y1..y2]
template imosReduce2(field:typed):void =
  for x in field.low + 1 .. field.high:
    for y in field[x].low .. field[x].high:
      field[x][y] += field[x-1][y]
  for x in field.low .. field.high:
    for y in field[x].low + 1 .. field[x].high:
      field[x][y] += field[x][y-1]
template imosRegist2(field:typed,x1,y1,x2,y2:int,val:typed):void =
  field[x1][y1] += val
  field[x1][y2+1] -= val
  field[x2+1][y1] -= val
  field[x2+1][y2+1] += val

proc scanf(frmt: cstring):void {.varargs, importc:"scanf",header: "<stdio.h>" .}
macro scanints(cnt:static[int]): auto =
  var str = ""; for i in 0..<cnt: str &= "%d"
  result = newStmtList(nnkVarSection.newNimNode,"scanf".newCall(str.newStrLitNode),nnkBracket.newNimNode)
  for i in 0..<cnt: # TODO: genSym
    let t0 = ident("tr92ru" & $i)
    result[0].add(newIdentDefs(t0, ident("int32")))
    result[1].add(newNimNode(nnkAddr).add(t0))
    result[2].add(t0)

proc getchar_unlocked():cint {. importc:"getchar_unlocked",header: "<stdio.h>" .}
proc scan1[T](x:var T) :void =
  x = 0
  var k:cint
  var minus = false
  while true:
    k = getchar_unlocked()
    if k == '-'.ord: (minus = true; break)
    if '0'.ord <= k and k <= '9'.ord: (x = k - '0'.ord; break)
  while true:
    k = getchar_unlocked()
    if k < '0'.ord or k > '9'.ord: break
    x = 10 * x  +  k - '0'.ord
  if minus : x *= -1
#template scan[T](xs:varargs[var T]):void =
#  for x in xs: scan(x)
proc scan2[T](x,y:var T):void = (x.scan1;y.scan1)
proc scan3[T](x,y,z:var T):void = (x.scan1;y.scan1;z.scan1)
proc scan5[T](x,y,z,s,t:var T):void = (x.scan1;y.scan1;z.scan1;s.scan1;t.scan1)




let
  (N,K) = get().split().map(parseInt).unpack(2)
var
  field : array[-501..501,array[-501..501,int]]
  ene_XYHP : array[0..100_0001,array[3,int32]]
for n in 0..<N:
  var x,y,hp :int32
  scan3(x,y,hp)
  ene_XYHP[n] = [x,y,hp]
  #ene_XYHP[n] = scanints(3)
for k in 0..<K :
  #let (x,y,w,h,d) = scanints(5).unpack(5)
  var x,y,w,h,d :int32
  scan5(x,y,w,h,d)
  field.imosRegist2(x,y,min(500,x+w),min(500,y+h),d)
field.imosReduce2()
var damageSum = 0
for n in 0..<N:
  let (x,y,hp) = ene_XYHP[n].unpack(3)
  damageSum += 0.max(hp-field[x][y])
echo damageSum
0