Escriba una función (o subprograma equivalente) para aceptar un único argumento con valor entero y devolver un valor (de tipo similar) encontrado al invertir el orden de los dígitos de base 10 del argumento.

Por ejemplo, dado 76543 retorno 34567

HTML 21 7 caracteres (1 carácter si soy descarado ...)

‮n

reemplace ncon su número

Pitón

int(str(76543)[::-1])

EDITAR:

Solución más corta como lo sugiere @gnibbler:

int(`76543`[::-1])

o, si lo anterior no está claro:

x=76543
int(`x`[::-1])

Universal (lenguaje agnóstico / independiente )

Si desea usar solo números (evite convertir el número en una cadena) y no quiere usar una biblioteca específica (para ser universal para cualquier idioma):

x = 76543 # or whatever is your number
y = 0
while x > 0:
    y *= 10
    y += ( x %10 )
    x /= 10 # int division 

_{Esto es python, pero podría hacerse en cualquier idioma, porque es solo un método matemático.}

Perl 6

+$n.flip

o:

$n.flip

para código escrito dinámicamente.

Los números obtuvieron métodos de cadena debido al diseño del lenguaje.

J - 6 caracteres + variable

".|.":y

Donde y es tu valor.

APL (3)

⍎⌽⍕

Uso:

⍎⌽⍕12345 => 54321

PHP, 9 caracteres

(int)strrev(123);

Para hacerlo corto donde Nes una constante:

strrev(N)

Befunge (3 personajes)

Programa ejecutable completo:

N.@

¿Dónde Nestá tu número? Las reglas dicen "aceptar un único argumento con valor entero "; En Befunge solo puedes ingresar números enteros del 0 al 9.

Independiente del lenguaje / matemática

Inspirado por la respuesta de Kiril Kirov arriba. Sentí curiosidad por las propiedades matemáticas de invertir un número, así que decidí investigar un poco.

Resulta que si trazas la diferencia n - rev(n)para los números naturales nen alguna base r, obtienes patrones como este ( (n - rev(n)) / (r - 1), for r=10, envuelto en rcolumnas, rojo denota número negativo):

Esta secuencia podría generarse como tal (pseudocódigo):

for i=1 to r:
  output 0

for m=0, 1, …
  for k=1 to (r-1):
    for d=1 to r^m:
      for i=0 to (r-1):
        output (r-1) * (r+1)^m * (k - i)

Si almacena estos valores en una lista / matriz, n - arr[n]obtendría la forma inversa de n. Ahora, para "jugar matemáticamente" esto, idealmente queremos una expresión de forma cerrada que nos dé el enésimo valor en la secuencia, de modo que podamos tener una expresión de forma cerrada para resolver toda la tarea. Desafortunadamente, no he podido encontrar esa expresión ... pero parece que debería ser posible. :(

Entonces, sí, no tanto un código de golf como una curiosidad matemática, pero si hay una expresión de forma cerrada de la secuencia anterior, en realidad podría ser útil en presentaciones de golf PL adecuadas.

Haskell 28 24 caracteres

f=read.reverse.show.(+0)

Empuje

:se ri<CR>C<C-R>"

Scala - 33 caracteres

def r(a:Int)=(a+"").reverse.toInt

Rubí (14)

x = 13456
x.to_s.reverse

Es posible convertir un número en una cadena, luego invertir la cadena y luego convertir esa cadena de nuevo en número. Este tipo de características probablemente esté disponible en todos los idiomas. Si está buscando un método más matemático, esto podría ayudar:

int n = 76543;
int r = 0;

while (n > 0) {
    r *= 10;
    r += n % 10;
    n /= 10;
}

Python 3+

Forma de función: 28 caracteres

r=lambda i:int(str(i)[::-1])

Forma (sub) del programa: 25 caracteres

print(input()[::-1])

Considero que algunos de los otros ejemplos de Python son engañosos, o al menos baratos, debido al uso de entradas codificadas y / o no satisfacen completamente los requisitos.

Golfscript, 5 caracteres

`-1%~

Esto toma un argumento en la pila y deja el resultado en la pila. Estoy explotando la opción "subprograma" en la especificación: si insiste en una función, son cuatro caracteres más dejándola en la pila:

{`-1%~}:r

En scripting de shell:

  echo "your number"|rev

Espero que esto haya sido útil :)

Un poco tarde pero

APL, 3

⍎⌽⍞

Si insiste en una función

⍎∘⌽∘⍕

Mathematica, 14 bytes

IntegerReverse

Esto no es competitivo, porque esta función solo se agregó en la versión 10.3 de la semana pasada, pero para completar, pensé que agregaría el único (¿creo?) Incorporado para esta tarea.

Podrías hacer lo siguiente en Java. Tenga en cuenta que esto se convierte en String y viceversa y no es una solución matemática.

public class test {
    public static int reverseInt(int i) {
        return Integer.valueOf((new StringBuffer(String.valueOf(i))).reverse().toString());
    }

    public static void main(String[] args) {
        int i = 1234;
        System.out.println("reverse("+i+") -> " + reverseInt(i));
    }
}

Lua

Los números y las cadenas son intercambiables, por lo que esto es trivial

string.reverse(12345)

Este REALMENTE toma una entrada, a diferencia del resto:

print`input()`[::-1]

Python por cierto.

ActionScript

43 caracteres. num como parámetro de la función:

num.toString().split('').reverse().join('')

Maravilloso

r={"$it".reverse() as BigDecimal}

assert r(1234) == 4321
assert r(345678987654567898765) == 567898765456789876543
assert r(345346457.24654654) == 45645642.754643543

Perl, 11 caracteres

La pbandera es necesaria para que esto funcione, incluida en el recuento.

Uso:

$ echo 76543 | perl -pE '$_=reverse'

Clojure (42 caracteres)

#(->> % str reverse(apply str)read-string)

Ejemplo de uso:

(#(->> % str reverse(apply str)read-string) 98321)

devuelve 12389

Lisp común - 60 caracteres

(first(list(parse-integer(reverse(write-to-string '4279)))))

te llevará 9724.

K, 3 bytes:

.|$

Evalúe ( .) el reverso ( |) de la conversión a una cadena ($ ).

Ejemplo de uso:

  .|$76543
34567

rs , 20 bytes

#
+#(.*)(.)/\2#\1
#/

Técnicamente, esto no cuenta (rs fue creado a principios de este año), pero no vi ninguna otra respuesta basada en expresiones regulares, y pensé que esto estaba bien.

Demo en vivo.

Explicación:

#

Inserte un carácter de libra al comienzo de la cadena. Esto se usa como marcador.

+#(.*)(.)/\2#\1

Anteponga continuamente el último carácter de la cadena principal al área antes del marcador hasta que no queden caracteres.

#/

Retira el marcador.

mIRC 4.45 (35 Bytes)

$regsubex(12,/(.)/g,$mid(\A,-\n,1))