ได้รับรหัสล็อคแบบมาตรฐานเช่นเดียวกับที่อยู่ในรูปภาพ วิธีการปลดล็อคคือการจัดตำแหน่งหมายเลข 4 ในรหัสบนบรรทัดการรวมกัน หลังจากหลายปีของการบริการที่ซื่อสัตย์คุณถูกไล่ออกจากโรงงานล็อคและตัดสินใจที่จะแก้แค้นโดยไม่ทำตัวล็อคก่อนที่จะส่งพวกเขาออกไปดังนั้นปล่อยให้ล็อคทุกตัวมีการรวมกันเพื่อปลดล็อคในบรรทัดรวม

คุณรู้ด้วยว่าเมื่อดูที่คำสั่งของตัวเลขในบรรทัดอื่นคุณสามารถคำนวณได้ว่าตัวเลขใดที่ต้องอยู่ในบรรทัดการรวม (ดังนั้นจึงเป็นการรวมกันเพื่อปลดล็อก)

ถ้าบรรทัดล็อคทุกคนจะได้รับหมายเลขเริ่มต้นจากบรรทัด 0 สำหรับสายการรวมกัน (บรรทัดที่ปลดล็อคล็อค) กับสาย 9. ตัวอย่างเช่นถ้าตัวเลขบนสาย 4 มีแล้วรวมกันเพื่อปลดล็อคมันจะเป็น53361992

โชคไม่ดีที่ล็อคนั้นได้รับการบรรจุแล้วและมุมมองของการล็อคแต่ละครั้งของคุณนั้นถูกบดบังดังนั้นคุณจะเห็นเฉพาะตัวเลขบนเส้นต่าง ๆ ของการล็อค

ความท้าทาย

รับ 4 คู่หลักที่ตัวเลขแรกของจำนวนเต็มแสดงหมายเลขบรรทัดและตัวเลขที่สองหมายถึงจำนวนที่ปรากฏบนบรรทัดนั้นผลงานการรวมกันเพื่อล็อค ตัวอย่างเช่นถ้าคุณป้อน:

57 23 99 45

จากนั้นก็ควรส่งออก:

2101

หรือ

25 78 63 15

และ

3174

