#!/usr/bin/perl -w

sub floor { int( ( $_[0] - int($_[0])) + 1 ) + int($_[0]) - 1 }

@dnitygodnia = qw(niedziela poniedzialek wtorek sroda czwartek piatek sobota);

# $dzien musi zawierac sie w zakresie od 1 do 31.
# $miesiac musi zawierac sie w zakresie od 1 do 12.
# $rok nalezy podac jako pelny rok.
#
sub dzientygodnia {
    my ($dzien, $miesiac, $rok) = @_;
    my ($wiek) = int($rok / 100);
    $rok %= 100;
    if ($miesiac < 3) {
        $miesiac += 10;
        $rok--;
    } else { $miesiac -= 2 }
    return $dnitygodnia[ ($dzien
                       + floor(2.6 * $miesiac - 0.2)
                       - (2 * $wiek)
                       + $rok
                       + floor($rok / 4)
                       + floor($wiek / 4)) % 7 ];
}

print dzientygodnia( 31, 12, 2000 ), "\n";




