結果
問題 | No.723 2つの数の和 |
ユーザー | むらため |
提出日時 | 2019-01-17 14:21:10 |
言語 | Nim (2.0.2) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 699 bytes |
コンパイル時間 | 1,066 ms |
コンパイル使用メモリ | 72,672 KB |
最終ジャッジ日時 | 2024-11-14 20:46:12 |
合計ジャッジ時間 | 1,623 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge4 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
/home/judge/data/code/Main.nim(2, 28) Error: cannot open file: queues
ソースコード
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 toCountSeq[T](x:seq[T]) : seq[tuple[k:T,v:int]] = toSeq(x.toCountTable().pairs) let (n,x) = get().split().map(parseInt).unpack(2) let A = get().split().map(parseInt).toCountSeq().sorted(cmp) let K = A.mapIt(it.k) let V = A.mapIt(it.v) var ans = 0 for ik,k in K: let i = K.upperBound(x-k-1) if i >= K.len : continue if K[i] + k == x : ans += V[i]*V[ik] echo ans