diff options
| -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 |