Bulls and cows: Difference between revisions

=={{header|RPL}}==

{{works with|HP|49}}

« CLEAR 0 ""

1 4 '''START'''

'''WHILE''' RAND 9 * CEIL R→I →STR DUP2 POS '''REPEAT''' '''DROP''' END +

'''NEXT'''

→ count solution

« '''DO''' 1 CF

'''DO''' "Guess? [CONT]" PROMPT →STR

'''CASE'''

DUP SIZE 4 ≠ '''THEN''' DROP "Not 4 characters" 1 DISP 0.5 WAIT '''END'''

{ 9 } 0 CON

1 4 '''FOR''' j

OVER j DUP SUB STR→

'''IFERR''' 1 PUT '''THEN''' 3 DROPN "Invalid character" 1 DISP 0.5 WAIT '''END'''

'''NEXT'''

DUP 1 CON DOT 4 ≠ '''THEN''' DROP "Repeated digits" 1 DISP 0.5 WAIT '''END'''

1 SF

'''END'''

'''UNTIL''' 1 FS? '''END'''

" → " + 0

1 4 '''FOR''' j

solution PICK3 j DUP SUB POS

'''IF''' DUP '''THEN''' IF j == '''THEN''' 1 '''ELSE''' .1 '''END END''' +

'''NEXT'''

SWAP OVER + 'count' INCR DROP

'''UNTIL''' SWAP 4 == '''END'''

count "guess" →TAG

» » '<span style="color:blue">BU&CO</span>' ST0