Dato un lucchetto a combinazione standard come quello nella foto. Il modo per sbloccarlo è allineare i 4 numeri nel codice sulla riga di combinazione. Dopo anni di fedele servizio sei stato licenziato dalla fabbrica di serrature e hai deciso di vendicarti non confondendo le serrature prima di espellerle, lasciando così ogni serratura con la combinazione per sbloccarla sulla linea della combinazione.

Sai anche che guardando l'ordine dei numeri nelle altre righe è possibile capire quali numeri devono essere sulla riga della combinazione (e quindi la combinazione per sbloccarla è).

Se a ogni riga del lucchetto viene assegnato un numero che inizia dalla riga 0 per la riga combinata (la riga che sblocca il blocco) alla riga 9. Ad esempio, se i numeri sulla riga 4 lo sono 5336, allora la combinazione per sbloccarlo sarebbe 1992.

Sfortunatamente i blocchi sono già stati impacchettati e la tua vista di ciascun blocco è oscurata, quindi puoi vedere solo numeri su diverse linee del blocco.

La sfida

Dato 4 coppie di cifre, in cui la prima cifra dell'intero rappresenta il numero di riga e la seconda cifra rappresenta il numero che appare su quella riga, elaborare la combinazione per il blocco. Ad esempio se inserisci:

57 23 99 45

Quindi dovrebbe emettere:

2101

O

25 78 63 15

e

3174

Supponiamo che l'input sia sempre 4 numeri interi positivi nella forma `25 64 72 18.

Questo è code-golf , quindi vince il programma più breve in numero di byte.

Anche questa è la mia prima domanda, quindi ogni feedback è apprezzato.

CJam, 9 8 byte

ea9fbAf%

Legge le coppie di cifre come argomenti della riga di comando. Per provare il codice di linea , cambio eaa lS/leggere da STDIN simulato.

Esempio di esecuzione

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

Come funziona

Il codice carattere della cifra d è 48 + d . Pertanto, considerando la stringa di due cifre xy un numero di 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 caratteri

Grazie a user23013, ora è ridotto a 11 caratteri :)

4{Ar:--A%}*

spiegazioni:

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

Provalo online

So che si può giocare a golf di più. Ma questo è il mio primo vero tentativo su CJam e sono limitato dall'esperienza :)

In alternativa, gli altri metodi per fare la stessa cosa con 1 carattere in più:

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 )

Provalo online qui

È praticamente la stessa della soluzione Optimizer , ma in una lingua diversa. È difficile affrontarlo in modo diverso perché il problema è abbastanza semplice , quindi il legame va sicuramente a Optimizer, la cui voce era comunque precedente.

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

Per lo stesso numero di byte che puoi fare

~]{.10/- 10%}/

GNU cc , 14 byte

Prendendo in prestito l'intelligente trucco di base 9 di Dennis :

9i[?A%nd]dxxxx

Numeri interi di input letti da STDIN, uno per riga.

Spiegazione:

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    

Produzione:

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

Risposta precedente, 18 byte:

Perché pensavo di poter avvicinarmi alle lingue del "golf" con questo (ma non l'ho fatto):

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

C 64 63 56 o 61

Se l'input può essere reindirizzato dal file

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

Se l'input deve essere digitato su stdin

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

Legge i quattro numeri in un ciclo e quindi li elabora sottraendo la prima cifra dal valore e stampando il risultato modulo 10.

Risparmio grazie ai vari commenti qui sotto e anche usando putchar invece di printf

Python 3, 64

Semplice.

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

Può essere più breve se mi è permesso stampare, diciamo, [2, 1, 0, 1]invece ( 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));}

Input dalla riga di comando. Sottrae il primo codice ASCII di ciascun argomento dal secondo, aggiunge 10 e accetta il modulo 10.

Penso che questa sia la prima volta che scrivo a printfcon quattro se %nessuna virgola (la virgola è nella #define.)

Java - 203 byte

Solo perché ci deve essere una voce Java, ho visto una bella opportunità per dare una possibilità a questo codice di giocare a golf (prima presentazione in assoluto).

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 c'è spazio per alcuni miglioramenti, sarei felice di conoscerli ;-)

Lua - 46 caratteri

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

Legge tre caratteri alla volta (concedimi la piccola misericordia di inserire uno spazio alla fine), e anche se a e b sono string-y ... ba MAGICALUALY consente loro di concepire un intero bambino sano. Esegue il controllo avvolgente durante la stampa.

JavaScript ES6 - 53 43 byte

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

Funzione abbastanza semplice, usa regex per ottenere i numeri. Provalo su http://jsfiddle.net/efc93986/1/ . Se le funzioni non sono consentite, un programma autonomo a 52 byte:

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

Poiché ES6 attualmente funziona solo su Firefox, il seguente codice funziona su qualsiasi browser moderno, a 70 byte:

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

Python 2 - 33 byte

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

Accetta input utente delimitato da virgole. Ad esempio input:

29,26, 31, 88

Produzione:

7
4
8
0

Se l'output deve corrispondere esattamente all'esempio, allora è molto più lungo. 47 byte:

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

APL, 14

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

La spiegazione
⎕ prende input dallo schermo. I valori separati da spazio vengono analizzati come una matrice.
{...}¨per ogni numero, inseriscilo in funzione.
⍎¨⍕⍵accetta l'argomento, crea una matrice delle sue cifre.
--/calcola le unità meno le decine.
10|mod 10.

J - 20 15

La forma non verbale (come istruzione anziché definizione della funzione) è più corta di 5 caratteri:

10|-~/|:10#.inv

La forma del verbo che è un bel treno :

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

Questo verbo utilizzato sugli input di esempio:

   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

Cifre a carattere singolo, una vera nemesi nel golf di Haskell.

Perl: 38 40

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

Produzione:

% perl code.pl
57 23 99 45
2101

25 78 63 15                                     
3174

Rubino, 35 byte

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

Spiegazione

L'input viene considerato come argomento della riga di comando. String#bytesrestituisce una matrice di numeri interi (codici di caratteri ASCII). È importante solo la differenza tra il codice dell'ultimo e del primo carattere, non gli interi.

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 caratteri

Ho pensato di provare il codice golf, quindi eccolo qui, il mio primo tentativo - probabilmente può essere giocato a golf di più.

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

58 personaggi (per gentile concessione di Ismael Miguel)

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

Accedi al file usando

file.php?n=57239945

Python 3, 60

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

Input e output esattamente come specificato, anche se non stampa una nuova riga finale. Due trucchi interessanti qui: 1) sostituendo due chiamate a int()con una chiamata a eval(), e 2) usando join()per ottenere a-b, quindi annullandolo b-acome richiesto. Fortunatamente l'operatore modulo di Python fornisce valori positivi anche se il primo argomento è negativo!