Resimdeki gibi standart bir şifreli kilit verilir. Kilidini açmak için yolu koddaki 4 sayıyı birleştirme satırında hizalamaktır. Yıllarca süren sadakat hizmetlerinden sonra kilit fabrikasından kovuldunuz ve kilitleri göndermeden önce kilitleme yapmadan intikam almaya karar verdiniz, böylece her kilidi birleşim hattında kilidini açmak için kombinasyonla birlikte bırakın.

Ayrıca, diğer satırlardaki sayıların sırasına bakarak, kombinasyon satırında hangi sayıların bulunması gerektiğini (ve dolayısıyla kilidi açmak için kullanılan kombinasyonun) hesaplamanın mümkün olduğunu da biliyorsunuz.

Kilit üzerindeki her satıra, kombinasyon hattı için 0 satırından başlayarak (kilidin kilidini açan satır) satır 9'a kadar bir numara verilirse, örneğin, satır 4'teki sayılar varsa, 5336kilidi açmak için kullanılan kombinasyon olacaktır 1992.

Maalesef, kilitler önceden paketlenmiştir ve her bir kilidin görüşünü gizlemektesiniz, böylece sadece kilidin farklı satırlarındaki sayıları görebilirsiniz.

Meydan okuma

Tamsayının ilk basamağının satır numarasını, ikinci basamağın ise o satırda görünen rakamı gösterdiği 4 basamaklı rakamlar göz önüne alındığında, şifreyi kilidin üzerinde çalışın. Örneğin, eğer girdiyseniz:

57 23 99 45

Sonra çıktı gerekir:

2101

Veya

25 78 63 15

ve

3174

Girişin her zaman için 25 64 72 18 biçiminde 4 pozitif tam sayı olacağını varsayalım.

Bu kod-golf , yani bayt sayısındaki en kısa programlar kazanır.

Ayrıca bu benim ilk sorum, bu nedenle herhangi bir geri bildirim takdir edilmektedir.

CJam, 9 8 bayt

ea9fbAf%

Rakam çiftlerini komut satırı argümanları olarak okur. İçin çevrimiçi kodu deneyin , değişim eaiçin lS/simüle STDIN'den okumak için.

Örnek çalışma

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

Nasıl çalışır

Haneli bir karakter kodu d olduğunu + d 48 . Böylece, iki basamaklı dize xy baz alındığında, 9 sayı 9 * (48 + x) + (48 + y) = 10 * (48 + x) + y - x ≡ y - x (mod 10) verir .

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 karakter

User23013 sayesinde 11 karaktere düştü :)

4{Ar:--A%}*

açıklamalar:

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

Çevrimiçi deneyin

Daha çok golf oynayabileceğini biliyorum. Ama bu benim CJam'daki ilk gerçek girişimim ve deneyimle sınırlıyım :)

Alternatif olarak, aynı şeyi 1 ekstra karakterde yapan diğer yöntemler:

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

veya

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

veya

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

Golf Yazısı (14 13 )

Burada çevrimiçi deneyin

Optimizer’ın çözümü ile hemen hemen aynı , ancak farklı bir dilde. Farklı bir şekilde yaklaşmak zor, çünkü sorun oldukça basit , bu nedenle bağ, kesinlikle daha önce girişi daha iyisi olan Optimizer’a gidiyor.

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

Aynı sayıda bayt için

~]{.10/- 10%}/

GNU dc , 14 bayt

Borçlanma Dennis'in akıllı taban 9 numara @ :

9i[?A%nd]dxxxx

Giriş tamsayıları her satırda bir tane olmak üzere STDIN'den okunur.

Açıklama:

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    

Çıktı:

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

Önceki Cevap, 18 bayt:

Çünkü bununla "golf" dillerine daha yakın olabileceğimi düşündüm (ama yapmadım):

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

C 64 63 56 veya 61

Giriş dosyadan borulanabilir ise

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

Girdi stdin'e yazılmalıdır.

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

