結果

問題 No.670 log は定数
コンテスト
ユーザー むらため
提出日時 2019-01-28 02:37:17
言語 Nim
(2.2.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,022 bytes
コンパイル時間 1,827 ms
コンパイル使用メモリ 80,728 KB
最終ジャッジ日時 2024-11-14 20:48:21
合計ジャッジ時間 2,413 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

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

ソースコード

diff # 

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

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

var seed = 0
proc next():int =
  seed = seed xor (seed shl 13)
  seed = seed xor (seed shr 7)
  seed = seed xor (seed shl 17)
  return seed shr 33

let n = scan()
let q = scan()
seed = scan()
10000.times: discard next()
var A = newSeq[int](n)
for i in 0..<n: A[i] = next()
A.sort(cmp)
var AA = newSeqWith(65536,newSeq[int]())
for a in A: AA[(a shr 16).int] &= a
for i in 0..<AA.len: AA[i].sort(cmp)
var B = newSeqWith(65536,0)
block:
  var cnt = 0
  for i in 0..<65536:
    B[i] = cnt
    cnt += AA[i].len()
let t = cpuTime()
var ans = 0
for i in 0..<q:
  let x = next()
  var cnt = B[x shr 16] + AA[x shr 16].lowerBound(x)
  ans = ans xor (cnt * i)
echo ans
0