'[.RIsStupid' <- function(x, i) {
  class(x) <- "character"
  x <- x[i]
  class(x) <- "RIsStupid"
  x
}
 
'>.RIsStupid' <- function(a,b) {
  ifelse( paste0(a, b) > paste0(b, a), TRUE, FALSE)
}
 
'==.RIsStupid' <- function(a, b) 
  ifelse(a > b || b > a, FALSE, TRUE)
 
 
makeThem <- function(input) {
  inputs <- strsplit(input, ' ')[[1]]
  class(inputs) <- "RIsStupid"
  inputs <- sort(inputs)
  cat(c(paste(inputs, collapse = ''), paste(rev(inputs), collapse = '')))
}
 
makeThem("79 82 34 83 69")
makeThem("420 34 19 71 341")
makeThem("17 32 91 7 46")
 
 

J1suUklzU3R1cGlkJyA8LSBmdW5jdGlvbih4LCBpKSB7CiAgY2xhc3MoeCkgPC0gImNoYXJhY3RlciIKICB4IDwtIHhbaV0KICBjbGFzcyh4KSA8LSAiUklzU3R1cGlkIgogIHgKfQoKJz4uUklzU3R1cGlkJyA8LSBmdW5jdGlvbihhLGIpIHsKICBpZmVsc2UoIHBhc3RlMChhLCBiKSA+IHBhc3RlMChiLCBhKSwgVFJVRSwgRkFMU0UpCn0KCic9PS5SSXNTdHVwaWQnIDwtIGZ1bmN0aW9uKGEsIGIpIAogIGlmZWxzZShhID4gYiB8fCBiID4gYSwgRkFMU0UsIFRSVUUpCgoKbWFrZVRoZW0gPC0gZnVuY3Rpb24oaW5wdXQpIHsKICBpbnB1dHMgPC0gc3Ryc3BsaXQoaW5wdXQsICcgJylbWzFdXQogIGNsYXNzKGlucHV0cykgPC0gIlJJc1N0dXBpZCIKICBpbnB1dHMgPC0gc29ydChpbnB1dHMpCiAgY2F0KGMocGFzdGUoaW5wdXRzLCBjb2xsYXBzZSA9ICcnKSwgcGFzdGUocmV2KGlucHV0cyksIGNvbGxhcHNlID0gJycpKSkKfQoKbWFrZVRoZW0oIjc5IDgyIDM0IDgzIDY5IikKbWFrZVRoZW0oIjQyMCAzNCAxOSA3MSAzNDEiKQptYWtlVGhlbSgiMTcgMzIgOTEgNyA0NiIpCgo=