Biorąc pod uwagę standardowy zamek szyfrowy, taki jak na zdjęciu. Sposób odblokowania polega na wyrównaniu 4 cyfr w kodzie w wierszu kombinacji. Po latach lojalnej służby zostałeś zwolniony z fabryki zamków i zdecydowałeś się zemścić, nie zrywając zamków przed ich wysłaniem, pozostawiając w ten sposób każdy zamek z kombinacją, aby odblokować go na linii kombinacji.

Wiesz również, że patrząc na kolejność liczb w innych liniach można ustalić, jakie liczby muszą znajdować się na linii kombinacji (a zatem i kombinacji, aby ją odblokować).

Jeśli każda linia na zamku otrzyma numer zaczynający się od linii 0 dla linii złożonej (linia, która odblokowuje zamek) do linii 9. Na przykład, jeśli liczby w linii 4 są 5336, to kombinacja do odblokowania będzie 1992.

Niestety zamki zostały już spakowane, a widok każdego zamka jest zasłonięty, więc możesz zobaczyć tylko liczby w różnych liniach zamka.

Wyzwanie

Biorąc pod uwagę 4 pary cyfr, gdzie pierwsza cyfra liczby całkowitej reprezentuje numer linii, a druga cyfra reprezentuje liczbę, która pojawia się w tej linii, opracuj kombinację do zamka. Na przykład jeśli wpiszesz:

57 23 99 45

Następnie powinien wypisać:

2101

Lub

25 78 63 15

i

3174

