Hi :) I was asked recently if I could write a Perl program that would find out when the next time Christmas day would actually be on a Sunday.
I said "Maybe." After thinking about it - very little thought actually - I came up with a recursive `cal 12 $year` Unix/Perl script where $year was the four digit year since 1900, continuing thru 2100... Then I just parse the output to see what day of the week the 25th fell on... I came up with: #!perl for $year (1900 .. 2100) { $data = `cal 12 $year`; @month = split(/\n/, $data); print "\nChristmas found on a Sunday in $year" if ($month[6] =~ /^25\s.*$/); } __END__ Example of a valid matching month: December 2016 S M Tu W Th F S 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Is there a better Perl Golf way? _Sx____________________ ('> -Sx- IUDICIUM //\ Have Computer - v_/_ Will Hack... print pack('c5',(41*2),sqrt(7056),(unpack('c',H)-2),oct(115),10);