Jeux : : Cartes : : Le tisonnier est un module de Perl pour des fonctionnements purs de tisonnier de Perl.

SYNTHÈSE

jeux d'utilisation : : Cartes : : Tisonnier ;

# les mains de joueurs de l'affaire quatre (4) et les rayent…
mon $players = 4 ; # le numéro des joueurs pour obtenir des mains s'est occupé
mon $hand_size = 5 ; # numéro de carte à s'occuper à chaque joueur
mes @hands = () ; # caractéristiques de main de joueur
mon @deck = battage (paquet ());

tandis que ($players--) {
poussée (@ {$hands [$players]}, bruit (@deck)) foreach (1.$hand_size) ;
printf (« rayure de Player$players : main de %4d : @ {$hands [$players]} n »,
ScoreHand (@ {$hands [$players]}));
}

Le tisonnier fournit quelques fonctionnements pour produire des paquets des cartes et les manipuler pour les jeux ou les simulations de tisonnier simples.