'[.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)
  return(c(paste(inputs, collapse = ''), paste(rev(inputs), collapse = '')))
}
 
cat(makeThem("79 82 34 83 69"))
cat(makeThem("420 34 19 71 341"))
cat(makeThem("17 32 91 7 46"))
 
 

J1suUklzU3R1cGlkJyA8LSBmdW5jdGlvbih4LCBpKSB7CiAgY2xhc3MoeCkgPC0gImNoYXJhY3RlciIKICB4IDwtIHhbaV0KICBjbGFzcyh4KSA8LSAiUklzU3R1cGlkIgogIHgKfQoKJz4uUklzU3R1cGlkJyA8LSBmdW5jdGlvbihhLGIpCiAgaWZlbHNlKCBwYXN0ZTAoYSwgYikgPiBwYXN0ZTAoYiwgYSksIFRSVUUsIEZBTFNFKQoKJz09LlJJc1N0dXBpZCcgPC0gZnVuY3Rpb24oYSwgYikgCiAgaWZlbHNlKGEgPiBiIHx8IGIgPiBhLCBGQUxTRSwgVFJVRSkKCgptYWtlVGhlbSA8LSBmdW5jdGlvbihpbnB1dCkgewogIGlucHV0cyA8LSBzdHJzcGxpdChpbnB1dCwgJyAnKVtbMV1dCiAgY2xhc3MoaW5wdXRzKSA8LSAiUklzU3R1cGlkIgogIGlucHV0cyA8LSBzb3J0KGlucHV0cykKICByZXR1cm4oYyhwYXN0ZShpbnB1dHMsIGNvbGxhcHNlID0gJycpLCBwYXN0ZShyZXYoaW5wdXRzKSwgY29sbGFwc2UgPSAnJykpKQp9CgpjYXQobWFrZVRoZW0oIjc5IDgyIDM0IDgzIDY5IikpCmNhdChtYWtlVGhlbSgiNDIwIDM0IDE5IDcxIDM0MSIpKQpjYXQobWFrZVRoZW0oIjE3IDMyIDkxIDcgNDYiKSkKCg==