Bulls and cows: Difference between revisions

{{task|Games}}

 

 

The score is computed as:

# A score of one '''cow''' is accumulated for each digit in the guess that also appears in the randomly chosen number, but in the wrong position.

 

 

=={{header|Ada}}==

with Ada.Numerics.Discrete_Random;

 

end;

end loop;

=={{header|ALGOL 68}}==

{{trans|Python}}

 

{{works with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d]}}

 

[4]CHAR chosen;

print((" ",D bulls," Bulls",new line," ",D cows," Cows"))

OD;

Output:

<pre>

Next guess [1]:

</pre>

 

=={{header|AutoHotkey}}==

}

Gui, Show

Return

 

ButtonSubmit:

Return

 

GuiClose:

 

=={{header|BASIC}}==

{{works with|QBasic}}

 

DIM secret AS STRING

END IF

looper:

 

=={{header|BBC BASIC}}==

REPEAT

c$ = CHR$(&30 + RND(9))

UNTIL FALSE

 

=={{header|Brat}}==

 

secret = [1 2 3 4 5 6 7 8 9].shuffle.pop secret_length

guesses = guesses + 1

}

=={{header|C}}==

{{libheader|ncurses}}

#include <stdarg.h>

#include <stdlib.h>

}

}

 

The following function contains the code to check how many bulls and cows there are.

 

{

int i;

nocbreak(); echo(); endwin();

return EXIT_SUCCESS;

 

=={{header|C++}}==

#include <string>

#include <algorithm>

std::cout << "Another game? ";

}

 

 

 

}

 

}

}

 

}

}

}

}

}

}

=={{header|Clojure}}==

(ns bulls-and-cows)

(bulls-and-cows)

 

=={{header|Common Lisp}}==

(do ((digits '()))

((>= (length digits) 4) digits)

(format stream "~&Correct, you win!")

(format stream "~&Score: ~a cows, ~a bulls."

 

 

while (true) {

}

 

 

 

 

 

 

 

 

=={{header|E}}==

Note: This example was deliberately written in an abstracted style, separating out the algorithms, game logic, and UI.

 

def Number := Tuple[Digit,Digit,Digit,Digit]

 

return gameTurn()

 

===REPL user interface===

{{works with|E-on-Java}} (Java Swing)

 

var lastGuess := ""

def op := <unsafe:javax.swing.makeJOptionPane>

op.showMessageDialog(null, msg)

}, entropy)

 

 

 

 

{

 

}

 

 

 

=={{header|Erlang}}==

Module:

-export([generate_secret/0, score_guess/2, play/0]).

 

read_guess() ->

lists:map(fun(D)->D-48 end,

 

Script:

% Play Bulls and Cows

 

Sample play:<pre>Enter your 4-digit guess: 8376

Correct!

</pre>

=={{header|Euphoria}}==

{{works with|Euphoria|4.0.3, 4.0.0 RC1 and later}}

include std\os.e

include std\sequence.e

 

 

Output :

<pre>

Press Any Key to continue...

</pre>

 

=={{header|Factor}}==

locals math math.parser math.ranges random sequences strings

io ascii ;

[ main-loop ] [ drop win ] if ;

 

=={{header|Fan}}==

** Bulls and cows. A game pre-dating, and similar to, Mastermind.

**

}

}

 

=={{header|Forth}}==

{{works with|GNU Forth}}

 

create hidden 4 allot

: guess: ( "1234" -- )

bl parse 2dup ok? 0= if 2drop ." Bad guess! (4 unique digits, 1-9)" exit then

guess: 1234 1 bulls, 0 cows ok

guess: 1567 1 bulls, 1 cows ok

guess: 1895 2 bulls, 1 cows ok

guess: 1879 4 bulls, 0 cows

=={{header|Fortran}}==

{{works with|Fortran|90 and later}}

implicit none

 

write(*,"(a,i0,a)") "Congratulations! You correctly guessed the correct number in ", tries, " attempts"

 

 

=={{header|Go}}==

 

import (

}

}

 

 

}

 

}

 

 

 

 

}

 

 

}

 

 

=={{header|Haskell}}==

import Control.Monad

import System.Random (StdGen, getStdRandom, randomR)

f (n - 1) (left ++ right) g' (max - 1) (picked : ps)

where (i, g') = randomR (0, max) g

 

=={{header|Icon}} and {{header|Unicon}}==

 

The following works in both Icon and Unicon.

 

digits := "123456789"

every !digits :=: ?digits

write("\t",bulls," bulls and ",cows," cows")

return (bulls = *num)

=={{header|J}}==

plural=: conjunction define

end.

smoutput 'you win'

 

For example:

 

Guess my number: 1234

0 bulls and 1 cow.

Guess my number: 5178

4 bulls and 0 cows.

=={{header|Java}}==

import java.util.Random;

import java.util.Scanner;

public static void main(String[] args){

Random gen= new Random();

while(hasDupes(target= (gen.nextInt(9000) + 1000)));

String targetStr = target +"";

return false;

}

Output:

<pre>Guess a 4-digit number with no duplicate digits: 5834

Guess a 4-digit number with no duplicate digits: 3957

You won after 10 guesses!</pre>

 

=={{header|Liberty BASIC}}==

 

do while len( secret$) <4

close #w

end

=={{header|Logo}}==

{{works with|UCB Logo}}

output (and [number? :n] [4 = count :n] [4 = count remdup :n] [not member? 0 :n])

end

(print :bulls "bulls, :cows "cows)

if :bulls = 4 [print [You guessed it!]]

=={{header|Lua}}==

for i=1,#array-1 do

local t = math.random(i, #array)

print("\nGoodbye!")

end