Diberi kunci kombinasi standar seperti yang ada pada gambar. Cara membuka kuncinya adalah dengan menyelaraskan 4 angka dalam kode pada baris kombinasi. Setelah bertahun-tahun pelayanan yang setia, Anda telah dipecat dari pabrik kunci dan telah memutuskan untuk membalas dendam dengan tidak mengacaukan kunci sebelum Anda mengirimnya, sehingga meninggalkan setiap kunci dengan kombinasi untuk membuka kuncinya pada jalur kombinasi.

Anda juga tahu bahwa dengan melihat urutan angka di baris lain, Anda dapat menentukan angka apa yang harus ada pada garis kombinasi (dan karenanya kombinasi untuk membuka kuncinya).

Jika setiap baris pada kunci diberi angka mulai dari baris 0 untuk garis kombinasi (garis yang membuka kunci) ke baris 9. Misalnya, jika angka pada baris 4 adalah 5336, maka kombinasi untuk membuka kunci akan menjadi 1992.

Sayangnya kunci sudah dipaket dan pandangan Anda tentang setiap kunci dikaburkan, sehingga Anda hanya dapat melihat angka pada garis kunci yang berbeda.

Tantangan

Diberi 4 pasang digit, di mana digit pertama bilangan bulat mewakili nomor baris dan digit kedua mewakili nomor yang muncul pada garis itu, buat kombinasi ke kunci. Misalnya jika Anda memasukkan:

57 23 99 45

Maka seharusnya output:

2101

Atau

25 78 63 15

dan

3174

Asumsikan input akan selalu menjadi 4 bilangan bulat positif dalam bentuk `25 64 72 18.

Ini adalah kode-golf , sehingga program terpendek dalam jumlah byte menang.

Ini juga pertanyaan pertama saya, jadi setiap umpan balik sangat dihargai.

CJam, 9 8 byte

ea9fbAf%

Membaca pasangan digit sebagai argumen baris perintah. Untuk mencoba kode online , perubahan eauntuk lS/membaca dari STDIN simulasi.

Contoh dijalankan

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

Bagaimana itu bekerja

Kode karakter digit d adalah 48 + d . Dengan demikian, mengingat string dua digit xy basa 9 angka menghasilkan 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 karakter

Terima kasih kepada user23013, sekarang menjadi 11 karakter :)

4{Ar:--A%}*

Penjelasan:

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

Cobalah online

Saya tahu ini bisa lebih banyak golf. Tapi ini adalah upaya nyata pertama saya di CJam dan saya dibatasi oleh pengalaman :)

Atau, metode lain untuk melakukan hal yang sama dalam 1 karakter tambahan:

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

atau

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

atau

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

Golfscript (14 13 )

Cobalah online di sini

Ini hampir sama dengan solusi Pengoptimal , tetapi dalam bahasa yang berbeda. Sulit untuk mendekatinya dengan cara yang berbeda karena masalahnya cukup sederhana , jadi ikatannya pasti masuk ke Pengoptimal, yang entri sebelumnya.

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

Untuk jumlah byte yang sama bisa Anda lakukan

~]{.10/- 10%}/

GNU dc , 14 byte

Pinjam 9 trik pintar base 9 dari Dennis :

9i[?A%nd]dxxxx

Bilangan bulat input dibaca dari STDIN, satu per baris.

Penjelasan:

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    

Keluaran:

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

Jawaban Sebelumnya, 18 byte:

Karena saya pikir saya bisa lebih dekat ke bahasa "golf" dengan ini (tetapi tidak):

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

C 64 63 56 atau 61

Jika input dapat disalurkan dari file

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

Jika input harus diketik ke stdin

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

Membaca empat angka dalam satu lingkaran dan kemudian memproses masing-masing dengan mengurangi digit pertama dari nilai dan mencetak hasilnya modulo 10.

Penghematan berkat berbagai komentar di bawah ini dan juga menggunakan putchar bukan printf

Python 3, 64

Mudah.

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

Bisa lebih pendek jika saya diizinkan mencetak, misalnya, [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));}

Input dari commandline. Kurangi kode ASCII pertama dari setiap argumen dari argumen kedua, tambahkan 10 dan ambil modulo 10.

Saya pikir ini adalah pertama kalinya saya menulis printfdengan empat %s dan tanpa koma (koma ada di #define.)

Java - 203 byte

Hanya karena ada memiliki untuk menjadi entri Java, saya melihat kesempatan bagus untuk memberikan kode ini bermain golf kesempatan (penyerahan pertama).

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

Jika ada ruang untuk beberapa perbaikan, saya senang mengetahui tentang mereka ;-)

Lua - 46 karakter

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

Membaca tiga karakter sekaligus (beri saya sedikit belas kasihan memasukkan spasi di akhir), dan meskipun a dan b adalah string-y ... ba MAGICALUALY memungkinkan mereka untuk menyusun bilangan bulat bayi yang sehat. Apakah lilitan memeriksa saat mencetak.

JavaScript ES6 - 53 43 byte

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

Fungsi yang cukup mudah, menggunakan regex untuk mendapatkan angka. Cobalah di http://jsfiddle.net/efc93986/1/ . Jika fungsi tidak diizinkan, program mandiri berukuran 52 byte:

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

Karena ES6 saat ini hanya berfungsi di Firefox, kode berikut ini berfungsi pada browser modern apa pun, pada 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

Menerima input pengguna yang dibatasi koma. Misalnya Input:

29,26, 31, 88

Keluaran:

7
4
8
0

Jika output diperlukan untuk sama persis dengan contoh maka itu jauh lebih lama. 47 byte:

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

APL, 14

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

Penjelasan
⎕ mengambil input dari layar. Nilai yang dipisahkan oleh ruang diuraikan sebagai array.
{...}¨untuk setiap nomor, masukkan ke dalam fungsi.
⍎¨⍕⍵mengambil argumen, buat array dari digit-digitnya.
--/menghitung satuan minus puluhan.
10|mod 10.

J - 20 15

Bentuk non-kata kerja (sebagai pernyataan alih-alih definisi fungsi) lebih pendek 5 karakter:

10|-~/|:10#.inv

Bentuk kata kerja yang merupakan kereta yang bagus :

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

Kata kerja ini digunakan pada contoh input:

   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

Digit karakter tunggal, musuh bebuyutan di golf Haskell.

Perl: 38 40

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

Keluaran:

% perl code.pl
57 23 99 45
2101

25 78 63 15                                     
3174

Ruby, 35 byte

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

Penjelasan

Input diambil sebagai argumen baris perintah. String#bytesmengembalikan Array of Integers (kode karakter ASCII). Hanya perbedaan antara kode karakter terakhir dan pertama yang penting, bukan bilangan bulat itu sendiri.

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 karakter

Pikir saya akan mencoba kode golf jadi ini dia, usaha pertama saya - mungkin bisa golf lebih.

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

58 karakter (milik Ismael Miguel)

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

Akses file menggunakan

file.php?n=57239945

Python 3, 60

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

Input dan output persis seperti yang ditentukan, meskipun tidak mencetak baris tambahan. Dua trik menarik di sini: 1) mengganti dua panggilan menjadi int()dengan satu panggilan keeval() , dan 2) menggunakan join()untuk mendapatkan a-b, kemudian meniadakannya b-asesuai kebutuhan. Untungnya operator modulo Python memberikan nilai-nilai positif bahkan jika argumen pertama negatif!