Palindrones

Title: Palindrones

start_time <- Sys.time() # Start timer

is.palindrome <- function(word) {
    rawWord <- charToRaw(tolower(word)) ## converts to lower case
    sprintf("%s is %sa palindrome", word, c("not ", "")[identical(rawWord, rev(rawWord)) + 1])
}

is.palindrome("deed")

## [1] "deed is a palindrome"

is.palindrome("deeds")

## [1] "deeds is not a palindrome"

is.palindrome("Deed")

## [1] "Deed is a palindrome"

end_time <- Sys.time()   # End timer
end_time - start_time    # Display time

## Time difference of 0.1341043 secs

Machine Settings:

Sys.info()[c(1:3,5)]

##                                               sysname 
##                                               "Linux" 
##                                               release 
##                                   "4.15.0-45-generic" 
##                                               version 
## "#48~16.04.1-Ubuntu SMP Tue Jan 29 18:03:48 UTC 2019" 
##                                               machine 
##                                              "x86_64"

sessionInfo()

## R version 3.4.4 (2018-03-15)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Linux Mint 18.3
## 
## Matrix products: default
## BLAS: /usr/lib/libblas/libblas.so.3.6.0
## LAPACK: /usr/lib/lapack/liblapack.so.3.6.0
## 
## locale:
##  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
##  [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
##  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
##  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
##  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
## [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## loaded via a namespace (and not attached):
##  [1] compiler_3.4.4  magrittr_1.5    tools_3.4.4     htmltools_0.3.6
##  [5] yaml_2.2.0      Rcpp_1.0.0      stringi_1.2.4   rmarkdown_1.11 
##  [9] knitr_1.21      stringr_1.3.1   xfun_0.4        digest_0.6.18  
## [13] evaluate_0.12

EOF