From 1d92aae1fcad925b7e4b97205fa04f545a4c556d Mon Sep 17 00:00:00 2001 From: Scimon Date: Mon, 25 Jul 2022 16:48:16 +0100 Subject: Challenge 1 --- challenge-175/simon-proctor/raku/ch-1.raku | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 challenge-175/simon-proctor/raku/ch-1.raku diff --git a/challenge-175/simon-proctor/raku/ch-1.raku b/challenge-175/simon-proctor/raku/ch-1.raku new file mode 100644 index 0000000000..a2d739dbbb --- /dev/null +++ b/challenge-175/simon-proctor/raku/ch-1.raku @@ -0,0 +1,14 @@ +#!/usr/bin/env raku + +#| Print a list of the last Sunday in each month +sub MAIN( + Int $year = Date.today().year #= Year to give last Sunday dates for +) { + for (1..12) -> $month { + my $date = Date.new($year,$month,1).later( :1month).earlier(:1day); + while ($date.day-of-week != 7) { + $date.=earlier(:1day) + } + $date.say + } +} -- cgit