Foro - Perl en Español

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/.