Task 1 done

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-102/luca-ferrari/raku/ch-1.p6 b/challenge-102/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..f283af245e
--- /dev/null
+++ b/challenge-102/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,17 @@
+#!raku
+
+
+
+
+multi sub MAIN( Int $year where { $year > 1900 } ) {
+    my @animals = qw/ Rat Ox Tiger Rabbit Dragon Snake Horse Goat Monkey Rooster Dog Pig /;
+    my @elements = qw/ Wood Fire Earth Metal Water /;
+
+    say "Year $year is %s %s".sprintf:
+        @elements[ ( $year - 4 ) % 10 / 2 ],
+        @animals[ ( $year - 4  ) % 12 ];
+}
+
+multi sub MAIN() {
+    MAIN( DateTime.now.year );
+}