Обратные цифры в R

Question

Как вы можете изменить строку чисел в R?

например, у меня есть вектор около 1000 шестизначных чисел, и я хотел бы знать, являются ли они палиндромами. Я хотел бы создать второй набор, который является точным обратным, поэтому я мог бы сделать матч.

Answer 1

Это на самом деле decimial представление числа, что вы проверяете быть палиндром, а не само число (255 является palendrome в шестнадцатеричном и двоичном, а не десятичную).

Вы можете сделать это довольно просто с помощью сопоставления с образцом:

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

можно преобразовать число в символ, разделить на отдельные символы (strsplit), обратный каждый номер (sapply и оборот), а затем вставить значение обратно (вставить) и скрытно вернуться к номерам (as.numeric). Но я думаю, что вышеизложенное лучше, если вас интересуют только 6-значные паландромы.

Answer 2

Редактировать: Я неправильно понял вопрос. Вот мой ответ для потомков.

---

Вы можете использовать функцию 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

Я не думаю, что rev вполне делает. Он меняет элементы вектора, в то время как вопрос заключается в том, как перевернуть элементы в вектор.

> 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

Если вы заинтересованы в разворотах ради них самого, вы можете использовать суб с более длинной версией регулярного выражения Грега:

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

Хотя это быстрее, чем разделенная/об/пасте?

Answer 5

Это должно работать в общем случае, при любом выборе базы:

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

Существует функция stringi пакета для этого - stri_reverse

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

Теперь палиндром функция может так просто :

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