diff options
| author | Simon Proctor <simon.proctor@zpg.co.uk> | 2019-06-17 09:29:03 +0100 |
|---|---|---|
| committer | Simon Proctor <simon.proctor@zpg.co.uk> | 2019-06-17 09:29:03 +0100 |
| commit | db8ae056982e705e7a44bcf45df5b5f89028d1c6 (patch) | |
| tree | dd96baa271d0b6a68116402b7c89c4b30f9840ee /challenge-013/simon-proctor | |
| parent | 930f2f38b5ff771c096c6beaa5b97b9ad0988965 (diff) | |
| download | perlweeklychallenge-club-db8ae056982e705e7a44bcf45df5b5f89028d1c6.tar.gz perlweeklychallenge-club-db8ae056982e705e7a44bcf45df5b5f89028d1c6.tar.bz2 perlweeklychallenge-club-db8ae056982e705e7a44bcf45df5b5f89028d1c6.zip | |
Actually use the year
Diffstat (limited to 'challenge-013/simon-proctor')
| -rw-r--r-- | challenge-013/simon-proctor/perl6/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-013/simon-proctor/perl6/ch-1.p6 b/challenge-013/simon-proctor/perl6/ch-1.p6 index da547afc27..4ae432f3a2 100644 --- a/challenge-013/simon-proctor/perl6/ch-1.p6 +++ b/challenge-013/simon-proctor/perl6/ch-1.p6 @@ -8,5 +8,5 @@ sub date-format( $date ) { sprintf "%04d/%02d/%02d", .year, .month, .day given $ sub MAIN ( Int() $year #= Year to list Fridays for. ) { - say( date-format( $_ ) ) for (Date.new( :2019year, :1month, :1day, formatter => &date-format )...Date.new( :2019year, :12month, :31day, formatter => &date-format )).grep( *.day-of-week() == 5); + say( date-format( $_ ) ) for (Date.new( :$year, :1month, :1day, formatter => &date-format )...Date.new( :$year, :12month, :31day, formatter => &date-format )).grep( *.day-of-week() == 5); }
\ No newline at end of file |