Odwróć cyfry w R

Question

Jak można odwrócić ciąg liczb w R?

Na przykład, mam wektor około 1000 cyfr sześciocyfrowych i chciałbym wiedzieć, czy są to palindromy. Chciałbym stworzyć drugi zestaw, który jest dokładnie odwrotny, więc mógłbym wykonać pojedynek.

Answer 1

To jest rzeczywiście decimial reprezentacją liczby, które testujemy być palindrom, a nie sam numer (255 to palendrome w formacie binarnym i szesnastkowym, ale nie po przecinku).

Można to zrobić dość łatwo stosując dopasowanie Wzór:

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

można przekonwertować numery do charakteru, podzielony na poszczególne znaki (strsplit), rewers każdego numeru (sapply i rev), a następnie wkleić wartości z powrotem (wklej) i ukryj z powrotem do liczb (jako numeryczne). Ale myślę, że powyższe jest lepsze, jeśli interesujesz się tylko 6-cyfrowymi palendromami.

Answer 2

Edytuj: Wprowadziłem błędne pytanie. Oto moja odpowiedź dla potomności.

---

Można użyć rev funkcję:

> 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

Nie sądzę rev całkiem prawda. Odwraca elementy wektora, a pytanie o to, jak odwrócić elementy wektora.

> 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

Jeśli jesteś zainteresowany odwrócenia ich własnego dobra, można użyć sub z dłuższą wersją regexp Grega:

> 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" 

Chociaż jest to szybciej niż Split/obr/wklej?

Answer 5

To powinno działać w ogólnym przypadku, z dowolnego wyboru podstawy:

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

istnieje funkcja w stringi opakowaniu tego - stri_reverse

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

Teraz palindrom funkcja może tak proste :

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