Bulls and cows/Player: Difference between revisions

Line 2,512:

do tries=1 until #()<2 | bull==4; say

call prompter

do ?=L to H /*traipse through the whole list. */

do ?=1234 to 9876 /*traipse through the whole list. */

if @.?==. then iterate /*was this choice already eliminated ? */

call bull# ?,g /*obtain the bulls and cows count. */

Line 2,529:

exit /*stick a fork in it, we're all done. */

/*──────────────────────────────────────────────────────────────────────────────────────*/

#: #=0; do k=L to H; if @.k==. then iterate; #=#+1; g=k; end; return #

#: #=0; do k=1234 to 9876; if @.k==. then iterate; #=# + 1; g=k; end; return #

gen@: @.=.; ~~L=1234; H=9876;~~ do j=L to H; if ~~genOK~~() then @.j=j; end; return

gen@: @.=.; do j=1234 to 9876; if \rep() & pos(0, j)==0 then @.j=j; end; return

~~genOK~~: if pos(0, j)\==0 then return 0; return ~~\rep()~~

rep: do k=1 for 3; if pos(substr(j, k, 1), j, k+1)\==0 then return 1; end; return 0

serr: say; say pad '***error*** ' ! arg(1); return

rep: do k=1 for 3; if pos(substr(j,k,1),j,k+1)\==0 then return 1; end; return 0

serr: say; say pad '***error*** ' ! arg(1); return

/*──────────────────────────────────────────────────────────────────────────────────────*/

bull#: parse arg n,q; L=length(n); bulls=0; cows=0 /*initialize some vars.*/

Line 2,550:

Line 2,549:

do forever; say

say pad "How many bulls and cows were guessed with " g '? [─── or QUIT]'

pull x 1 bull cow _ . /*PULL capitalizes the arguments.*/

pull x 1 bull cow . /*PULL capitalizes the arguments.*/

if abbrev('QUIT', x, 1) then exit /*the user wants to quit playing.*/

select

when bull=='' then != "no numbers were entered."

when bull == '' then != "no numbers were entered."

when cow =='' then != "not enough numbers were entered."

when cow == '' then != "not enough numbers were entered."

when ~~_\==''~~ then != "too many numbers entered: " x

when words(x) > 2 then != "too many numbers entered: " x

when \datatype(bull, 'W') then != "1st number (bulls) not an integer: " bull

when \datatype(cow , 'W') then != "2nd number (cows) not an integer: " cow

Line 2,564:

Line 2,563:

end /*select*/

if !\=='' then do; call serr; iterate; end /*prompt the user and try again. */

bull=bull/1; cow=cow/1; return /*normalize bulls & cows numbers.*/

bull=bull / 1; cow=cow / 1; return /*normalize bulls & cows numbers.*/

end /*forever*/</lang>

end /*forever*/</lang> <br><br>

=={{header|Ring}}==