diff options
| author | Abigail <abigail@abigail.be> | 2021-11-14 21:41:18 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-11-14 21:41:46 +0100 |
| commit | 45fce56e0db6a1ba2e639766439cf416136c0929 (patch) | |
| tree | 6fbca8cb76ac2df642d1df3bfa3aafbf808ba723 | |
| parent | 89a58596b73b0615f7e68bcffff597542060e678 (diff) | |
| download | perlweeklychallenge-club-45fce56e0db6a1ba2e639766439cf416136c0929.tar.gz perlweeklychallenge-club-45fce56e0db6a1ba2e639766439cf416136c0929.tar.bz2 perlweeklychallenge-club-45fce56e0db6a1ba2e639766439cf416136c0929.zip | |
Use defaults
| -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] } |