Dada uma trava de combinação padrão como a da foto. A maneira de desbloqueá-lo é alinhar os 4 números no código na linha de combinação. Depois de anos de serviço leal, você foi demitido da fábrica de fechaduras e decidiu se vingar não estragando as fechaduras antes de enviá-las, deixando assim cada fechadura com a combinação para desbloqueá-la na linha de combinação.

Você também sabe que, observando a ordem dos números nas outras linhas, é possível determinar quais números devem estar na linha de combinação (e, portanto, a combinação para desbloqueá-lo).

Se cada linha do bloqueio receber um número começando da linha 0 da linha de combinação (a linha que desbloqueia o bloqueio) até a linha 9. Por exemplo, se os números da linha 4 forem 5336, então a combinação para desbloqueá-lo seria 1992.

Infelizmente, os bloqueios já foram empacotados e sua visão de cada bloqueio é obscurecida, portanto, você só pode ver números em diferentes linhas do bloqueio.

O desafio

Dados 4 pares de dígitos, em que o primeiro dígito do número inteiro representa o número da linha e o segundo dígito representa o número que aparece nessa linha, calcule a combinação da fechadura. Por exemplo, se você digitar:

57 23 99 45

Então ele deve gerar:

2101

Ou

25 78 63 15

e

3174

Suponha que a entrada sempre terá 4 números inteiros positivos na forma `25 64 72 18.

Isso é código-golfe , então os programas mais curtos em número de bytes vencem.

Além disso, esta é minha primeira pergunta, portanto qualquer feedback é apreciado.

CJam, 9 8 bytes

ea9fbAf%

Lê os pares de dígitos como argumentos da linha de comando. Para experimentar o código online , mude eapara lS/para ler a partir de STDIN simulado.

Exemplo de execução

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

Como funciona

O código de caractere do dígito d é 48 + d . Assim, considerando a sequência de dois dígitos xy, um número base 9 produz 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

Graças ao user23013, agora ele tem 11 caracteres :)

4{Ar:--A%}*

Explicações:

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";

Experimente online

Eu sei que pode ser jogado mais. Mas esta é a minha primeira tentativa real no CJam e estou limitado pela experiência :)

Como alternativa, os outros métodos para fazer a mesma coisa em 1 caractere extra:

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

ou

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

ou

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

Golfe (14 13 )

Experimente online aqui

É praticamente o mesmo que a solução Optimizer , mas em um idioma diferente. É difícil abordá-lo de uma maneira diferente, porque o problema é bastante simples , então o empate definitivamente vai para o Optimizer, cuja entrada era anterior de qualquer maneira.

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

Para o mesmo número de bytes, você pode fazer

~]{.10/- 10%}/

GNU dc , 14 bytes

Usando o truque inteligente da base 9 de Dennis :

9i[?A%nd]dxxxx

Inteiros de entrada lidos em STDIN, um por linha.

Explicação:

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    

Saída:

$ 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$ 
$ 

Resposta anterior, 18 bytes:

Porque eu pensei que poderia me aproximar dos idiomas "golfe" com isso (mas não o fiz):

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

C 64 63 56 ou 61

Se a entrada puder ser canalizada do arquivo

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

Se a entrada deve ser digitada como stdin

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

Lê os quatro números em um loop e depois processa cada um subtraindo o primeiro dígito do valor e imprimindo o módulo de resultado 10.

Economia graças a vários comentários abaixo e também usando putchar em vez de printf

Python 3, 64

Direto.

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

Pode ser mais curto se eu puder imprimir, por exemplo [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 da linha de comando. Subtrai o primeiro código ASCII de cada argumento do segundo, adiciona 10 e pega o módulo 10.

Acho que é a primeira vez que escrevo um printfcom quatro se %nenhuma vírgula (a vírgula está na #define.)

Java - 203 bytes

Só porque tem que haver uma entrada Java, eu vi uma boa oportunidade para dar a esse código a chance de jogar golfe (a primeira submissão de todos os tempos).

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);}}

Se houver espaço para algumas melhorias, eu ficaria feliz em saber sobre elas ;-)

Lua - 46 caracteres

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

Lê três caracteres por vez (conceda-me a pequena misericórdia de inserir um espaço no final), e mesmo que aeb sejam string y ... ba MAGICALUALY permite que eles concebam um bebê inteiro saudável. O wrap-around verifica durante a impressão.

JavaScript ES6 - 53 43 bytes

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

Função bastante direta, usa regex para obter os números. Experimente em http://jsfiddle.net/efc93986/1/ . Se funções não forem permitidas, um programa independente de 52 bytes:

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

Como o ES6 atualmente funciona apenas no Firefox, o código a seguir funciona em qualquer navegador moderno, com 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

Aceita entrada de usuário delimitada por vírgula. Por exemplo, Entrada:

29,26, 31, 88

Saída:

7
4
8
0

Se a saída for necessária para corresponder exatamente ao exemplo, será muito mais longo. 47 bytes:

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

APL, 14

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

A explicação
⎕ recebe as informações da tela. Valores separados por espaço são analisados ​​como uma matriz.
{...}¨para cada número, alimente-o na função.
⍎¨⍕⍵pega o argumento, cria uma matriz de seus dígitos.
--/calcula unidades menos dezenas.
10|mod 10.

J - 20 15

A forma não-verbal (como instrução em vez de definição de função) é 5 caracteres mais curta:

10|-~/|:10#.inv

A forma verbal que é um bom trem :

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

Este verbo usado nas entradas de exemplo:

   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 caracteres únicos, um verdadeiro inimigo no golfe Haskell.

Perl: 38 40

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

Saída:

% 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}

Explicação

A entrada é aceita como argumentos de linha de comando. String#bytesretorna uma matriz de números inteiros (códigos de caracteres ASCII). Somente a diferença entre o código do último e do primeiro caractere é importante, não os números inteiros.

C # e 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

Pensei em tentar o código de golfe, então aqui está, minha primeira tentativa - provavelmente pode ser mais um jogo de golfe.

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

58 caracteres (cortesia de Ismael Miguel)

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

Acesse o arquivo usando

file.php?n=57239945

Python 3, 60

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

Entrada e saída exatamente como especificado, embora não imprima uma nova linha à direita. Dois truques interessantes aqui: 1) substituindo duas chamadas int()por uma chamada para eval()e 2) usando join()para obter e a-b, em seguida, negando-o b-aconforme necessário. Felizmente, o operador de módulo do Python fornece valores positivos, mesmo que o primeiro argumento seja negativo!