Kotlin
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)
}