From 0d17c09056da490fd8eaa57ebc2483f56b59d725 Mon Sep 17 00:00:00 2001
From: Ruben Westerberg <drclaw@mac.com>
Date: Sun, 20 Oct 2019 21:56:42 +1000
Subject: Added ch-1.p6

Also restructured ch-1.pl
---
 challenge-030/ruben-westerberg/perl5/ch-1.pl | 10 +++++-----
 challenge-030/ruben-westerberg/perl6/ch-1.p6 |  5 +++++
 2 files changed, 10 insertions(+), 5 deletions(-)
 create mode 100755 challenge-030/ruben-westerberg/perl6/ch-1.p6

(limited to 'challenge-030')

diff --git a/challenge-030/ruben-westerberg/perl5/ch-1.pl b/challenge-030/ruben-westerberg/perl5/ch-1.pl
index 1be9c64a5d..b175d32d8c 100755
--- a/challenge-030/ruben-westerberg/perl5/ch-1.pl
+++ b/challenge-030/ruben-westerberg/perl5/ch-1.pl
@@ -4,8 +4,8 @@ use warnings;
 use Time::Piece;
 use Time::Seconds;
 
- my $t=localtime(0)->add_months(11)->add_years(49)+24*ONE_DAY;
-while ((2019 <= $t->year) && ($t->year <= 2100)) {
-	print "$t\n" if $t->_wday==0;
-	$t=$t->add_years(1);
-}
+print map { $_->strftime("%Y-%m-%d\n") }map  {
+	my $t=localtime(0)->add_months(11)->add_years($_-1970)+24*ONE_DAY;
+	$t->_wday == 0? $t: ();	
+ }
+(2019..2100);
diff --git a/challenge-030/ruben-westerberg/perl6/ch-1.p6 b/challenge-030/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..d17eb53845
--- /dev/null
+++ b/challenge-030/ruben-westerberg/perl6/ch-1.p6
@@ -0,0 +1,5 @@
+#!/usr/bin/env perl6
+(2019..2100).map({
+	my $t=Date.new(year=>$_,month=>12,day=>25);
+	$t.day-of-week==7??$t!!|();
+})>>.put;
-- 
cgit