結果

問題 No.305 鍵(2)
ユーザー むらためむらため
提出日時 2019-01-19 15:00:15
言語 Nim
(2.0.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 775 bytes
コンパイル時間 954 ms
コンパイル使用メモリ 63,164 KB
最終ジャッジ日時 2023-09-23 16:43:32
合計ジャッジ時間 1,411 ms
ジャッジサーバーID
(参考情報)
judge13 / judge11
このコードへのチャレンジ(β)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

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

ソースコード

diff #

import sequtils,strutils,algorithm,math,sugar,macros,strformat
import sets,tables,intsets,queues,heapqueue,bitops

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[1].add(quote do:`t`[`i`])

proc argMax[T](arr:seq[T]):int =
  result = 0
  var val = arr[0]
  for i,a in arr:
    if a <= val: continue
    val = a
    result = i

var S = toSeq("0000000000".items).mapIt(it.ord - '0'.ord)
proc check() : int =
  echo S.join("")
  let (X,L) = get().split().unpack(2)
  let x = X.parseInt()
  if x == 10: quit(0)
  return x
for i in 0..<100:
  var oks = newSeq[int](10)
  for j in 0..9:
    S[i] = j
    oks[j] = check()
  S[i] = oks.argMax()
0