Bei einem Standard-Zahlenschloss wie auf dem Bild. Zum Entsperren richten Sie die 4 Zahlen im Code in der Kombinationszeile aus. Nach Jahren des treuen Dienstes wurden Sie aus der Schlossfabrik entlassen und haben sich entschlossen, Rache zu üben, indem Sie die Schlösser nicht durcheinandergebracht haben, bevor Sie sie abschicken, und so jedes Schloss mit der Kombination belassen, um sie auf der Kombinationslinie zu entsperren.

Sie wissen auch, dass Sie anhand der Reihenfolge der Zahlen in den anderen Zeilen herausfinden können, welche Zahlen in der Kombinationszeile enthalten sein müssen (und daher die Kombination, mit der sie entsperrt werden soll).

Wenn jeder Zeile des Schlosses eine Nummer zugewiesen wird, die von Zeile 0 für die Kombinationszeile (die Zeile, die das Schloss entsperrt) bis Zeile 9 beginnt. Wenn beispielsweise die Nummern in Zeile 4 lauten 5336, ist dies die zu entsperrende Kombination 1992.

Leider wurden die Schlösser bereits verpackt und Ihre Sicht auf jedes Schloss ist verdeckt, sodass Sie nur Zahlen in verschiedenen Schlosszeilen sehen können.

Die Herausforderung

Bei 4 Ziffernpaaren, wobei die erste Ziffer der Ganzzahl die Zeilennummer und die zweite Ziffer die in dieser Zeile erscheinende Zahl darstellt, muss die Zahlenkombination für das Schloss ermittelt werden. Zum Beispiel, wenn Sie Folgendes eingeben:

57 23 99 45

Dann sollte es ausgeben:

2101

Oder

25 78 63 15

und

3174

