結果
問題 |
No.366 ロボットソート
|
ユーザー |
|
提出日時 | 2019-01-21 15:17:35 |
言語 | Nim (2.2.0) |
結果 |
WA
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 611 bytes |
コンパイル時間 | 2,535 ms |
コンパイル使用メモリ | 62,468 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-07-01 10:29:45 |
合計ジャッジ時間 | 3,361 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 15 WA * 8 |
ソースコード
import sequtils,algorithm 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 let n = scan() let k = scan() var A = newSeqWith(n,scan()) let B = A.sorted(cmp) var ans = 0 for i,b in B: if A[i] == b : continue var p = toSeq(0..<n).filterIt(A[it] == b)[0] # var p = 0 # for pi in (i+1)..<n: # if A[pi] == b: # p = pi # break while A[i] != b: if p - k < 0 : quit "-1",0 swap(A[p],A[p-k]) p -= k ans += 1 echo ans