> use Date::Christmas qw(christmasday); > my $year = (localtime)[5] + 1900; > 1 until christmasday($year++) eq 'Sunday'; > print "Christmas will fall on a Sunday in $year\n"; > > The man page has the algorithm.
Thx to all :)
You guys are so Goofy - erm, I mean Golfy :)
_Sx____________________
('> -Sx- IUDICIUM
//\ Have Computer -
v_/_ Will Hack...
