ฉากคือ:

ปีเตอร์อยู่ที่โรงยิมพร้อมกับเพื่อนของเขาไบรอันเมื่อจู่ ๆ ไบรอันต้องการผู้ช่วยหายใจของเขา ไบรอันจัดการบอกรหัสให้ Peter ทราบรหัสล็อคของเขาก่อนที่เขาจะทรุดตัวลงบนพื้น

ช่วงเวลาที่ปีเตอร์ไปถึงตู้เก็บของไบรอันและเห็นว่าตัวบ่งชี้ชี้ไปที่ใดสตีวีก็ซุ่มโจมตีเขาและฉีดสเปรย์พริกไทยเต็มกระป๋องลงบนใบหน้าของเขา

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

ความท้าทาย:

เขียนฟังก์ชั่น / โปรแกรมที่รับอินพุตได้สองอินพุตการรวมกันจาก Brian และตำแหน่งตัวบ่งชี้ เอาท์พุทตัวเลขปีเตอร์ต้องนับ

กฎ:

• ชุดค่าผสมและตำแหน่งตัวบ่งชี้ต้องเป็นอาร์กิวเมนต์แยกต่างหาก
• อินพุตอาจมาจากพรอมต์คำสั่งหรือเป็นอาร์กิวเมนต์ของฟังก์ชัน
• เอาต์พุตจะต้องถูกพิมพ์ไปที่หน้าจอ / แสดงเป็นอย่างอื่น (ไม่ใช่ไฟล์)
• สมมติว่าตำแหน่งเริ่มต้นไม่เหมือนกับหมายเลขแรกและตัวเลขทั้งสามตัวในชุดค่าผสมนั้นไม่ซ้ำกัน
• มันคือล็อคที่แสดงในภาพด้านล่างโดยมีตัวเลขที่เป็นไปได้: 0-39

คำแนะนำ:

ในการเปิดล็อคด้านล่างคุณจะต้องทำตามคำแนะนำ:

1. คุณต้องรู้รหัสของคุณ สมมติว่ามันเป็น (38, 16, 22) ในตอนนี้
2. หมุนปุ่มหมุน 3 ครั้งไปทางขวา (ผ่านหมายเลขเริ่มต้นสามครั้ง) จากนั้นหยุดเมื่อหมายเลขแรก (38) สอดคล้องกับสัญลักษณ์
3. หมุนหน้าปัด 1 จนสุดโดยหมุนไปทางซ้ายผ่านหมายเลขแรกและหยุดเมื่อตัวเลขที่สอง (16) เรียงกันด้วยตัวบ่งชี้
4. หมุนปุ่มหมุนไปทางขวาและหยุดเมื่อตัวเลขที่สาม (22) ตรงกับตัวบ่งชี้
5. ดึงล็อคลง

ตัวอย่าง:

Input
38 16 22
33  

Output
33  32  31  30  29  28  27  26  25  24  23  22  21  20  19  18  17  16  15  14  13  12  11  10   9   8   7   6   5   4   3   2   1   0  39  38  37  36  35  34  33  32  31  30  29  28  27  26  25  24  23  22  21  20  19  18  17  16  15  14  13  12  11  10   9   8   7   6   5   4   3   2   1   0  39  38  37  36  35  34  33  32  31  30  29  28  27  26  25  24  23  22  21  20  19  18  17  16  15  14  13  12  11  10   9   8   7   6   5   4   3   2   1   0  39  38  37  36  35  34  33  32  31  30  29  28  27  26  25  24  23  22  21  20  19  18  17  16  15  14  13  12  11  10   9   8   7   6   5   4   3   2   1   0  39  38  39   0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36  37  38  39   0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  15  14  13  12  11  10   9   8   7   6   5   4   3   2   1   0  39  38  37  36  35  34  33  32  31  30  29  28  27  26  25  24  23  22

บังคับใช้กฎกอล์ฟมาตรฐาน

โซลูชั่นที่โพสต์ในภายหลังยังคงชนะถ้าพวกเขาสั้นกว่าคำตอบของเดนนิส

CJam, 52 39 ไบต์

