結果

問題 No.1021 Children in Classrooms
ユーザー ikdikd
提出日時 2020-04-12 12:41:03
言語 Nim
(2.0.2)
結果
WA  
実行時間 -
コード長 891 bytes
コンパイル時間 4,346 ms
コンパイル使用メモリ 65,408 KB
実行使用メモリ 14,208 KB
最終ジャッジ日時 2024-09-22 02:21:51
合計ジャッジ時間 5,770 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 1 ms
5,248 KB
testcase_01 AC 2 ms
5,376 KB
testcase_02 AC 2 ms
5,376 KB
testcase_03 WA -
testcase_04 WA -
testcase_05 WA -
testcase_06 WA -
testcase_07 AC 1 ms
5,376 KB
testcase_08 AC 2 ms
5,376 KB
testcase_09 WA -
testcase_10 WA -
testcase_11 WA -
testcase_12 WA -
testcase_13 WA -
testcase_14 WA -
testcase_15 AC 35 ms
10,880 KB
testcase_16 AC 35 ms
11,264 KB
testcase_17 AC 37 ms
11,520 KB
testcase_18 AC 47 ms
13,440 KB
testcase_19 AC 6 ms
5,376 KB
権限があれば一括ダウンロードができます

ソースコード

diff # 

import strutils, sequtils

let read = iterator: string {.closure.} =
  while true:
    for s in stdin.readLine.split:
      yield s

proc main() =
  # 0, 0, ..., 0, a_1 + a_2 + ... + a_x , a_{x + 1}, a_{x + 2}, ...
  # ..., a_y + a_{y + 1} + ... + a_n, 0, 0, ..., 0

  let
    n, m = read().parseInt
    a = newSeqWith(n, read().parseInt)
    s = read()

  var
    p = 0
    q = n - 1
    x = 0
    y = n - 1
  for c in s:
    if c == 'L':
      if p == 0:
        q = max(p, q - 1)
        y = max(x, y - 1)
      else:
        p -= 1
        q -= 1
    else:
      if q == n - 1:
        p = min(q, p + 1)
        x = min(y, x + 1)
      else:
        p += 1
        q += 1
    # echo p, " ", q, " ", x, " ", y
  var b = newSeq[int](n)
  for i in 0..<n:
    if i <= x:
      b[p] += a[i]
    elif i >= y:
      b[q] += a[i]
    else:
      b[i] = a[i]
  echo b.mapIt($it).join(" ")

main()
0