Pagina 1 di 1

Master mind

Inviato: sab nov 24, 2007 3:39 pm
da ronfo
Quando ero uno studentello (... aimè tanti anni fa) giocavo con i miei compagni ad un gioco che in seguito sarebbe stato commercializzato come Master Mind.
Siccome ogni tanto compro la settimana enigmistica un quesito della Susi me lo ha riportato alla mente , e ora Ve lo propongo .
Dovete indovinare un numero di quattro cifre tutte diverse tali che
1234 --
5678 -
9056 -
8602 +--
3240 +-
ove il + significa cifra indovinata e nella posizione esatta
e il - significa cifra indovinata ma nella posizione errata.
CIAO
PS: potremmo ogni tanto lanciarci delle sfide a master mind così tanto per vedere chi ci azzecca per primo!?

Inviato: sab nov 24, 2007 4:43 pm
da Br1
8120

Ma mi tocca lasciare la pubblicazione dello schema
logico a Franco e agli altri amici :wink:
Oppure vedo se riesco a passare allo scanner i miei
scarabocchi lunedì...

Volo!

Inviato: sab nov 24, 2007 6:18 pm
da delfo52
negli anni del liceo, il mio compagno di banco S.G., ultra ripetente e certamente tra i meno dotati, apparentemente, della sezione C, era a questo gioco il campione indiscusso; e batteva regolarmente oltre al sottoscritto, tutti i migliori della classe.
Noi usavamo strumenti logici e griglie che ci sembravano sofisticati e a prova di bomba. S. senza prendere appunti, senza scarabocchi, senza tabelle, aveva una percentuale di vittorie superiore all'80%
E ha sempre negato di avere un "metodo"....
P.S. che fosse un tipo strano, lo confermò il fatto che, dopo la maturità classica nel 1970, non si iscrisse all'università, ma cominciò a fare ....il tassista

Inviato: sab nov 24, 2007 6:39 pm
da franco
Br1 ha scritto:8120
Hai vinto un motorino :D

Grazie ad Alitalia che mercoledì ha ritardato di 2 ore il mio volo per Milano avevo acquistato la rivista e risolto il quesito che appunto prevedeva (per la Susi) un motorino in premio se avesse indovinato la combinazione del lucchetto.
Br1 ha scritto:...Ma mi tocca lasciare la pubblicazione dello schema
logico a Franco e agli altri amici ...
I miei scarabocchi sono rimasti su un tovagliolino in aeroporto!

ciao

Inviato: lun nov 26, 2007 4:09 pm
da Br1
Non ho mai giocato a Master Mind e non mi è neppure
capitato di avere a che fare con questo genere di
problemini... :(

A volte ho il dubbio di esser saltato fuori da un ovokinder!

Vabbè... comunque, nell'ora di pranzo sono riuscito
a trascrivere in txt il mio percorso - risparmiandovi
così gli scarabocchi di cui dicevo, che mi son sembrati
quasi del tutto impresentabili!


PS - Ho appena inviato la mia risposta al Quesito per
voi di Novembre 2007
proposto dal Dipartimento di
Matematica "F. Enriques" e mi sa che dovrò rimanere
per un po' con il sapore di queste bricioline... buona grazia!
Ora torno ai miei inevitabili ma preziosi impegni :wink:

Inviato: mar nov 27, 2007 3:17 pm
da ZioGiò
Mastermind!
Anch'io ho conosciuto questo gioco al liceo. Ci venne chiesto in informatica di realizzarne una versione in VB. Ovviamente è un po' diversa da quella proposta da Ronfo.
Se vi interessa la trovate qui: http://www.lyra.net/masterMind.zip
Estrarre i due file contenuti nello zip nella stessa cartella!
Ditemi se ci sono bachi che è un po' (2003, sic!) che non ci metto le mani!

Saluti!

Re: Master mind

Inviato: sab mag 24, 2008 3:28 pm
da brandon
Ciao mi sono appena iscritto.. mi interessava sapere come hai fatto a fare mastermind con visual basic che mi servirebbe per la scuola

grazie

Re: Master mind

Inviato: sab giu 21, 2008 12:55 pm
da Quelo
Per tutti gli appassionati dell'utilissimo Decimal Basic ecco una versione flash del gioco:

!' DECIMAL MASTERMIND (C) 2008 by Quelo

!' gioco a 10 cifre
!' + giusto al posto giusto
!' - giusto al posto sbagliato

DIM c$(1 TO 4)
DIM d$(1 TO 4)

RANDOMIZE
LET n = INT(10000*RND)
LET r$ = right$ ("000" & STR$(n),4)
LET v = 1

10 INPUT PROMPT "Indica un numero di 4 cifre: ": t$
IF LEN(t$) <> 4 THEN
GOTO 10
END IF
GOTO 30

20 INPUT PROMPT " Riprova:": t$
IF LEN(t$) <> 4 THEN GOTO 20
LET v = v + 1

30 LET q$ = ""
FOR i = 1 TO 4
LET c$(i) = mid$(r$,i,1)
LET d$(i) = mid$(t$,i,1)
IF d$(i)=c$(i) THEN
LET q$ = q$ & "+"
LET c$(i) = "#"
LET d$(i) = "@"
END IF
NEXT I
FOR i = 1 TO 4
FOR j = 1 TO 4
IF d$(j)=c$(i) THEN
LET q$ = q$ & "-"
LET c$(i) = "#"
LET d$(j) = "@"
LET j=5
END IF
NEXT J
NEXT i
PRINT t$ & " " & q$
IF t$ = r$ THEN
PRINT "ESATTO !"
PRINT "Hai indovinato con "; v; " tentativi"
ELSE
GOTO 20
END IF
END

Sentitevi liberi di segnalarmi eventuali errori o malfunzionamenti.

[Il programma è liberamente utilizzabile e riproducibile, a patto di citarne l'autore :wink: ]