Döngüdeki dört sayıyı okur ve sonra her birini değerden ilk basamağı çıkararak ve sonuç modulosu 10 yazdırarak işler.

Aşağıdaki çeşitli yorumlar sayesinde ve ayrıca printf yerine putchar kullanarak tasarruf

Python 3, 64

Basit.

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

Bunun [2, 1, 0, 1]yerine yazdırmama izin verilirse daha kısa olabilir ( 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));}

Komut satırından giriş. Her argümanın ilk ASCII kodunu ikinciden çıkarır, 10 ekler ve modulo 10 alır.

Sanırım ilk defa printfdört %s ile yazdım ve virgül yok (virgül içinde #define.)

Java - 203 bayt

Orada Çünkü sahip bir Java girişi olmak gerekirse, ben bir şans (şimdiye kadar ilk teslim) golf bu kodu vermek için güzel bir fırsat gördü.

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

Bazı iyileştirmeler için yer varsa, onlar hakkında bilmek sevinirim ;-)

Lua - 46 karakter

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

Bir kerede üç karakter okur (sonunda bir boşluk girme konusunda bana küçük bir merhamet göster) ve a ve b string-y olsa bile ... Etrafı yazdırırken kontrol eder.

JavaScript ES6 - 53 43 bayt

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

Oldukça basit işlevi, sayıları almak için regex kullanır. Http://jsfiddle.net/efc93986/1/ adresinde deneyin . İşlevlere izin verilmezse, 52 bayt'ta bağımsız bir program:

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

ES6 şu anda yalnızca Firefox'ta çalıştığından, aşağıdaki kod herhangi bir modern tarayıcıda, 70 baytta çalışır:

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

Python 2 - 33 bayt

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

Virgülle ayrılmış kullanıcı girişini kabul eder. Örneğin, Giriş:

29,26, 31, 88

Çıktı:

7
4
8
0

Çıktı örneğe tam olarak uyması gerekiyorsa, çok daha uzundur. 47 bayt:

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

APL, 14

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

Açıklama
⎕ ekrandan girdi alır. Boşluk ile ayrılmış değerler bir dizi olarak ayrıştırılır.
{...}¨Her numara için, işlevine besleyin.
⍎¨⍕⍵argümanı alır, rakamlarından oluşan bir dizi oluşturur.
--/eksi onlarca birimi hesaplar.
10|10 numara.

J - 20 15

Fiil olmayan form (işlev tanımı yerine ifade olarak) 5 karakterden kısadır:

10|-~/|:10#.inv

Güzel bir tren olan fiil formu :

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

Örnek girdilerde kullanılan bu fiil:

   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

Tek karakterli rakamlar, Haskell golf oyununda gerçek bir nemesis.

Perl: 38 40

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

Çıktı:

% perl code.pl
57 23 99 45
2101

25 78 63 15                                     
3174

Ruby, 35 bayt

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

açıklama

Giriş, komut satırı argümanları olarak alınır. String#bytesbir Tam Sayı Dizisi (ASCII karakter kodları) döndürür. Yalnızca son ve ilk karakter kodu arasındaki fark, Integer'in kendileri için değil, önemlidir.

C # ve 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 karakter

Kod golfü bir deneyeyim dedim, işte burada, ilk girişimim - muhtemelen daha fazla golf olabilir.

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

58 karakter (Ismael Miguel'in izniyle)

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

Kullanarak erişim dosyası

file.php?n=57239945

Python 3, 60

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

Tam olarak belirtildiği gibi giriş ve çıkış yapın, ancak takip eden bir yeni satır yazdırmaz. Burada iki ilginç numara: 1) iki çağrıyı int()bir çağrı ile değiştirmek eval(), ve 2) kullanmajoin() almak içina-b , sonra gerektiğinde olumsuzlamak b-a. Neyse ki Python'un modulo operatörü, ilk argüman negatif olsa bile pozitif değerler veriyor!