Forum programmazione

[bled]

Salve a tutti...per sfizio sto creando il gioco dell lotto in perl...
bene tramite la funzione rand in un array creo 5 numeri casuali...ma come faccio a fare..."se hai indovinato due numeri su 5 allora è ambo ecc.."?
spero di essere stao chiaro grazie anticipatamente

[k8]

scorri l'array (magari con un foreach?) e verifichi, oppure, in php ci sono funzioni del tipo in_array(paroladacercare,array)
che verificano se un elemento è presente o no nell'array.
Non so se esiste anche in perl.. penso di sì..

[bled]

mmm grazie mille ora vedro cosa posso fare...mi informo il piu possibile...la mia difficolta era solo quella trovare nell'array...se qualcun altro sa sono contento

[BlackCode]

dovresti confrontare ogni valore dell'utente con ogni array

[_Andy_]

foreach dovrebbe andare bene

Code: Select all

foreach $numero(@numeri) {
              if ($numero==$numeroscelto) {
                        $indovinati++;
              }
}


[bled]

allora io faccio...
come prima cosa faccio inserire 5 numeri
dopodiche creo un array con 5 numeri in random...
è il punto del foreach che mi confonde...scusate se vi assillo

[k8]

allora io faccio...
come prima cosa faccio inserire 5 numeri
dopodiche creo un array con 5 numeri in random...
è il punto del foreach che mi confonde...scusate se vi assillo

foreach scorre tutto l'array e verifica appunto se ci son quegli elementi o no.

[bled]

si ma qui parlo di cinque numeri scelti da confronmtare con quelli random...

[k8]

si ma qui parlo di cinque numeri scelti da confronmtare con quelli random...

e che centra?
segui l'esempio di _andy_ e guardati un pò come funzionano i cicli

[_Andy_]

Code: Select all

@numeriscelti; // array che contiene i numeri scelti dall'utente
@numerirand;   // numeri scelti casualmente

foreach $numeroscelto(@numeriscelti) {
             foreach $numerorand(@numerirand) {
                           if($numeroscelto==$numerorand)
                           { $indovinati++; }
             }
}

print "Hai indovinato $indovinati numero/i\n";

scusa la scarsa indentazione ma scrivere in un form senza la possibilità di usare il tab mi mette in difficoltà

[bled]

innanzi tutto io con qst code faccio inserire all'user i numeri che vuole giocare
dopodiche li vado a mettere nell'array...faccio fare un random...

Code: Select all

print"inserisci il 1 numero\n";
$a=<STDIN>;
print"inserisci il 2 numero\n";
$b=<STDIN>;
print"inserisci il 3 numero\n";
$c=<STDIN>;
print"inserisci il 4 numero\n";
$d=<STDIN>;
print"inserisci il 5 numero\n";
$e=<STDIN>;
@numeriscelti=("$a","$b","$c","$d","$e");
@numerirand=(int(rand 90 ) + 1, int(rand  90) + 1, int(rand  90) + 1, int(rand  90) + 1,int(rand  90) + 1);

va bene fin qui come codice?

[_Andy_]

non prenderla come un'offesa, ma il tuo codice mostra esattamente come non bisogna usare gli array

eccotelo riscritto

Code: Select all

for($i=0;$i<5;$i++) {
   print 'Inserisci il '.($i+1).' numero: ';
   chomp($numeriscelti[$i]=<STDIN>);
   $numerirand[$i]=int(rand(98))+1;
}

a sto punto lo hai tutto scritto

[bled]

nessuna offesa sto qui per imparare...e sinceramente hai ragione devo usare il ciclo for...

[_Andy_]

bene, spero che ora funzioni tutto

[bled]

cè ancora qualcosa che nn va...