Bill -OSX- Jones wrote:
>
> 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.*$/);
> }
>
> Is there a better Perl Golf way?why the verbosity? `cal 12 $_`=~/^25/m&&print"Christmas found on a Sunday in $_\n"for 1900..2100 -- Rick Klement
