Đưa ra một khóa kết hợp tiêu chuẩn như một trong hình. Cách để mở khóa là căn chỉnh 4 số trong mã trên dòng kết hợp. Sau nhiều năm phục vụ trung thành, bạn đã bị sa thải khỏi nhà máy khóa và đã quyết định trả thù chính xác bằng cách không lộn xộn các ổ khóa trước khi bạn gửi chúng đi, do đó để lại mọi khóa với sự kết hợp để mở khóa trên đường kết hợp.

Bạn cũng biết rằng bằng cách xem thứ tự của các số trong các dòng khác, có thể tìm ra những số nào phải nằm trên dòng kết hợp (và do đó kết hợp để mở khóa nó).

Nếu mỗi dòng trên khóa được cung cấp một số bắt đầu từ dòng 0 cho dòng kết hợp (dòng mở khóa) cho dòng 9. Ví dụ: nếu các số trên dòng 4 là 5336, thì kết hợp để mở khóa sẽ là 1992.

Thật không may, các khóa đã được đóng gói và tầm nhìn của bạn về từng khóa bị che khuất, vì vậy bạn chỉ có thể thấy các số trên các dòng khác nhau của khóa.

Các thách thức

Cho 4 cặp chữ số, trong đó chữ số đầu tiên của số nguyên biểu thị số dòng và chữ số thứ hai biểu thị số xuất hiện trên dòng đó, hãy tìm ra sự kết hợp với khóa. Ví dụ: nếu bạn nhập:

57 23 99 45

Sau đó, nó sẽ xuất ra:

2101

Hoặc là

25 78 63 15

và

3174