q~[3X0].{@40,m<1$({(+W%}&:T*T@#)T<)}e_p

ลองใช้ออนไลน์ในล่าม CJam

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

q~      e# Read and evaluate all input. This pushes the initial position
        e# as an integer and the combination as an array.
[3X0]   e# Push [3 1 0]. This encodes the respective numbers of full turns
.{      e# For each number in the combination (N) and the corresponding 
        e# number of full turns (F):
  @     e#   Rotate the initial position on top of the stack.
  40,m< e#   Push [0 ... 39] and rotate it that many units to the left.
        e#   For position P, this pushes [P P+1 ... 39 0 ... P-2 P-1].
  1$(   e#   Copy F and subtract 1.
  {     e#   If the result is non-zero:
    (+  e#     Rotate the array of length 40 one unit to the left.
    W%  e#     Reverse it.
  }&    e#   For position P, this pushes [P P-1 ... 0 39 ... P+2 P+1].
  :T*   e#   Save in T and repeat the array F.
  T@    e#   Push T. Rotate N on top of the stack.
  #)    e#   Find the index of N in T and add 1 to it.
  T<    e#   Keep that many elements from the beginning of T.
  )     e#   Pop the last element of the result (N).
}       e# N is the new initial position.
e_p     e# Flatten the resulting array and print it.

Groovy, 189 175 ไบต์

ถือว่าตัวบ่งชี้ถูกส่งผ่านเป็น arg0 และคอมโบถูกส่งผ่านเป็น arg1, arg2 และ arg3 บนบรรทัดคำสั่ง ...

i=(args[0]as int)+1
r={i--;i=i<0?39:i;print"$i "}
l={i=++i%40;print"$i "} 
M={j,c->while(i!=j as int){c()}}
120.times{r()}
M(args[1],r)
40.times{l()}
M(args[2],l)
M(args[3],r)

Perl 5 , 129 + 1 (-a) = 130 ไบต์

sub c{$f=pop;do{say$f;$f+=$_[0];$f=$f==-1?39:$f==40?0:$f}while$f-$_[1]}$p=3;c(2*!$p-1,@F[$_,$p]),$p=$_ for 3,3,3,0,0,1,2;say$F[2]

ลองออนไลน์!

อย่างไร?

sub c{                       # Takes 3 parameters: increment, ending position, starting position
  $f=pop;                    # first place to start counting
  do{
    say$f;                   # output current position
    $f+=$_[0];               # move position
    $f=$f==-1?39:$f==40?0:$f # roll over when passing zero
  }while$f-$_[1]             # stop when ending positition reached
}

# @F gets defined by the -a command line option
# @F holds the combination followed by the starting position

$p=3;                       # starting position is in array index 3, this variable will track the array index of
                            # the current position on the dial

c(2*!$p-1,@F[$_,$p]),$p=$_  # call the movement function (c), setting direction to the left (1) or right (-1) as needed
                            # based on the array index of the previous position (go left when moving from array index 0)
for 3,3,3,0,0,1,2;          # list of the array index of the next position

say$F[2]                    # output final position

Python 2, 262 ไบต์

รู้สึกนานมาก แต่ก็มีการพลิกผันมากมาย

def f(l,s):
 r=lambda a,b,c=1:range(a,b,c)
 a=r(39,l[0],-1);b=r(l[0],-1,-1)
 c=r(l[1],l[2]-1,-1)if l[2]<l[1]else r(l[1],-1,-1);c.extend(r(39,l[2]-1,-1))
 return'  '.join(`x`for x in sum([r(s,-1,-1),a,b,a,b,a,b,r(39,l[0],-1),r(l[0],40),r(0,40),r(0,l[1]+1),c],[]))

ลองออนไลน์!

ฉันคิดว่าฉันสามารถต่อกันบางส่วนได้ดีขึ้นในบรรทัดสุดท้ายของฉัน แต่ฉันยังใหม่กับการตีกอล์ฟ

มีความคิดเห็นใด ๆ ในการปรับปรุงหรือไม่

Haskell , 135 112 ไบต์

s!t=[s..39]++[0..mod(t-1)40]
s#t=[s,s-1..0]++[39,38..mod(t+1)40]
(a%b)c s=[s#s,s#s,s#s,s#a,a!a,a!b,b#c,[c]]>>=id

ลองออนไลน์!

บันทึกแล้ว 23 ไบต์ขอบคุณ Laikoni