#314546 (Nim) No.489 株に挑戦

提出ソース

結果

問題	No.489 株に挑戦
ユーザー	むらため
提出日時	2019-02-04 08:43:43
言語	Nim (2.0.2)
結果	WA
実行時間	-
コード長	2,253 bytes
コンパイル時間	2,759 ms
コンパイル使用メモリ	61,708 KB
実行使用メモリ	6,948 KB
最終ジャッジ日時	2024-07-01 11:21:46
合計ジャッジ時間	4,549 ms
ジャッジサーバーID （参考情報）	judge3 / judge4

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	43 ms 6,812 KB
testcase_01	WA	-
testcase_02	AC	1 ms 6,944 KB
testcase_03	AC	2 ms 6,940 KB
testcase_04	WA	-
testcase_05	AC	1 ms 6,940 KB
testcase_06	AC	1 ms 6,940 KB
testcase_07	AC	2 ms 6,940 KB
testcase_08	AC	1 ms 6,940 KB
testcase_09	AC	2 ms 6,940 KB
testcase_10	AC	2 ms 6,944 KB
testcase_11	AC	2 ms 6,940 KB
testcase_12	WA	-
testcase_13	WA	-
testcase_14	AC	2 ms 6,944 KB
testcase_15	AC	4 ms 6,940 KB
testcase_16	AC	36 ms 6,944 KB
testcase_17	AC	7 ms 6,940 KB
testcase_18	AC	27 ms 6,940 KB
testcase_19	WA	-
testcase_20	AC	34 ms 6,940 KB
testcase_21	AC	6 ms 6,940 KB
testcase_22	AC	6 ms 6,940 KB
testcase_23	AC	29 ms 6,944 KB
testcase_24	WA	-
testcase_25	WA	-
testcase_26	WA	-
testcase_27	AC	59 ms 6,944 KB
testcase_28	AC	2 ms 6,944 KB
testcase_29	WA	-
testcase_30	WA	-
testcase_31	AC	16 ms 6,940 KB
testcase_32	AC	30 ms 6,944 KB
testcase_33	AC	44 ms 6,940 KB
testcase_34	WA	-
testcase_35	AC	18 ms 6,940 KB
testcase_36	AC	4 ms 6,944 KB
testcase_37	AC	15 ms 6,944 KB

権限があれば一括ダウンロードができます

ソースコード

raw source code

import sequtils,math
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)

template useSegmentTree() = # 区間[s,t)の最小(最大)値 / 更新 O(log(N))
  proc minimpl[T](x,y:T): T = (if x <= y: x else: y)
  proc maximpl[T](x,y:T): T = (if x >= y: x else: y)
  type SegmentTree[T] = ref object
    data:seq[T] # import math
    n : int
    rawSize:int
    infinity: T
    cmp:proc(x,y:T):T
  proc initSegmentTree[T](
      size:int,
      infinity:T = T(1e10),
      cmp: proc (x,y:T):T = minimpl[T]) : SegmentTree[T] =
    new(result)
    result.infinity = infinity
    result.cmp = cmp
    result.n = size.nextPowerOfTwo()
    result.rawSize = size
    result.data = newSeqWith(result.n * 2,result.infinity)
  proc `[]=`[T](self:var SegmentTree[T],i:int,val:T) =
    var i = i + self.n - 1
    self.data[i] = val
    while i > 0:
      i = (i - 1) shr 1
      self.data[i] = self.cmp(self.data[i * 2 + 1],self.data[i * 2 + 2])
  proc `[]`[T](self:SegmentTree[T],slice:Slice[int]): T =
    proc impl(a,b,k,l,r:int):T =
      if r <= a or b <= l : return self.infinity
      if a <= l and r <= b : return self.data[k]
      let vl = impl(a,b,k*2+1,l,(l+r) shr 1)
      let vr = impl(a,b,k*2+2,(l+r) shr 1,r)
      return self.cmp(vl,vr)
    return impl(slice.a,slice.b+1,0,0,self.n)

  proc `$`[T](self:SegmentTree[T]): string =
    var arrs : seq[seq[int]] = @[]
    var l = 0
    var r = 1
    while r <= self.data.len:
      arrs &= self.data[l..<r]
      l = l * 2 + 1
      r = r * 2 + 1
    return $arrs

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

let n = scan()
let d = scan()
let k = scan()
let S = newSeqWith(n,scan())
var smax = initSegmentTree[int](n,-1e10.int,maximpl[int])
for i in 0..<n: smax[i] = S[i]
var ans = 0
var time = 0
for i in 0..<n:
  if i+d >= n : break
  let v = smax[i+1..i+d] - S[i]
  if v <= ans : continue
  ans = v
  time = i
if ans <= 0 : quit "0",0
echo ans * k
stdout.write time," "
for i in time+1..<n:
  if S[i] == ans + S[time] :
    echo i
    quit 0

yukicoder

結果

テストケース

ソースコード