Giả sử đầu vào sẽ luôn là 4 số nguyên dương ở dạng `25 64 72 18.

Đây là môn đánh gôn , vì vậy các chương trình ngắn nhất về số byte sẽ thắng.

Ngoài ra đây là câu hỏi đầu tiên của tôi, vì vậy bất kỳ thông tin phản hồi được đánh giá cao.

CJam, 9 8 byte

ea9fbAf%

Đọc các cặp chữ số dưới dạng đối số dòng lệnh. Để thử mã trực tuyến , thay đổi eađể lS/đọc từ STDIN mô phỏng.

Chạy ví dụ

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

Làm thế nào nó hoạt động

Mã ký tự của chữ số d là 48 + d . Do đó, xem xét chuỗi hai chữ số xy, một số 9 cơ sở mang lại 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 ký tự

Nhờ user23013, giờ chỉ còn 11 ký tự :)

4{Ar:--A%}*

Giải thích:

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

Dùng thử trực tuyến

Tôi biết nó có thể được chơi gôn nhiều hơn. Nhưng đây là nỗ lực thực sự đầu tiên của tôi đối với CJam và tôi bị giới hạn bởi kinh nghiệm :)

Ngoài ra, các phương thức khác để làm điều tương tự trong 1 ký tự phụ:

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

hoặc là

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

hoặc là

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

Golf (14 13 )

Dùng thử trực tuyến tại đây

Nó khá giống với giải pháp của Trình tối ưu hóa , nhưng trong một ngôn ngữ khác. Thật khó để tiếp cận nó theo một cách khác bởi vì vấn đề khá đơn giản , do đó, chiếc cà vạt chắc chắn thuộc về Trình tối ưu hóa, dù sao thì mục nhập đó vẫn sớm hơn.

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

Với cùng số byte bạn có thể làm

~]{.10/- 10%}/

GNU dc , 14 byte

Mượn 9 mẹo cơ bản thông minh của @ Dennis :

9i[?A%nd]dxxxx

Số nguyên đầu vào đọc từ STDIN, mỗi số một dòng.

Giải trình:

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    

Đầu ra:

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

Trả lời trước, 18 byte:

Bởi vì tôi nghĩ rằng tôi có thể đến gần hơn với các ngôn ngữ "chơi gôn" với điều này (nhưng không):

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

C 64 63 56 hoặc 61

Nếu đầu vào có thể được dẫn từ tập tin

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

Nếu đầu vào nên được gõ vào stdin

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

Đọc bốn số trong một vòng lặp và sau đó xử lý từng số bằng cách trừ chữ số đầu tiên khỏi giá trị và in kết quả modulo 10.

Tiết kiệm nhờ các bình luận khác nhau bên dưới và cũng sử dụng putar thay vì printf

Con trăn 3, 64

Nói thẳng ra.

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

Nó có thể ngắn hơn nếu tôi được phép in, [2, 1, 0, 1]thay vào đó ( 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));}

Đầu vào từ dòng lệnh. Trừ mã ASCII đầu tiên của mỗi đối số từ đối số thứ hai, thêm 10 và lấy modulo 10.

Tôi nghĩ rằng đây là lần đầu tiên tôi viết một chữ printfbốn %và không có dấu phẩy (dấu phẩy nằm trong #define.)

Java - 203 byte

Chỉ vì có có được một mục Java, tôi thấy một cơ hội tốt đẹp để cung cấp cho mã này chơi golf một cơ hội (nộp hồ sơ đầu tiên).

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

Nếu có chỗ cho một số cải tiến, tôi rất vui được biết về chúng ;-)

Lua - 46 ký tự

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

Đọc ba ký tự cùng một lúc (cho tôi một chút thương xót khi nhập một khoảng trắng ở cuối) và mặc dù a và b là chuỗi-y ... ba BÀI TẬP cho phép họ có được một số nguyên bé khỏe mạnh. Có bao quanh kiểm tra trong khi in.

JavaScript ES6 - 53 43 byte

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

Chức năng khá đơn giản, sử dụng regex để lấy số. Dùng thử tại http://jsfiddle.net/efc93986/1/ . Nếu các chức năng không được phép, một chương trình độc lập ở mức 52 byte:

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

Vì ES6 hiện chỉ hoạt động trên Firefox, đoạn mã sau hoạt động trên mọi trình duyệt hiện đại, ở mức 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

Chấp nhận đầu vào được phân tách bằng dấu phẩy. Ví dụ: Đầu vào:

29,26, 31, 88

Đầu ra:

7
4
8
0

Nếu đầu ra là bắt buộc để khớp chính xác với ví dụ thì nó dài hơn nhiều. 47 byte:

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

APL, 14

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

Giải thích
⎕ lấy đầu vào từ màn hình. Các giá trị được phân tách bằng dấu cách được phân tích cú pháp dưới dạng một mảng.
{...}¨cho mỗi số, đưa nó vào chức năng.
⍎¨⍕⍵lấy đối số, tạo một mảng các chữ số của nó.
--/tính toán đơn vị trừ hàng chục.
10|mod 10.

J - 20 15

Dạng không động từ (dưới dạng câu lệnh thay vì định nghĩa hàm) ngắn hơn 5 ký tự:

10|-~/|:10#.inv

Hình thức động từ là một chuyến tàu tốt đẹp :

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

Động từ này được sử dụng trên các ví dụ đầu vào:

   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

Các chữ số ký tự đơn, một kẻ thù thực sự trong môn đánh gôn Haskell.

Perl: 38 40

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

Đầu ra:

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

Giải trình

Đầu vào được lấy làm đối số dòng lệnh. String#bytestrả về một mảng các số nguyên (mã ký tự ASCII). Chỉ có sự khác biệt giữa mã ký tự cuối cùng và mã đầu tiên là quan trọng, chứ không phải bản thân Số nguyên.

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 ký tự

Tôi nghĩ rằng tôi sẽ thử chơi golf mã vì vậy đây là lần thử đầu tiên của tôi - có thể được đánh gôn nhiều hơn.

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

58 ký tự (lịch sự của Ismael Miguel)

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

Truy cập tập tin bằng

file.php?n=57239945

Trăn 3, 60

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

Đầu vào và đầu ra chính xác như được chỉ định, mặc dù nó không in một dòng mới. Hai thủ thuật thú vị ở đây: 1) thay thế hai cuộc gọi int()bằng một cuộc gọi đến eval()và 2) sử dụng join()để nhận a-b, sau đó phủ nhận nó b-atheo yêu cầu. May mắn thay, toán tử modulo của Python cho các giá trị dương ngay cả khi đối số đầu tiên là âm!