Mastermind: Difference between revisions

*   [[Guess the number/With Feedback]]

<br><br>

 

=={{header|Ada}}==

{{works with|Ada|Ada|2012}}

 

with Ada.Numerics.Discrete_Random;

with Ada.Strings.Fixed;

end;

end MasterMind;

{{out}}

<pre>How many colors? 9

{{works with|GNU APL}}

 

 

⍝ Define the alphabet

 

Mastermind

 

=={{header|AutoHotkey}}==

ww := floor(w/2-2), hh := floor(h/2-2)

grid := [], dx := w*4.5

GuiControl,, Radio%A_Index%, % pegs[A_Index]

return

 

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

#include <algorithm>

#include <ctime>

return 0;

}

{{out}}

<pre>

=={{header|EasyLang}}==

 

 

len code[] 4

len guess[] 4

subr init_vars

.

.

.

.

.

.

.

.

on timer

.

.

.

on mouse_down

.

 

=={{header|Go}}==

 

 

import (

none := m.holes - black - white

return blacks[:black] + whites[:white] + nones[:none], black == m.holes

{{out|note=using Knuth's five-guess algorithm}}

<pre>

 

You found the code in 5 guesses.

</pre>

 

You can try it [http://paulo-jorente.de/webgames/repos/mastermind/ here].

 

class Mastermind {

constructor() {

mm.check()

});

 

To test you'll need a HTML file

=={{header|Julia}}==

GUI version, uses the Gtk toolkit.

 

struct Guess

 

mastermindapp()

 

=={{header|Kotlin}}==

{{trans|C++}}

 

import java.util.Random

val m = Mastermind(4, 8, 12, false)

m.play()

 

Sample input/output (showing last 2 guesses only):

=={{header|Lua}}==

Based on C++

math.randomseed( os.time() )

local black, white, none, code = "X", "O", "-"

if arg[4] ~= nil and arg[4] == "true" or arg[4] == "false" then rept = ( arg[4] == "true" ) end

play()

{{out}}

<pre>

=={{header|Nim}}==

{{trans|Python}}

 

proc encode(correct, guess: string): string =

 

randomize()

 

{{out}}

=={{header|Perl}}==

{{trans|Raku}}

 

print 'Enter pool size, puzzle size, attempts allowed: ';

 

sub lose { print 'Too bad, you ran out of guesses. The solution was: ' . join(' ',@puzzle) . "\n"; exit }

Sample output, omitting redundant instructions.

{{out}}

=={{header|Phix}}==

OTT GUI solution, fully configurable with solver.

constant SET_LIMIT = 1_000_000 -- above this, it uses random sampling.

 

IupClose()

end procedure

 

=={{header|Prolog}}==

 

 

mastermind(Colours, Length, Guesses, Duplicates) :-

N > 0,

N1 is N - 1,

{{out}}

<pre>

{{works with|cpython|3.7.3}}

Tested in Python 3.7.3. Includes input verification.

import random

 

play_game()

 

{{out}}

<pre>

{{works with|Rakudo|2017.01}}

By default, plays classic Mastermind using letters in place of colors. ( 4 chosen from 6, no repeats, 10 guess limit. ) Pass in parameters to modify the game. Enter a string of --length (default 4) letters with or without spaces. Guesses accept lower or upper case.

Int :$colors where 1 < * < 21 = 6, Int :$length where 3 < * < 11 = 4,

Int :$guesses where 7 < * < 21 = 10, Bool :$repeat = False

 

sub lose { say 'Too bad, you ran out of guesses. The solution was: ', $puzzle; exit }

{{out|Sample output}}

<pre>Valid letter, but wrong position: ○ - Correct letter and position: ●

=={{header|REXX}}==

More checks could have been added &nbsp; (for illegal inputs and illegal options).

parse arg let wid mxG oRep seed _ /*obtain optional arguments from the CL*/

arg . . . rep . /*get uppercase 4th argument " " " */

if val > mx then call ser ? "has a value greater than " mx /*◄■■■■■■ optional vetting.*/

if ?=='REP' & \datatype(val,W) then call ser "Value for REPEATS isn't valid: " oRep /*◄■■■■■■ optional vetting.*/

'''output'''

<pre>

 

=={{header|Ring}}==

# Project : Mastermind

 

next

see nl

Output:

<pre>

=={{header|Rust}}==

{{libheader|rand}}

 

use rand::prelude::*;

res.sort_by(|a, b| b.cmp(a));

res.into_iter().collect()

{{out}}

<pre>

 

=={{header|SQL}}==

-- Create Table

-- Distinct combination

check_white(guesses.*, mastermind.*)

FROM guesses, mastermind

 

=={{header|Wren}}==

{{libheader|Wren-ioutil}}

{{libheader|Wren-str}}

 

var Rand = Random.new()

 

var m = Mastermind.new(4, 8, 12, false)

 

{{out}}

=={{header|zkl}}==

{{trans|C++}}

fcn init(code_len,guess_count){

var codeLen =code_len.max(4).min(10);

return(black==codeLen,"X"*black + "O"*white)

}

{{out}}

<pre>