Dado un bloqueo de combinación estándar como el de la imagen. La forma de desbloquearlo es alinear los 4 números en el código en la línea de combinación. Después de años de servicio leal, ha sido despedido de la fábrica de cerraduras y ha decidido vengarse al no mezclar las cerraduras antes de enviarlas, dejando así cada cerradura con la combinación para desbloquearla en la línea de combinación.

También sabe que al observar el orden de los números en las otras líneas, es posible determinar qué números deben estar en la línea de combinación (y, por lo tanto, la combinación para desbloquearla es).

Si a cada línea de la cerradura se le asigna un número que comienza desde la línea 0 para la línea de combinación (la línea que desbloquea la cerradura) hasta la línea 9. Por ejemplo, si los números de la línea 4 son 5336, entonces la combinación para desbloquearlo sería 1992.

Desafortunadamente, las cerraduras ya se han empaquetado y su vista de cada cerradura está oculta, por lo que solo puede ver números en diferentes líneas de la cerradura.

El reto

Dados 4 pares de dígitos, donde el primer dígito del número entero representa el número de línea y el segundo dígito representa el número que aparece en esa línea, calcule la combinación de la cerradura. Por ejemplo, si ingresa:

57 23 99 45

Entonces debería generar:

2101

O

25 78 63 15

y

3174

