Foro - Perl en Español

por **Mar_tal** » 2012-05-14 16:03 @711

Fisher-Yates shuffle
sub shuffle {
use integer;

my $array = shift;
my $i;

for ($i = @$array; -$i; ) {
my $j = int rand ($i+1);
@$array[$i,$j] = @$array[$j,$i];
}
}
my %card;
sub init_cards {
my $c = shift;

my @denom = ( 2 .. 9, qw/ t j q k a / );
my @suits = qw/ h d c s /;

my @dim = ( -width => CARDWIDTH, -height => CARDHEIGHT );

foreach my $d (@denom) {
foreach my $s (@suits) {
my $im = $c->Photo(-file => "cards/$d$s.gif", @dim);
$card{"$d$s"} = $im;
}
}
}

Consta de dos subrutinas.

La primera realiza una mezcla de elementos siguiendo el algoritmo Fisher-Yates.

Luego se declara la variable %card (carta, en inglés, así que suponemos que aquí se almacena un mazo de cartas).

La siguiente subrutina inicializa el mazo de cartas. Hace un doble bucle con los valores de las cartas (de 2 a 9, y diez (ten), sota (jack), reina (queen), rey (king), y as (ace)), junto con los palos de las cartas (tréboles (clubs ♣), diamantes (diamonds ♦), corazones (hearts ♥) y picas (spades ♠)).

Las claves de %card será de la forma "ah", para el as de corazones, por ejemplo. Y el valor es un objeto, supongo que una imagen, almacena en el directorio cards/.

Foro - Perl en Español

Explicar funcionamiento de código

Explicar funcionamiento de código

Publicidad

Re: Explicar funcionamiento de código

¿Quién está conectado?