Załóżmy, że dane wejściowe będą zawsze 4 dodatnimi liczbami całkowitymi w postaci `25 64 72 18.

To jest golf golfowy , więc wygrywa najkrótszy program pod względem liczby bajtów.

Jest to również moje pierwsze pytanie, więc wszelkie uwagi są mile widziane.

CJam, 9 8 bajtów

ea9fbAf%

Czyta pary cyfr jako argumenty wiersza poleceń. Aby wypróbować kodu w Internecie , zmiany eado lS/odczytu z symulowanym stdin.

Przykładowy przebieg

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

Jak to działa

Kod znaku cyfry d to 48 + d . Zatem, biorąc pod uwagę dwucyfrowy ciąg xy, podstawowa liczba 9 daje 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 znaków

Dzięki user23013 ma teraz do 11 znaków :)

4{Ar:--A%}*

Objaśnienia:

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

Wypróbuj online

Wiem, że można bardziej grać w golfa. Ale to moja pierwsza prawdziwa próba na CJam i jestem ograniczony doświadczeniem :)

Alternatywnie, inne metody, aby zrobić to samo z 1 dodatkową postacią:

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

lub

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

lub

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

Golfscript (14 13 )

Wypróbuj online tutaj

Jest prawie taki sam jak rozwiązanie Optimizer , ale w innym języku. Trudno podejść do tego inaczej, ponieważ problem jest dość prosty , więc remis zdecydowanie trafia do Optymalizatora, którego wejście i tak było wcześniej.

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

Dla tej samej liczby bajtów możesz zrobić

~]{.10/- 10%}/

GNU dc , 14 bajtów

Pożyczka @ Sprytna sztuczka z bazą 9 Dennisa :

9i[?A%nd]dxxxx

Wprowadź liczby całkowite odczytane ze STDIN, po jednej w wierszu.

Wyjaśnienie:

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    

Wydajność:

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

Poprzednia odpowiedź, 18 bajtów:

Ponieważ myślałem, że mogę zbliżyć się do języków „golfowych” dzięki temu (ale nie zrobiłem tego):

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

C 64 63 56 lub 61

Jeśli dane wejściowe można potokować z pliku

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

Jeśli dane wejściowe należy wpisać jako standardowe

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

Odczytuje cztery liczby w pętli, a następnie przetwarza każdą z nich, odejmując pierwszą cyfrę od wartości i wypisując wynik modulo 10.

Oszczędności dzięki różnym komentarzom poniżej, a także zastosowaniu putchar zamiast printf

Python 3, 64

Bezpośredni.

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

Może być krótszy, jeśli mogę [2, 1, 0, 1]zamiast tego drukować, powiedzmy, ( 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));}

Dane wejściowe z wiersza polecenia. Odejmuje pierwszy kod ASCII każdego argumentu od drugiego, dodaje 10 i przyjmuje modulo 10.

Myślę, że po raz pierwszy napisałem printfz czterema %si bez przecinka (przecinek jest w #define.)

Java - 203 bajty

Tylko dlatego, że musi być wpis Java, widziałem dobrą okazję, aby dać szansę temu kodowi golfowemu (pierwsze zgłoszenie w historii).

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

Jeśli jest miejsce na ulepszenia, chętnie się o nich dowiem ;-)

Lua - 46 znaków

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

Czyta trzy znaki na raz (daj mi małą litość wpisywania spacji na końcu), a mimo to a i b są ciągami-y ... ba MAGICZNIE pozwala im poczuć zdrową liczbę całkowitą dla dziecka. Czy zawijanie sprawdza się podczas drukowania.

JavaScript ES6 - 53 43 bajty

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

Dość prosta funkcja, używa wyrażeń regularnych, aby uzyskać liczby. Wypróbuj na http://jsfiddle.net/efc93986/1/ . Jeśli funkcje nie są dozwolone, samodzielny program o 52 bajtach:

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

Ponieważ ES6 działa obecnie tylko w przeglądarce Firefox, poniższy kod działa w każdej nowoczesnej przeglądarce o rozmiarze 70 bajtów:

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

Python 2 - 33 bajty

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

Akceptuje dane wejściowe użytkownika rozdzielane przecinkami. Np. Wejście:

29,26, 31, 88

Wydajność:

7
4
8
0

Jeśli dane wyjściowe są wymagane, aby dokładnie pasować do przykładu, jest znacznie dłuższy. 47 bajtów:

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

APL, 14

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

Wyjaśnienie
⎕ pobiera dane z ekranu. Wartości rozdzielone spacjami są analizowane jako tablica.
{...}¨dla każdej liczby wprowadź ją do funkcji.
⍎¨⍕⍵bierze argument, utwórz tablicę jego cyfr.
--/oblicza jednostki minus dziesiątki.
10|mod 10.

J - 20 15

Forma nie-czasownikowa (jako instrukcja zamiast definicji funkcji) jest krótsza o 5 znaków:

10|-~/|:10#.inv

Forma czasownika, która jest ładnym pociągiem :

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

Ten czasownik użyty na przykładowych danych wejściowych:

   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

Cyfry jednoznakowe, prawdziwy nemezis w grze w golfa w Haskell.

Perl: 38 40

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

Wydajność:

% perl code.pl
57 23 99 45
2101

25 78 63 15                                     
3174

Rubin, 35 bajtów

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

Wyjaśnienie

Dane wejściowe są traktowane jako argumenty wiersza poleceń. String#byteszwraca tablicę liczb całkowitych (kody znaków ASCII). Ważna jest tylko różnica między kodem ostatniego i pierwszego znaku, a nie same liczby całkowite.

C # i 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 znaków

Pomyślałem, że wypróbuję kod golfa, więc oto moja pierwsza próba - prawdopodobnie można więcej.

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

58 znaków (dzięki uprzejmości Ismael Miguel)

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

Uzyskaj dostęp do pliku za pomocą

file.php?n=57239945

Python 3, 60

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

Dane wejściowe i wyjściowe są dokładnie takie, jak określono, chociaż nie drukuje końcowego nowego wiersza. Dwie interesujące sztuczki tutaj: 1) zamiana dwóch wywołań na int()jedno wywołanie do eval(), i 2) używanie, join()aby uzyskać a-b, a następnie negowanie tego b-aw razie potrzeby. Na szczęście operator modulo Pythona podaje wartości dodatnie, nawet jeśli pierwszy argument jest ujemny!