Suponga que la entrada siempre será 4 enteros positivos en la forma `25 64 72 18.

Este es el código de golf , por lo que gana el programa más corto en número de bytes.

También esta es mi primera pregunta, por lo que cualquier comentario es apreciado.

CJam, 9 8 bytes

ea9fbAf%

Lee los pares de dígitos como argumentos de línea de comandos. Para probar el código en línea , el cambio eaa lS/leer de STDIN simulado.

Ejecución de ejemplo

$ cjam <(echo ea9fbAf%) 57 23 99 45; echo
2101
$ cjam <(echo ea9fbAf%) 25 78 63 15; echo
3174

Cómo funciona

El código de caracteres del dígito d es 48 + d . Por lo tanto, considerando la cadena de dos dígitos xy, un número base 9 produce 9 * (48 + x) + (48 + y) = 10 * (48 + x) + y - x ≡ y - x (mod 10) .

ea       " Push the array of command-line arguments.                                      ";
  9fb    " Mapped base 9 conversion; replace each string 'xy' with (9 * ord(x) + ord(y)). ";
     Af% " Take the results modulo 10.                                                    ";

CJam, 13 12 11 caracteres

Gracias a user23013, ahora tiene solo 11 caracteres :)

4{Ar:--A%}*

Explicaciones:

4{       }*     "Run the code block 4 times";
   r            "Read the next input token (whitespace separated)";
    :-          "Subtract 2nd number from the first treating r as a 2 numbered string";
  A   -         "Subtract the result of above from 10";
       A%       "Take modulus of 10 and store it on stack";

Pruébalo en línea

Sé que se puede jugar más al golf. Pero este es mi primer intento real en CJam y estoy limitado por la experiencia :)

Alternativamente, los otros métodos para hacer lo mismo en 1 carácter adicional:

l~]{_A/-A%}/     // My previous solution

o

4{ri_A/-A%}*     // As pointed out by Ingo

o

ea{i_A/-A%}/     // If input is passed through command line

Golfscript (14 13 )

Pruébalo en línea aquí

Es casi lo mismo que la solución de Optimizer , pero en un idioma diferente. Es difícil abordarlo de una manera diferente porque el problema es bastante simple , por lo que el empate definitivamente va a Optimizer, cuya entrada fue anterior de todos modos.

~]{.10:^/-^%}/

Para la misma cantidad de bytes que puedes hacer

~]{.10/- 10%}/

GNU dc , 14 bytes

Pedir prestado el truco inteligente de base 9 de Dennis :

9i[?A%nd]dxxxx

Enteros de entrada leídos de STDIN, uno por línea.

Explicación:

9i                # Set input radix to 9
  [     ]         # push a macro, defined thus:
   ?              #   read number from STDIN and push
    A             #   push literal 10
     %            #   calculate number mod 10
      n           #   print, with no newline
       d          #   duplicate macro
         d        # duplicate macro
          xxxx    # execute the macro 4 times    

Salida:

$ for i in 57 23 99 45; do echo $i; done | dc ./combolock.dc
2101$ 
$ for i in 25 78 63 15; do echo $i; done | dc ./combolock.dc
3174$ 
$ 

Respuesta anterior, 18 bytes:

Porque pensé que podría acercarme a los idiomas de "golf" con esto (pero no lo hice):

[A?A~--A%n]dddxxxx

C 64 63 56 o 61

Si la entrada se puede canalizar desde el archivo

main(a){while(scanf("%d",&a)>0)putchar(48+(a-a/10)%10);}

Si la entrada debe escribirse en stdin

i;main(a){for(;i++-4;putchar(48+(a-a/10)%10))scanf("%d",&a);}

Lee los cuatro números en un bucle y luego procesa cada uno restando el primer dígito del valor e imprimiendo el módulo de resultado 10.

Ahorro gracias a varios comentarios a continuación y también al uso de putchar en lugar de printf

Pitón 3, 64

Sencillo.

print(''.join([(i-i//10)%10 for i in map(int,input().split())]))

Puede ser más corto si se me permite imprimir, por ejemplo, [2, 1, 0, 1]( 46 ):

print([i%10-i//10 for i in map(int,input().split())])

C, 92

#define a(n) ,(10+v[n][1]-*v[n])%10
main(int c,char**v){printf("%d%d%d%d"a(1)a(2)a(3)a(4));}

Entrada desde la línea de comandos. Resta el primer código ASCII de cada argumento del segundo, agrega 10 y toma el módulo 10.

Creo que esta es la primera vez que escribo un printfcon cuatro %sy sin coma (la coma está en el #define.)

Java - 203 bytes

Solo porque tiene que haber una entrada en Java, vi una buena oportunidad para darle una oportunidad a este código de golf (primer envío).

class M{public static void main(String[] a){String r="";for(int i=0;i<4;i++){int l=Byte.valueOf(a[i].substring(1));int f=Byte.valueOf(a[i].substring(0,1));r+=(l-f<0)?l-f+10:l-f;}System.out.print(r);}}

Si hay espacio para algunas mejoras, me alegraría saber sobre ellas ;-)

Lua - 46 caracteres

while''do a,b=io.read(1,1,1)print((b-a)%10)end

Lee tres caracteres a la vez (concédeme la pequeña misericordia de ingresar un espacio al final), y aunque a y b son cadenas y ... ba MÁGICAMENTE les permite concebir un bebé entero sano. Realiza la verificación envolvente durante la impresión.

JavaScript ES6 - 53 43 bytes

f=n=>n.replace(/.. ?/g,a=>(1+a[1]-a[0])%10)

Función bastante sencilla, utiliza expresiones regulares para obtener los números. Pruébelo en http://jsfiddle.net/efc93986/1/ . Si no se permiten funciones, un programa independiente de 52 bytes:

alert(prompt().replace(/.. ?/g,a=>(1+a[1]-a[0])%10))

Como ES6 actualmente solo funciona en Firefox, el siguiente código funciona en cualquier navegador moderno, a 70 bytes:

alert(prompt().replace(/.. ?/g,function(a){return(1+a[1]-a[0])%10}))

Python 2 - 33 bytes

for i in input():print(i-i/10)%10

Acepta entradas de usuario delimitadas por comas. Por ejemplo, entrada:

29,26, 31, 88

Salida:

7
4
8
0

Si se requiere un resultado que coincida exactamente con el ejemplo, entonces es mucho más largo. 47 bytes:

print"%d"*4%tuple((i-i/10)%10 for i in input())

APL, 14

10|{--/⍎¨⍕⍵}¨⎕

La explicación
⎕ toma la entrada de la pantalla. Los valores separados por espacios se analizan como una matriz.
{...}¨para cada número, aliméntelo en función.
⍎¨⍕⍵toma el argumento, crea una matriz de sus dígitos.
--/calcula unidades menos decenas.
10|mod 10.

J - 20 15

La forma no verbal (como declaración en lugar de definición de función) es 5 caracteres más corta:

10|-~/|:10#.inv

La forma verbal que es un buen tren :

10|[:-~/[:|:10#.inv]

Este verbo usado en las entradas de ejemplo:

   10|-~/|:10#.inv 57 23 99 45
2 1 0 1
   10|-~/|:10#.inv 25 78 63 15
3 1 7 4

rotd =: 10|[:-~/[:|:10#.inv] NB. verb form

   rotd 25 78 63 15
3 1 7 4
   rotd 57 23 99 45
2 1 0 1

Haskell 60 58

main=interact$show.map((\x->mod(x-x`div`10)10).read).words

Dígitos de un solo personaje, una verdadera némesis en el golf de Haskell.

Perl: 38 40

print abs($_-int$_/10)%10for split" ",<>

Salida:

% perl code.pl
57 23 99 45
2101

25 78 63 15                                     
3174

Ruby, 35 bytes

$*.map{|n|a,b=n.bytes;$><<(b-a)%10}

Explicación

La entrada se toma como argumentos de línea de comando. String#bytesdevuelve una matriz de enteros (códigos de caracteres ASCII). Solo la diferencia entre el último y el primer código de caracteres es importante, no los enteros mismos.

C # y LinqPad: 104

Util.ReadLine<string>("").Split(' ').Select(s =>(s[1]-s[0])).Aggregate("",(r,a)=>r+(a<0?10+a:a)).Dump();

C ++ 118

int main()
{
int a,b,c;
for(int i=0; i<4; i++)
{
cin>>a;
b=a/10;
a=a%10;
c=a-b;
if(c<0)c+=10;
cout<<c;
}
}

PHP - 90 caracteres

Pensé en probar el código de golf, así que aquí está, mi primer intento, probablemente se pueda jugar más.

<?php $a=array(57,23,99,45);foreach($a as$b){echo abs(substr($b,0,1)-substr($b,1,1)%10);}

58 caracteres (cortesía de Ismael Miguel)

for($i=0,$a=$_GET[n];$i<8;)echo abs($a[$i++]-$a[$i++]);

Acceda al archivo usando

file.php?n=57239945

Pitón 3, 60

for x in input().split():print(-eval('-'.join(x))%10,end='')

Entrada y salida exactamente como se especifica, aunque no imprime una nueva línea final. Aquí hay dos trucos interesantes: 1) reemplazar dos llamadas a int()por una llamada a eval(), y 2) usar join()para obtener a-b, luego negarlo b-asegún sea necesario. Afortunadamente, el operador de módulo de Python da valores positivos incluso si el primer argumento es negativo.