Problema lotto in perl

Topic Sul Perl.

Moderator: dree

Postby Falcon on Wed Sep 05, 2007 4:39 pm

Cosa non và bled? :?:
Mi intrometto sempre..
[OT]Sono tornato ad animare il foro :LOOL: [/OT]
Linux Slackware User
User avatar
Falcon
Java Programmer
 
Posts: 542
Joined: Sat Jul 08, 2006 8:38 am

Sponsor

Sponsor


Postby _Andy_ on Wed Sep 05, 2007 5:00 pm

metti insieme i 2 codici che ti ho postato e funziona ;)

qual'è il problema?
User avatar
_Andy_
Variabile
 
Posts: 258
Joined: Thu Jun 15, 2006 8:00 pm
Location: 127.0.0.1

Postby bled on Wed Sep 05, 2007 5:43 pm

prova a startarlo...
bled
Newbies
 
Posts: 40
Joined: Tue Jul 31, 2007 1:29 pm

Postby _Andy_ on Wed Sep 05, 2007 8:03 pm

provato e funziona correttamente :?

posta l'errore che hai
User avatar
_Andy_
Variabile
 
Posts: 258
Joined: Thu Jun 15, 2006 8:00 pm
Location: 127.0.0.1

Postby bled on Thu Sep 06, 2007 12:34 am

cioè va tt bene solo che alla fine i risultati me dice...hai indovinato numero/i
bled
Newbies
 
Posts: 40
Joined: Tue Jul 31, 2007 1:29 pm

Postby _Andy_ on Thu Sep 06, 2007 12:49 am

perchè non ne indovini nessuno, e la variabile $indovinati viene impostata solo se se ne indovina 1...
aggiungi fra i due pezzi di codice questa riga

Code: Select all
$indovinati=0;


scusa, mi ero dimenticato ;)
User avatar
_Andy_
Variabile
 
Posts: 258
Joined: Thu Jun 15, 2006 8:00 pm
Location: 127.0.0.1

Postby bled on Thu Sep 06, 2007 1:32 am

allora ora devo creare un hash contenente 5 numeri random...
e dopodiche devo verificare quanto ha indovinato l'utente e quindi vedere se ha fatto un ambo o terno giusto?
bled
Newbies
 
Posts: 40
Joined: Tue Jul 31, 2007 1:29 pm

Postby _Andy_ on Thu Sep 06, 2007 7:13 pm

no, hai già l'array con i numeri casuali :?

e lo script ti dice già anche quanti numeri sono stati indovinati...

ora con dei semplici if puoi confrontare la variabile dei numeri indovinati e il reale risultato

Code: Select all
Es. if($indovinati==X) { print "XYZ"; }
User avatar
_Andy_
Variabile
 
Posts: 258
Joined: Thu Jun 15, 2006 8:00 pm
Location: 127.0.0.1

Postby bled on Thu Sep 06, 2007 10:12 pm

quello che dico...per esempio io indovino un numero?
me lo moltiplica per cinque...
percui se ne indovino uno mi dice"hai indovinato 5 numeri"se ne indovino 5 me dice che ne ho indovinta 25
bled
Newbies
 
Posts: 40
Joined: Tue Jul 31, 2007 1:29 pm

Postby _Andy_ on Fri Sep 07, 2007 12:16 am

ehm, posta il codice che hai :shock:
User avatar
_Andy_
Variabile
 
Posts: 258
Joined: Thu Jun 15, 2006 8:00 pm
Location: 127.0.0.1

Postby bled on Fri Sep 07, 2007 2:42 am

quelli postati in precedenza da te :shock:
bled
Newbies
 
Posts: 40
Joined: Tue Jul 31, 2007 1:29 pm

Postby _Andy_ on Fri Sep 07, 2007 10:15 am

io con questo non ho problemi di moltiplicazioni strane :shock:
Code: Select all
#!/usr/bin/perl
#Max=20
print "Remember max number is 20\n";
for($i=0;$i<5;$i++) {
   print 'Inserisci il '.($i+1).' numero: ';
   chomp($numeriscelti[$i]=<STDIN>);
   $numerirand[$i]=int(rand(19))+1;
}
$indovinati=0;
foreach $numeroscelto(@numeriscelti) {
   foreach $numerorand(@numerirand) {
      if($numeroscelto==$numerorand)
         { $indovinati++; }
   }
}

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


ho abbassato il limite a 20 per testare che la variabile $indovinati funzionasse
User avatar
_Andy_
Variabile
 
Posts: 258
Joined: Thu Jun 15, 2006 8:00 pm
Location: 127.0.0.1

Postby bled on Fri Sep 07, 2007 12:45 pm

capito il mio errore setteavo i numeri rand in modo sbagliato e me li moltiplicava per i numeri indovinati...poi ora mi hai dato la conferma ;)
bled
Newbies
 
Posts: 40
Joined: Tue Jul 31, 2007 1:29 pm

Previous

Return to Perl

Who is online

Users browsing this forum: No registered users and 1 guest

cron