結果
問題 | No.355 数当てゲーム(2) |
ユーザー |
|
提出日時 | 2019-01-27 05:07:17 |
言語 | Nim (2.2.0) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 1,209 bytes |
コンパイル時間 | 552 ms |
コンパイル使用メモリ | 50,688 KB |
最終ジャッジ日時 | 2024-11-14 20:48:16 |
合計ジャッジ時間 | 1,316 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge3 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
/home/judge/data/code/Main.nim(2, 21) Error: cannot open file: queues
ソースコード
import sequtils,algorithm,math,tablesimport sets,intsets,queues,heapqueue,bitops,strutilstemplate 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': breakresult = 10 * result + k.ord - '0'.ordproc findAll(A:seq[int]) =# 4(最大24回)var A = A.sorted(cmp)while true:echo A.mapIt($it).join(" ")let n = scan()let m = scan()if n == 4: breakif not A.nextPermutation(): breakproc findNums() : seq[int] =proc check(A:seq[int]) : int =echo A.mapIt($it).join(" ")let n = scan()let m = scan()if n == 4:quit(0)return n + mvar A = @[0,1,2,3]var pre = A.check()if pre == 4 : return Afor b in 4..9:let preA = A.mapIt(it)var B = newSeq[int](4)template tryB(n) =A[n] = bB[n] = A.check()if B[n] == 4 : return Aif B[n] > pre:A[n] = bpre = B[n]continueA[n] = preA[n]tryB(0)tryB(1)tryB(2)tryB(3)findNums().findAll()