diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-10-03 08:20:51 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-10-03 08:20:51 +0100 |
| commit | 7c235ea834ceb7a0031930258a567d7c48ec4ea2 (patch) | |
| tree | d8bb8e06c5cc30684337171a6db6796d8b39baa5 | |
| parent | 0074f00a8ca3a208cf200029fef3b0443ba35e1c (diff) | |
| parent | 6d8373830d804b55d532589ed4f356038769409d (diff) | |
| download | perlweeklychallenge-club-7c235ea834ceb7a0031930258a567d7c48ec4ea2.tar.gz perlweeklychallenge-club-7c235ea834ceb7a0031930258a567d7c48ec4ea2.tar.bz2 perlweeklychallenge-club-7c235ea834ceb7a0031930258a567d7c48ec4ea2.zip | |
Merge pull request #4952 from JRaspass/master
132: Mirror Dates in Raku by James Raspass
| -rw-r--r-- | challenge-132/james-raspass/README | 1 | ||||
| -rw-r--r-- | challenge-132/james-raspass/raku/ch-1.raku | 8 |
2 files changed, 9 insertions, 0 deletions
diff --git a/challenge-132/james-raspass/README b/challenge-132/james-raspass/README new file mode 100644 index 0000000000..e8b9d803c6 --- /dev/null +++ b/challenge-132/james-raspass/README @@ -0,0 +1 @@ +Solution by James Raspass. diff --git a/challenge-132/james-raspass/raku/ch-1.raku b/challenge-132/james-raspass/raku/ch-1.raku new file mode 100644 index 0000000000..6dc41fb5b8 --- /dev/null +++ b/challenge-132/james-raspass/raku/ch-1.raku @@ -0,0 +1,8 @@ +unit sub MAIN(Date() $birthday, Date() $today = Date.today); + +my $age = $today - $birthday; + +printf q:to/END/, $birthday - $age, $today + $age; + On the date you were born, someone who was your current age, would have been born on %s. + Someone born today will be your current age on %s. + END |