จากความท้าทายในหนังสือการเขียนโปรแกรมมานาน PNZ เป็นเกมที่ผู้ใช้จะต้องเดาตัวเลขสามหลักที่ไม่ซ้ำกันในลำดับที่ถูกต้อง

กฎ :

1. ตัวเลขสุ่ม 3 หลักโดยไม่มีการสร้างตัวเลขซ้ำ (นี่คือสิ่งที่ผู้ใช้พยายามคาดเดา)
2. ผู้ใช้ป้อนตัวเลข 3 ตัวซึ่งจะถูกประเมินโดยโปรแกรม
3. เอาต์พุต "P" สำหรับทุกหลักที่ถูกต้องในตำแหน่งที่ถูกต้อง
4. เอาต์พุต "N" สำหรับทุกหลักที่ถูกต้องในตำแหน่งที่ไม่ถูกต้อง
5. ส่งออก "Z" เฉพาะในกรณีที่ไม่มีตัวเลขที่ถูกต้อง
6. ยอมรับอินพุตต่อไปจนกว่าตัวเลขทั้งหมดจะถูกต้องและอยู่ในตำแหน่งที่ถูกต้องจากนั้นส่งออก "PPP" ตามด้วยจำนวนการเดาที่ใช้ในบรรทัดใหม่

หมายเหตุ :

• "หลักที่ถูกต้อง" หมายความว่าหนึ่งในตัวเลขหลักในการเดาก็เป็นหนึ่งในตัวเลขในตัวเลขสุ่ม 3 หลักเช่นกัน

• "ตำแหน่งที่ถูกต้อง" หมายความว่าเป็น "ตัวเลขที่ถูกต้อง" และอยู่ในตำแหน่งเดียวกับตัวเลขสุ่ม 3 หลัก

• ลำดับของผลลัพธ์ควรเป็น "P" ทั้งหมดก่อนจากนั้นจึงเป็น "N" หรือเฉพาะ "Z" หากไม่มีสิ่งใดถูกต้อง

• หากมีการป้อนข้อมูลตัวเลขซ้ำ "P" จะให้ความสำคัญมากกว่า "N" (ตัวอย่าง: Number: 123 Input: 111 Output: P)

• (ทางเลือก) ไม่ควรประเมินอินพุตที่มีความยาวไม่เกิน 3 หลักและไม่นับรวมต่อการทายผลรวมทั้งหมด

ตัวอย่างถ้าตัวเลขที่สร้างขึ้นเป็น 123

> 147
P
> 152
PN
> 126
PP
> 123
PPP
4

ตัวอย่างถ้าตัวเลขที่สร้างขึ้นเป็น 047

> 123
Z
> 456
N
> 478
NN
> 947
PP
> 047
PPP
5

นี่คือ CodeGolf ดังนั้นโปรแกรมที่สั้นที่สุดชนะ!

JavaScript (ES6) 184 187 195

แก้ไขบันทึก 8 ไบต์ thx @Neil แก้ไขบันทึก 3 ไบต์ thx @ user81655

(ขึ้นบรรทัดใหม่นับเป็น 1 ไบต์)

d=[...'0123456789']
x=[10,9,8].map(l=>d.splice(Math.random()*l,1))
for(c=p=a='';!p[2];++c)g=prompt(a),n=p='',x.map((d,i)=>d-g[i]?~g.search(d)?n+='N':0:p+='P'),a=p+n||'Z'
alert(a+' '+c)

ทดสอบ

d=[...'0123456789']
x=[10,9,8].map(l=>d.splice(Math.random()*l,1))
for(c=p=a='';!p[2];++c)
  g=prompt(a),
  n=p='',
  x.map((d,i)=>
        d-g[i]?~g.search(d)?n+='N':0:p+='P'
       ),
  a=p+n||'Z'
alert(a+' '+c)

PowerShell v2 +, 177 231 168 ไบต์

$g=-join(0..9|Random -c 3);for($c=0;$o-ne"PPP";$c++){$n=$p='';$i=read-host;$o=-join(0..2|%{((("","N")[$i.IndexOf($g[$_])-ge0]),"P")[$g[$_]-eq$i[$_]]}|sort -des);($o,"Z")[!$o]}$c

น่าแปลกที่ฉันสามารถตีกอล์ฟรุ่นที่กำหนดให้มีความยาวสั้นกว่ารุ่นที่ไม่ได้รวม ... oO

ขอบคุณมากที่ @ edc65สำหรับความช่วยเหลือและแรงบันดาลใจของเขา!

คำอธิบาย:

$g=-join(0..9|Random -c 3)   # Create an array @(0,1,2,...9) and choose 3 distinct elements
for($c=0;$o-ne"PPP";$c++){   # Loop until output = "PPP", incrementing $count each time
  $i=read-host               # Read input from the user

  $o=-join(0..2|%{((("","N")[$i.IndexOf($g[$_])-ge0]),"P")[$g[$_]-eq$i[$_]]}|sort -des)
       # OK, this is the convoluted part. We're constructing an array of "N", "P", or "",
       # sorting them by descending order (so the P's are first), and then joining them
       # together into a string. The array is constructed by essentially an if/elseif/else
       # statement that is evaluated three times thanks to the 0..2|%{} loop.
       # Starting from the innermost, we choose between "" and "N" based on whether the
       # input number has the current-digit of the secret number somewhere within it. We
       # then choose between that or "P" based on whether it's the _current_ digit of the
       # user input number.

  ($o,"Z")[!$o]
       # Here we output either $o from above or "Z" based on whether $o is empty
}
$c                           # The loop finished (meaning the user guessed), output $count

ตัวอย่างการเรียกใช้:

PS C:\Tools\Scripts\golfing> .\pnz.ps1
123
N
111
Z
222
P
452
PN
562
NN
275
PN
258
PPP
7

R , 178 166 ไบต์

y=!(s<-sample(48:57,3))
while(any(y!=s)){F=F+1
y<-utf8ToInt(readline())
cat(rep("P",p<-sum(y==s)),rep("N",n<-sum(y%in%s)-p
),if(!(n+p))"Z","
",if(all(y==s))F,sep="")}

ลองออนไลน์!

ลิงก์ TIO นั้นใช้สำหรับการนับไบต์ - ลองใช้ในคอนโซล R ของคุณ! (หรือแจ้งให้เราทราบหากมีตัวเลือกอื่น)

ดูประวัติรุ่นที่ตีกอล์ฟน้อยกว่าอ่านง่ายขึ้น