#!/usr/bin/perl

# Utworzenie i potasowanie talii kart.
@talia = 0..51;
for ( $i = 52; $i > 1; ) {
    my $poz = int(rand($i--));
    my $tmp = $talia[$i];
    $talia[$i] = $talia[$poz];
    $talia[$poz] = $tmp;
}

# 0..12 to trefle, 13..25 to kara, 26..38 to kiery, 39..51 to piki
@kolory = qw( C D H S );  # Trefle Kara Kiery Piki
@karty = qw( A 2 3 4 5 6 7 8 9 T W D K );  # As 2..9 Dziesiatka Walet Dama Krol

# $tekst = karta( $liczba )
#    Konwersja numeru karty do opisu tekstowego.
sub karta {
    my $karta = shift;
    my ($kolory, $karty);
    $kolory = $kolory[ $karta/13 ];
    $karty = $karty[ $karta%13 ];
    return "$karty $kolory";
}

foreach (@taila) { push( @wyniki, karta($_) ) }

# Rozdanie 5 kart dla 6 graczy..
for ( $i = 0; $i < 6; $i++ ) {
    $sep = '';
    for ( $j = 0; $j < 5; $j++ ) {
        print $sep, shift(@wyniki);
        $sep = ', ';
    }
    print "\n";
}

