Kotlin
R
maxRot <- function(n) {
max = n = as.character(n)
l = nchar(n)
for( i in 1:l-1 ) {
n = paste( substr(n,0,i-1), substr(n,i+1,l), substr(n,i,i), sep="" )
if( n > max ) max = n
}
as.numeric(max)
}
maxRot <- function(n) {
max = n = as.character(n)
l = nchar(n)
for( i in 1:l-1 ) {
n = paste( substr(n,0,i-1), substr(n,i+1,l), substr(n,i,i), sep="" )
if( n > max ) max = n
}
as.numeric(max)
}