diff options
| -rw-r--r-- | challenge-048/ruben-westerberg/README | 5 | ||||
| -rwxr-xr-x | challenge-048/ruben-westerberg/perl/ch-1.pl | 8 | ||||
| -rwxr-xr-x | challenge-048/ruben-westerberg/perl/ch-2.pl | 17 | ||||
| -rwxr-xr-x | challenge-048/ruben-westerberg/raku/ch-1.raku | 6 | ||||
| -rwxr-xr-x | challenge-048/ruben-westerberg/raku/ch-2.raku | 6 |
5 files changed, 39 insertions, 3 deletions
diff --git a/challenge-048/ruben-westerberg/README b/challenge-048/ruben-westerberg/README index 14155951ef..9f659c966a 100644 --- a/challenge-048/ruben-westerberg/README +++ b/challenge-048/ruben-westerberg/README @@ -2,9 +2,8 @@ Solution by Ruben Westerberg ch-1.pl and ch-1.raku =================== -Simple arithmetic operations on roman numerals. Takes three arguments op1 operator and op2. op1 and op2 can be either roman numeral or digits (or one of each). operator can be + - / *. Operations are integer. Remeber to escape the shell when using the * - +Survivor program. Run to find the survivor ch-2.pl and ch-2.raku =================== -Run the program to generate first 20 gapful number from 100 +Palindrone dates between 2000 and 2999 diff --git a/challenge-048/ruben-westerberg/perl/ch-1.pl b/challenge-048/ruben-westerberg/perl/ch-1.pl new file mode 100755 index 0000000000..ba8c7aa2a2 --- /dev/null +++ b/challenge-048/ruben-westerberg/perl/ch-1.pl @@ -0,0 +1,8 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +my @sur=1..50; +my $i=0; +splice @sur, $i=($i+1)%@sur,1 while @sur > 1; +print "Survivor: $sur[0]\n" diff --git a/challenge-048/ruben-westerberg/perl/ch-2.pl b/challenge-048/ruben-westerberg/perl/ch-2.pl new file mode 100755 index 0000000000..cb9e79610d --- /dev/null +++ b/challenge-048/ruben-westerberg/perl/ch-2.pl @@ -0,0 +1,17 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Time::Piece; +use Time::Seconds; + + +my $s=Time::Piece->strptime("2000-01-01","%Y-%M-%D"); + +my $e=Time::Piece->strptime("2999-01-01","%Y-%M-%D"); +my $d=$s; +while ($d < $e) { + my $str= $d->strftime("%m%d%Y"); + print "Date is a palindrone: ".$d->strftime."\n" if ($str eq reverse $str ); + $d+=ONE_DAY; +} + diff --git a/challenge-048/ruben-westerberg/raku/ch-1.raku b/challenge-048/ruben-westerberg/raku/ch-1.raku new file mode 100755 index 0000000000..a6ef5af71a --- /dev/null +++ b/challenge-048/ruben-westerberg/raku/ch-1.raku @@ -0,0 +1,6 @@ +#!/usr/bin/env raku +my @sur=1..50; +my $i=0; +@sur.splice($i=($i+1)%@sur,1) while @sur > 1; +put "Survivor: @sur[]"; + diff --git a/challenge-048/ruben-westerberg/raku/ch-2.raku b/challenge-048/ruben-westerberg/raku/ch-2.raku new file mode 100755 index 0000000000..a59405fbdc --- /dev/null +++ b/challenge-048/ruben-westerberg/raku/ch-2.raku @@ -0,0 +1,6 @@ +#!/usr/bin/env raku +my $f={sprintf "%02d%02d%04d", .month,.day,.year}; +put (Date.new("2000-01-01",formatter=>$f)..Date.new("2999-01-01")) + .grep({my $str= .Str;$str.flip eq $str}) + .map({ "Date is a palindrone: "~Date.new($_)~"\n"}).join; + |