cifre inverso nella R

Question

Come si può invertire una stringa di numeri in R?

per esempio, ho un vettore di circa 1000 a sei numeri a due cifre, e vorrei sapere se sono palindromi. Mi piacerebbe creare un secondo set che sia l'esatto contrario, quindi potrei fare un matchup.

Answer 1

realtà è la rappresentazione decimial del numero che si sta testando essere un palindromo, non il numero stesso (255 è un palendrome in esadecimale e binario, ma non decimale).

È possibile farlo abbastanza semplicemente usando pattern matching:

> tmp <- c(100001, 123321, 123456) 
> grepl('^([0-9])([0-9])([0-9])\\3\\2\\1$', tmp) 
[1] TRUE TRUE FALSE 
> 

è possibile convertire i numeri per carattere, divisa in singoli caratteri (strsplit), invertire ogni numero (sapply e giri), quindi incollare i valori di nuovo insieme (incolla) e di nuovo nascosto ai numeri (as.numeric). Ma penso che quanto sopra sia meglio se sei interessato solo ai paladromi a 6 cifre.

Answer 2

Edit: ho letto male la domanda. Ecco la mia risposta per i posteri.

---

È possibile utilizzare la funzione rev:

> 1:10 
[1] 1 2 3 4 5 6 7 8 9 10 
> rev(1:10) 
[1] 10 9 8 7 6 5 4 3 2 1 

Answer 3

Non credo rev tutto lo fa. Si inverte gli elementi del vettore, mentre la domanda è come invertire gli elementi in vettore.

> nums <- sapply(1:10,function(i)as.numeric(paste(sample(1:9,6,TRUE),collapse=""))) 
> nums 
[1] 912516 568934 693275 835117 155656 378192 343266 685182 298574 666354 
> sapply(strsplit(as.character(nums),""), function(i) paste(rev(i),collapse="")) 
[1] "615219" "439865" "572396" "711538" "656551" "291873" "662343" "281586" "475892" "453666" 

Answer 4

Se siete interessati alle inversioni di per se stessi, è possibile utilizzare sub con una versione più lunga di regexp di Greg:

> x 
[1] 123321 343324 563660 
> sub('^([0-9])([0-9])([0-9])([0-9])([0-9])([0-9])','\\6\\5\\4\\3\\2\\1', x) 
[1] "123321" "423343" "066365" 

Anche se è più veloce di questo split/giri/incolla?

Answer 5

Questo dovrebbe funzionare nel caso generale, con qualsiasi scelta della base:

is.palindromic <- function(x, base=10) 
{ 
    p <- 0 
    m <- floor(log(x,base)) 
    sig <- -1 
    for (i in m:0) 
     { 
     tp <- floor(x/base^i) 
     a <- i+1 
     b <- m+1-i 
     if(a==b){c<-0}else{c<-a*b;sig<-sig*-1} 
     p <- p + tp*c*sig 
     x <- x - tp*base^i 
     } 
    return(!as.logical(p)) 
} 

Answer 6

C'è funzione nella stringi pacchetto per questo - stri_reverse

require(stringi) 
stri_reverse("123456") 
## [1] "654321" 

funzione Now palindromo potrebbe così semplice come sembra :

palindrome <- function(x) stri_reverse(x)==x 
palindrome(c("651156","1234321")) 
## [1] TRUE TRUE