สมมติว่าอินพุตจะเป็นจำนวนเต็มบวก 4 เสมอในรูปแบบ `25 64 72 18

นี่คือรหัสกอล์ฟดังนั้นโปรแกรมที่สั้นที่สุดในจำนวนไบต์ชนะ

นี่เป็นคำถามแรกของฉันดังนั้นคำติชมใด ๆ ก็ได้รับการชื่นชม

CJam, 9 8 ไบต์

ea9fbAf%

อ่านคู่หลักเป็นอาร์กิวเมนต์บรรทัดคำสั่ง เพื่อลองรหัสออนไลน์ , การเปลี่ยนแปลงeaที่จะlS/อ่านจาก STDIN จำลอง

ตัวอย่างการวิ่ง

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

มันทำงานอย่างไร

รหัสตัวละครหลักdคือ48 + D ดังนั้นเมื่อพิจารณาสตริงสองหลักXYฐาน 9 อัตราผลตอบแทนจำนวน9 * (48 + x) + (48 + y) = 10 * (48 + x) + Y - X ≡ Y - X (สมัย 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 ตัวอักษร

ต้องขอบคุณผู้ใช้ 23013 ตอนนี้ลดลงเหลือ 11 ตัวอักษร :)

4{Ar:--A%}*

คำอธิบาย:

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

ลองออนไลน์

ฉันรู้ว่ามันสามารถตีกอล์ฟได้มากกว่านี้ แต่นี่เป็นความพยายามครั้งแรกของฉันใน CJam และฉันถูก จำกัด ด้วยประสบการณ์ :)

อีกวิธีหนึ่งในการทำสิ่งเดียวกันด้วยอักขระพิเศษ 1 ตัว:

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

หรือ

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

หรือ

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

Golfscript (14 13 )

ลองออนไลน์ได้ที่นี่

มันค่อนข้างเหมือนกับโซลูชันของเครื่องมือเพิ่มประสิทธิภาพแต่ในภาษาอื่น มันยากที่จะเข้าถึงมันในวิธีที่ต่างกันเนื่องจากปัญหาค่อนข้างง่ายดังนั้นการผูกไปที่เครื่องมือเพิ่มประสิทธิภาพอย่างแน่นอนซึ่งรายการก่อนหน้านี้อยู่แล้ว

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

สำหรับจำนวนไบต์เดียวกันคุณสามารถทำได้

~]{.10/- 10%}/

GNU dc , 14 ไบต์

การยืมเคล็ดลับ 9 ฐานที่ฉลาดของ Dennis :

9i[?A%nd]dxxxx

อินพุตจำนวนเต็มอ่านจาก STDIN หนึ่งรายการต่อบรรทัด

คำอธิบาย:

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    

เอาท์พุท:

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

คำตอบก่อนหน้า 18 ไบต์:

เพราะฉันคิดว่าฉันสามารถเข้าใกล้ภาษา "กอล์ฟ" ได้มากขึ้นด้วยสิ่งนี้ (แต่ไม่ได้):

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

C 64 63 56 หรือ 61

หากอินพุตสามารถถูกไพพ์จากไฟล์

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

หากอินพุตควรถูกพิมพ์ไปยัง stdin

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

อ่านตัวเลขสี่ตัวในลูปแล้วประมวลผลแต่ละค่าด้วยการลบตัวเลขตัวแรกออกจากค่าและพิมพ์โมดูโลผลลัพธ์ 10

ประหยัดขอบคุณความคิดเห็นต่างๆด้านล่างและใช้ putchar แทน printf

Python 3, 64

ซื่อตรง

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

มันจะสั้นกว่านี้ถ้าฉันอนุญาตให้พิมพ์พูด[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));}

อินพุตจาก commandline ลบรหัส ASCII แรกของแต่ละอาร์กิวเมนต์จากที่สองเพิ่ม 10 และใช้เวลา modulo 10

ฉันคิดว่านี่เป็นครั้งแรกที่ฉันเขียน a printfสี่%s และไม่มีเครื่องหมายจุลภาค (เครื่องหมายจุลภาคอยู่ใน #define.)

Java - 203 ไบต์

เพียงเพราะมีมีจะเป็นรายการ Java ผมเห็นเป็นโอกาสที่ดีที่จะให้รหัสนี้มีโอกาสเล่นกอล์ฟ (ส่งครั้งแรก)

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

หากมีที่ว่างสำหรับการปรับปรุงฉันยินดีที่จะรู้เกี่ยวกับพวกเขา ;-)

Lua - 46 ตัวอักษร

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

อ่านครั้งละสามตัวอักษร (ให้ความเมตตาเล็ก ๆ ของการป้อนช่องว่างตอนท้าย) และถึงแม้ว่า a และ b จะเป็น string-y ... ba MAGICALUALY ช่วยให้พวกเขาเข้าใจถึงจำนวนเต็มของทารกที่ดีต่อสุขภาพ ทำการตรวจสอบรอบในขณะที่ทำการพิมพ์หรือไม่

JavaScript ES6 - 53 43 ไบต์

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

ฟังก์ชั่นตรงไปตรงมาเป็นธรรมใช้ regex เพื่อรับตัวเลข ลองที่http://jsfiddle.net/efc93986/1/ หากฟังก์ชั่นไม่ได้รับอนุญาตให้ใช้โปรแกรมสแตนด์อโลนที่ 52 ไบต์:

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

ในขณะที่ ES6 ใช้งานได้กับ Firefox เท่านั้นรหัสต่อไปนี้ใช้ได้กับเบราว์เซอร์สมัยใหม่ที่ 70 ไบต์:

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

Python 2 - 33 ไบต์

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

ยอมรับอินพุตผู้ใช้ที่คั่นด้วยจุลภาค เช่นการป้อนข้อมูล:

29,26, 31, 88

เอาท์พุท:

7
4
8
0

หากจำเป็นต้องใช้เอาต์พุตเพื่อจับคู่ตัวอย่างทั้งหมดจะยาวกว่ามาก 47 ไบต์:

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

APL, 14

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

คำอธิบาย
⎕ใช้ข้อมูลจากหน้าจอ ค่าที่คั่นด้วยช่องว่างจะถูกแยกวิเคราะห์เป็นอาร์เรย์
{...}¨สำหรับแต่ละหมายเลขให้ป้อนเข้าสู่ฟังก์ชัน
⍎¨⍕⍵ใช้อาร์กิวเมนต์สร้างอาร์เรย์ของตัวเลข
--/คำนวณหน่วยลบด้วยหลักสิบ
10|mod 10

J - 20 15

รูปแบบที่ไม่ใช่คำกริยา (เป็นคำสั่งแทนที่จะเป็นนิยามของฟังก์ชั่น) มีความยาว 5 ตัวอักษร

10|-~/|:10#.inv

รูปแบบคำกริยาซึ่งเป็นรถไฟที่ดี:

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

คำกริยานี้ใช้กับอินพุตตัวอย่าง:

   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

ตัวเลขตัวอักษรเดียวซึ่งเป็นตัวซวยตัวจริงในสนามกอล์ฟ Haskell

Perl: 38 40

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

เอาท์พุท:

% perl code.pl
57 23 99 45
2101

25 78 63 15                                     
3174

Ruby, 35 ไบต์

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

คำอธิบาย

อินพุตถูกใช้เป็นอาร์กิวเมนต์บรรทัดคำสั่ง String#bytesส่งคืน Array of Integers (รหัสอักขระ ASCII) เฉพาะความแตกต่างระหว่างรหัสตัวอักษรตัวสุดท้ายและตัวแรกเท่านั้นที่มีความสำคัญไม่ใช่จำนวนเต็ม

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 ตัวอักษร

คิดว่าฉันควรลองเล่นโค๊กแบบกอล์ฟนี่คือความพยายามครั้งแรกของฉัน - อาจจะเล่นกอล์ฟได้มากกว่านี้

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

58 ตัวอักษร (ความเอื้อเฟื้อของ Ismael Miguel)

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

เข้าถึงไฟล์โดยใช้

file.php?n=57239945

Python 3, 60

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

อินพุตและเอาต์พุตตรงตามที่ระบุแม้ว่าจะไม่พิมพ์บรรทัดใหม่ที่ต่อท้าย เทคนิคสองอย่างที่น่าสนใจที่นี่: 1) การแทนที่การโทรสองครั้งint()ด้วยการโทรเพียงครั้งเดียวeval()และ 2) การใช้join()เพื่อรับa-bแล้วปฏิเสธb-aตามที่ต้องการ โชคดีที่ตัวดำเนินการ modulo ของ Python ให้ค่าเป็นบวกแม้ว่าอาร์กิวเมนต์แรกจะเป็นค่าลบ!