R, (削除) 133 (削除ここまで) (削除) 117 (削除ここまで) 93(削除) 93 (削除ここまで) 76 bytes
-16 bytes thanks to JayCe. -2441 bytes thanks to Giuseppe.
forx=scan(i in 10:107);while({x=i%F=F+any((D=T%/%10^(1:nchar(iT)-1)%%10;`if`(all(x%%10)!=rev(x)),F<-c(F,iD));F<=x}
cat(F[scan()+1])T=T+1;T
R, (削除) 133 (削除ここまで) (削除) 117 (削除ここまで) 93 bytes
-16 bytes thanks to JayCe. -24 bytes thanks to Giuseppe.
for(i in 10:107){x=i%/%10^(1:nchar(i)-1)%%10;`if`(all(x!=rev(x)),F<-c(F,i))}
cat(F[scan()+1])
R, (削除) 133 (削除ここまで) (削除) 117 (削除ここまで) (削除) 93 (削除ここまで) 76 bytes
-16 bytes thanks to JayCe. -41 bytes thanks to Giuseppe.
x=scan();while({F=F+any((D=T%/%10^(1:nchar(T)-1)%%10)!=rev(D));F<=x})T=T+1;T
R, (削除) 133 (削除ここまで) 117(削除) 117 (削除ここまで) 93 bytes
-16 bytes thanks to JayCe. -24 bytes thanks to Giuseppe.
for(i in 10:107)if(i!=as.numeric(paste(rev(el(strsplit{x=i%/%10^(as.character1:nchar(i),""-1)%%10;`if`(all(x!=rev(x)),collapse="")))F<-c(F,i))}
cat(F[scan()+1])
I always go down the string manipulation route for these types of things and I need to break that habit.Try it online!
R, (削除) 133 (削除ここまで) 117 bytes
-16 bytes thanks to JayCe.
for(i in 10:107)if(i!=as.numeric(paste(rev(el(strsplit(as.character(i),""))),collapse="")))F<-c(F,i)
cat(F[scan()+1])
I always go down the string manipulation route for these types of things and I need to break that habit.
R, (削除) 133 (削除ここまで) (削除) 117 (削除ここまで) 93 bytes
-16 bytes thanks to JayCe. -24 bytes thanks to Giuseppe.
for(i in 10:107){x=i%/%10^(1:nchar(i)-1)%%10;`if`(all(x!=rev(x)),F<-c(F,i))}
cat(F[scan()+1])
R, 133(削除) 133 (削除ここまで) 117 bytes
-16 bytes thanks to JayCe.
x=c();
for(i in (010:97)+10107){`if`if(i!=as.numeric(paste(rev(el(strsplit(as.character(i),"")[[1]])),collapse="")),x<)F<-c(xF,i))}
pastecat(x[scanF[scan()]+1])
I always go down the string manipulation route for these types of things and I need to break that habit.
R, 133 bytes
x=c();
for(i in (0:97)+10){`if`(i!=as.numeric(paste(rev(strsplit(as.character(i),"")[[1]]),collapse="")),x<-c(x,i))}
paste(x[scan()])
I always go down the string manipulation route for these types of things and I need to break that habit.
R, (削除) 133 (削除ここまで) 117 bytes
-16 bytes thanks to JayCe.
for(i in 10:107)if(i!=as.numeric(paste(rev(el(strsplit(as.character(i),""))),collapse="")))F<-c(F,i)
cat(F[scan()+1])
I always go down the string manipulation route for these types of things and I need to break that habit.