Submission #44604638

Source Code Expand

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
library(stringr)
library(zeallot)
conn <- file("stdin", open="r")
readLine <- function() {
    input <- readLines(conn, n=1)
    ret <- unlist(strsplit(input, " "))
    return(ret)
}
c(N, M) %<-% as.integer(readLine())
S <- readLine()
C <- as.integer(readLine())
A <- array(0, M)
S <- str_split_1(S, "")
for (i in N:1) {
    # cat("i=", i, "\n")
    color <- C[i]
    j <- A[color]
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

library(stringr)
library(zeallot)

conn <- file("stdin", open="r")
readLine <- function() {
    input <- readLines(conn, n=1)
    ret <- unlist(strsplit(input, " "))
    return(ret)
}

c(N, M) %<-% as.integer(readLine())
S <- readLine()
C <- as.integer(readLine())
A <- array(0, M)

S <- str_split_1(S, "")

for (i in N:1) {
    # cat("i=", i, "\n")
    color <- C[i]
    j <- A[color]
    if (j != 0) {
        c(S[i], S[j]) %<-% c(S[j], S[i])
    }
    A[color] <- i
}

S <- str_c(S, collapse="")
cat(S)
cat("\n")

close(conn)

Submission Info

Judge Result