Angenommen, die Eingabe besteht immer aus 4 positiven ganzen Zahlen in der Form `25 64 72 18.

Dies ist Code-Golf , also gewinnt das kürzeste Programm in der Anzahl der Bytes.

Auch dies ist meine erste Frage, daher ist jedes Feedback willkommen.

CJam, 9 8 Bytes

ea9fbAf%

Liest die Ziffernpaare als Befehlszeilenargumente. Um den Code online auszuprobieren , wechseln Sie eazu " lS/Aus simuliertem STDIN lesen".

Beispiellauf

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

Wie es funktioniert

Der Zeichencode der Ziffer d ist 48 + d . Betrachtet man also die zweistellige Zeichenkette xy, ergibt eine Zahl zur Basis 9 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 Zeichen

Dank user23013 sind es jetzt nur noch 11 Zeichen :)

4{Ar:--A%}*

Erklärungen:

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

Probieren Sie es online aus

Ich weiß, dass man mehr Golf spielen kann. Aber dies ist mein erster wirklicher Versuch bei CJam und ich bin durch Erfahrung eingeschränkt :)

Alternativ die anderen Methoden, um dasselbe in einem zusätzlichen Zeichen zu tun:

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

oder

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

oder

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

Golfscript (14 13 )

Probieren Sie es hier online aus

Es ist so ziemlich das Gleiche wie die Lösung von Optimizer , jedoch in einer anderen Sprache. Eine andere Herangehensweise ist schwierig, da das Problem recht einfach ist. Die Entscheidung liegt also definitiv bei Optimizer, dessen Eintrag ohnehin früher war.

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

Für die gleiche Anzahl von Bytes können Sie tun

~]{.10/- 10%}/

GNU DC , 14 Bytes

Borrowing @ Dennis 'cleverer Base 9-Trick :

9i[?A%nd]dxxxx

Eingabe-Ganzzahlen, die aus STDIN gelesen werden, eine pro Zeile.

Erläuterung:

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    

Ausgabe:

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

Vorherige Antwort, 18 Bytes:

Weil ich dachte, ich könnte mich damit den "Golf" -Sprachen nähern (tat es aber nicht):

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

C 64 63 56 oder 61

Wenn die Eingabe aus der Datei weitergeleitet werden kann

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

Wenn die Eingabe auf stdin geschrieben werden soll

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

Liest die vier Zahlen in einer Schleife und verarbeitet sie dann, indem die erste Ziffer vom Wert subtrahiert und das Ergebnis Modulo 10 gedruckt wird.

Einsparungen durch verschiedene Kommentare unten und die Verwendung von Putchar anstelle von printf

Python 3, 64

Einfach.

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

Es kann kürzer sein, wenn ich [2, 1, 0, 1]stattdessen drucken darf ( 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));}

Eingabe von der Kommandozeile. Subtrahiert den ersten ASCII-Code jedes Arguments vom zweiten, addiert 10 und nimmt modulo 10.

Ich denke, dies ist das erste Mal, dass ich ein printfmit vier %s und ohne Komma geschrieben habe (das Komma ist in der #define.)

Java - 203 Bytes

Nur weil es hat ein Java - Eintrag sein, sah ich eine schöne Gelegenheit , diesen Code eine Chance zu geben (erste Vorlage überhaupt) Golf spielen.

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

Wenn es Raum für Verbesserungen gibt, würde ich mich freuen, davon zu erfahren ;-)

Lua - 46 Zeichen

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

Liest drei Zeichen gleichzeitig (gib mir die kleine Gnade, am Ende ein Leerzeichen einzugeben), und obwohl a und b string-y sind ... ba erlaubt MAGICALY ihnen, eine gesunde Baby-Ganzzahl zu empfangen. Prüft der Wrap-Around während des Druckvorgangs.

JavaScript ES6 - 53 43 Bytes

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

Ziemlich einfache Funktion, verwendet Regex, um die Zahlen zu erhalten. Probieren Sie es unter http://jsfiddle.net/efc93986/1/ aus . Wenn Funktionen nicht zulässig sind, ein eigenständiges Programm mit 52 Byte:

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

Da ES6 derzeit nur unter Firefox funktioniert, funktioniert der folgende Code mit 70 Byte in jedem modernen Browser:

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

Akzeptiert durch Kommas getrennte Benutzereingaben. ZB Eingabe:

29,26, 31, 88

Ausgabe:

7
4
8
0

Wenn die Ausgabe genau mit dem Beispiel übereinstimmen muss, ist sie viel länger. 47 Bytes:

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

APL, 14

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

Die Erklärung
⎕ erfolgt über den Bildschirm. Durch Leerzeichen getrennte Werte werden als Array analysiert.
{...}¨Geben Sie für jede Nummer die Funktion ein.
⍎¨⍕⍵Nimmt das Argument, erstellen Sie ein Array mit seinen Ziffern.
--/berechnet Einheiten minus zehn.
10|mod 10.

J - 20 15

Die non-verb Form (als Anweisung anstelle der Funktionsdefinition) ist 5 Zeichen kürzer:

10|-~/|:10#.inv

Die Verbform, die ein schöner Zug ist :

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

Dieses Verb wird für die Beispieleingaben verwendet:

   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

Ziffern mit einem Buchstaben, eine echte Nemesis im Golfsport von Haskell.

Perl: 38 40

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

Ausgabe:

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

Erläuterung

Die Eingabe wird als Befehlszeilenargumente verwendet. String#bytesGibt ein Array von Ganzzahlen (ASCII-Zeichencodes) zurück. Nur der Unterschied zwischen dem letzten und dem ersten Zeichencode ist von Bedeutung, nicht die Ganzzahlen selbst.

C # & 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 Zeichen

Ich dachte, ich würde Codegolf ausprobieren, also hier ist es, mein erster Versuch - kann wahrscheinlich mehr Golf gespielt werden.

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

58 Zeichen (mit freundlicher Genehmigung von Ismael Miguel)

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

Greifen Sie mit auf die Datei zu

file.php?n=57239945

Python 3, 60

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

Eingabe und Ausgabe genau wie angegeben, obwohl keine nachgestellte Zeile ausgegeben wird. Hier zwei interessante Tricks: 1) Ersetzen von zwei Anrufen int()durch einen Anruf eval()und 2) Verwenden von join(), um zu erhalten a-b, und Negieren nach b-aBedarf. Glücklicherweise gibt Pythons Modulo-Operator positive Werte aus, auch wenn das erste Argument negativ ist!