Nach einer Herausforderung in einem Programmierbuch ist PNZ ein Spiel, bei dem der Benutzer drei eindeutige Ziffern in der richtigen Reihenfolge erraten muss.

Regeln :

1. Eine zufällige dreistellige Zahl ohne wiederholte Ziffern wird generiert. (Dies ist, was der Benutzer zu erraten versucht)
2. Der Benutzer gibt eine dreistellige Schätzung ein, die vom Programm ausgewertet werden soll.
3. Geben Sie für jede richtige Ziffer an der richtigen Stelle ein "P" aus.
4. Geben Sie für jede richtige Ziffer an einer falschen Stelle ein "N" aus.
5. Geben Sie ein "Z" nur aus, wenn keine Ziffern korrekt sind.
6. Akzeptieren Sie weiterhin Eingaben, bis alle Ziffern korrekt und an der richtigen Stelle sind, und geben Sie dann "PPP" gefolgt von der Anzahl der Raten in einer neuen Zeile aus.

Hinweis :

• Eine "richtige Ziffer" bedeutet, dass eine der Ziffern in der Vermutung auch eine der Ziffern in der dreistelligen Zufallszahl ist.

• Eine "richtige Stelle" bedeutet, dass es sich um eine "richtige Stelle" handelt UND sich an derselben Stelle wie die dreistellige Zufallszahl befindet.

• Die Ausgabereihenfolge sollte alle "P" zuerst sein, dann "N" oder nur "Z", wenn nichts korrekt ist.

• Wenn ein Eingang wiederholende Ziffern enthält, „P“ Vorrang vor „N“ (Beispiel: Number: 123 Input: 111 Output: P)

• (OPTIONAL) Eingaben, die nicht genau dreistellig sind, sollten weder ausgewertet noch für die laufende Summe der Vermutungen berücksichtigt werden

Beispiel, wenn die generierten Ziffern 123 waren

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

Beispiel, wenn die generierten Ziffern 047 waren

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

Das ist CodeGolf, also gewinnt das kürzeste Programm!

JavaScript (ES6) 184 187 195

Bearbeiten Gespeichert 8 Bytes thx @Neil Bearbeiten Gespeichert 3 Bytes thx @ user81655

(Zeilenumbrüche werden als 1 Byte gezählt)

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)

Prüfung

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 Byte

$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

Seltsamerweise konnte ich die fixe Version kürzer als die unfixierte Version spielen ... oO

Vielen Dank an @ edc65 für seine Unterstützung und Inspiration!

Erläuterung:

$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

Beispiellauf:

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 Bytes

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="")}

Probieren Sie es online!

TIO Link ist nur für die Anzahl der Bytes - versuchen Sie dies in Ihrer R-Konsole! (oder lassen Sie es mich wissen, wenn es eine alternative Option gibt).

In der Historie finden Sie weniger Golf spielende, besser lesbare Versionen.