Jump to content

Bulls and cows/Player: Difference between revisions

m
→‎{{header|Uiua}}: Fixed a flaw in cows scoring
m (→‎{{header|Uiua}}: Improved cows logic)
m (→‎{{header|Uiua}}: Fixed a flaw in cows scoring)
 
Line 4,219:
=={{header|Uiua}}==
Uiua isn't really meant for interactive use, so this program plays against itself (no cheating though!).
[https://www.uiua.org/pad?src=0_12_0-dev_1__IyBTZXRzIGFuZCBwbGF5cyBhIGdhbWUgb2YgQnVsbHMgYW5kIENvd3MgKE1hc3Rlcm1pbmQpCgpUIOKGkCBb4o2lKCsx4oyKw5fimoI5KTRdICMgUmFuZG9tIHRhcmdldAojIFNjb3JlIGEgZ3Vlc3MgYWdhaW5zdCBhIHRhcmdldCwgb3IgdmljZSB2ZXJzYSA6LSkuClNjb3JlIOKGkCAoCiAgOuKfnC8rPSwsICAgICAgICAgICAgICAgICAgICMgRmluZCBidWxscy4KICDiip_iipkoLyvihqfiiKko4omhLyviip49KzHih6E5KeKIqeKWveKKmTouwqwpICMgRmluZCBjb3dzLgopCiZwICQiXyA8LSBUYXJnZXRcbiIgVArijaUo4piHMeKKnuKKgi4pMisx4oehOSAjIFByb3Bvc2VkIHRhcmdldHMgWzEtOSAxLTkgMS05IDEtOV0K4o2iKAoKICDin5woJnAkIl9cdF8iLCzin5woU2NvcmUgVCniiqHiirgo4oyKw5fimoLip7spKSAjIFBpY2sgZnJvbSBQcywgYW5kIHBsYXkgaXQgYWdhaW5zdCBUCiAg4pa9OuKfnCjiiaHiiY3iipnCpOKJoVNjb3Jl4oqZwqQpICAgICAgICAgICAgICAgICMgT25seSBrZWVwIFBzIHRoYXQgbWF0Y2ggdGhhdCBzY29yZQp8ID4x4qe7CikKJnDihq8yMUAtCiZwICQiX1x0XyIgOuKKuCjin6giVUhPSCJ8Imdvb2Qi4p-p4omNVCniiqIK Try it in Uiua Pad.]
[https://www.uiua.org/pad?src=0_12_0-dev_1__IyBTZXRzIGFuZCBwbGF5cyBhIGdhbWUgb2YgQnVsbHMgYW5kIENvd3MgKE1hc3Rlcm1pbmQpCgpUIOKGkCBb4o2lKCsx4oyKw5fimoI5KTRdICMgUmFuZG9tIHRhcmdldAomcCAkIl8gPC0gVGFyZ2V0XG4iIFQKIyBTY29yZSBhIGd1ZXNzIGFnYWluc3QgYSB0YXJnZXQsIG9yIHZpY2UgdmVyc2EgOi0pLgpTY29yZSDihpAgKAogIDrin5wvKz0sLCAgICAgICAgICMgRmluZCBidWxscy4KICDiip_iipkoLyviiIriiKnil7TiiKnilr3iipk6LsKsKSAjIEZpbmQgY293cy4KKQrijaUo4piHMeKKnuKKgi4pMisx4oehOSAjIFByb3Bvc2VkIHRhcmdldHMgWzEtOSAxLTkgMS05IDEtOV0K4o2iKAoKICDin5woJnAkIl9cdF8iLCzin5woU2NvcmUgVCniiqHiirgo4oyKw5fimoLip7spKSAjIFBpY2sgZnJvbSBQcywgYW5kIHBsYXkgaXQgYWdhaW5zdCBUCiAg4pa9OuKfnCjiiaHiiY3iipnCpOKJoVNjb3Jl4oqZwqQpICAgICAgICAgICAgICAgICMgT25seSBrZWVwIFBzIHRoYXQgbWF0Y2ggdGhhdCBzY29yZQp8ID4x4qe7CikK4oq4KOKfqCJVSE9IInwiZ29vZCLin6niiY1UKeKKogo= Try it in Uiua Pad.]
 
<syntaxhighlight lang="uiua">
Line 4,225:
 
T ← [⍥(+1⌊×⚂9)4] # Random target
&p $"_ <- Target\n" T
# Score a guess against a target, or vice versa :-).
Score ← (
:⟜/+=,, # Find bulls.
⊟⊙(/+∊∩◴∩▽⊙↧∩(≡/+⊞=+1⇡9)∩▽⊙:.¬) # Find cows.
)
&p $"_ <- Target\n" T
⍥(☇1⊞⊂.)2+1⇡9 # Proposed targets [1-9 1-9 1-9 1-9]
⍢(
 
⟜(&p$"_\t_",,⟜(Score T)⊡⊸(⌊×⚂⧻)) # Pick from Ps, and play it against T
▽:⟜(≡≍⊙¤≡Score⊙¤) # Only keep Ps that match that score
| >1⧻
)
&p↯21@-
&p $"_\t_" :⊸(⟨"UHOH"|"good"⟩≍T)⊢
</syntaxhighlight>
{{out}}
Line 4,252 ⟶ 4,254:
[1 3 4 8] [3 0]
[1 3 3 8] [2 0]
---------------------
[1 4 4 8] "good"
"good"
</pre>
 
158

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.