카타 7급 All Inclusive?

2 R

containAllRots <- function(s, arr) {
  for(i in 1:nchar(s)) {
    if( !(s %in% arr) ) return(FALSE)
    s = paste(substring(s,2),substring(s,1,1),sep="")
  }
  TRUE
}

containAllRots <- function(s, arr) {
  n <- nchar(s)
  srots <- c(s, paste(substring(s, 2:n), substring(s, 1, 1:(n - 1)), sep = ""))
  all(srots %in% arr)
}