Z wyzwania w książce programowej dawno temu, PNZ to gra, w której użytkownik musi odgadnąć trzy unikalne cyfry we właściwej kolejności.

Zasady :

1. Generowany jest losowy 3-cyfrowy numer bez powtarzających się cyfr. (Właśnie to użytkownik próbuje odgadnąć)
2. Użytkownik wprowadza 3 cyfry, które program ma ocenić.
3. Wypisz „P” dla każdej poprawnej cyfry we właściwym miejscu.
4. Podaj „N” dla każdej poprawnej cyfry w niewłaściwym miejscu.
5. Wypisz „Z” tylko wtedy, gdy cyfry nie są poprawne.
6. Kontynuuj przyjmowanie danych wejściowych, dopóki wszystkie cyfry nie będą poprawne i we właściwym miejscu, a następnie wyślij „PPP”, a następnie liczbę zgadnięć, które zajęło w nowym wierszu.

Uwaga :

• „Prawidłowa cyfra” oznacza, że ​​jedna z cyfr w domysłach jest również jedną z cyfr w losowej 3-cyfrowej liczbie.

• „Prawidłowe miejsce” oznacza, że ​​jest to „Prawidłowa cyfra” ORAZ znajduje się w tym samym miejscu, co 3-cyfrowa liczba losowa.

• Kolejność wypisywania powinna być pierwsza „P”, następnie „N” lub tylko „Z”, jeśli nic nie jest poprawne.

• Jeżeli sygnał wejściowy zawiera powtarzające się cyfry „P” ma wyższy priorytet niż „n” (na przykład: Number: 123 Input: 111 Output: P)

• (OPCJONALNIE) Dane wejściowe, które nie mają dokładnie 3 cyfr długości, nie powinny być oceniane, ani liczyć się do bieżącej sumy domysłów

Przykład, jeśli wygenerowane cyfry miały wartość 123

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

Przykład, jeśli wygenerowane cyfry miały wartość 047

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

To jest CodeGolf, więc wygrywa najkrótszy program!

JavaScript (ES6) 184 187 195

Edytuj zapisane 8 bajtów dzięki @Neil Edytuj zapisane 3 bajty dzięki @ użytkownik 81655

(nowe linie liczone jako 1 bajt)

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)

Test

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 bajtów

$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

Co dziwne, byłem w stanie grać w golfa w wersji stałej, aby była krótsza niż wersja nie naprawiona ... oO

Ogromne podziękowania dla @ edc65 za pomoc i inspirację!

Wyjaśnienie:

$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

Przykładowy przebieg:

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 bajtów

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

Wypróbuj online!

Łącze TIO służy tylko do liczenia bajtów - wypróbuj to na konsoli R. (lub daj mi znać, jeśli istnieje opcja alternatywna).

Zobacz historię dla mniej golfowej, bardziej czytelnej wersji.