diff options
| -rw-r--r-- | challenge-138/abigail/perl/ch-1.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-138/abigail/perl/ch-1.pl b/challenge-138/abigail/perl/ch-1.pl index d2667e6131..9f67cdf720 100644 --- a/challenge-138/abigail/perl/ch-1.pl +++ b/challenge-138/abigail/perl/ch-1.pl @@ -71,7 +71,7 @@ my $SATURDAY = 6; # Given a year, return its "Doomsday" value. # 0 -> Sunday, 6 -> Saturday # -sub doomsday ($year) { +sub doomsday ($year = $_) { use integer; my $anchor = ($TUESDAY, $SUNDAY, $FRIDAY, $WEDNESDAY) [($year / 100) % 4]; my $y = $year % 100; @@ -79,11 +79,11 @@ sub doomsday ($year) { $doomsday; } -sub is_leap ($year) { +sub is_leap ($year = $_) { ($year % 400 == 0) || ($year % 4 == 0) && ($year % 100 != 0) ? 1 : 0 } while (<>) { - say $lookup [is_leap $_] [doomsday $_] + say $lookup [is_leap] [doomsday] } |