結果

問題 No.1021 Children in Classrooms
コンテスト
ユーザー ikd
提出日時 2020-04-12 12:41:03
言語 Nim
(2.2.0)
結果
WA  
実行時間 -
コード長 891 bytes
コンパイル時間 4,346 ms
コンパイル使用メモリ 65,408 KB
実行使用メモリ 14,208 KB
最終ジャッジ日時 2024-09-22 02:21:51
合計ジャッジ時間 5,770 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 7 WA * 10
権限があれば一括ダウンロードができます

ソースコード

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