Task 1 done

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-194/luca-ferrari/raku/ch-1.p6 b/challenge-194/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..c279fa8df1
--- /dev/null
+++ b/challenge-194/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,17 @@
+#!raku
+
+# Perl Weekly Challenge 194
+
+sub MAIN( Str $what ) {
+
+    given ( $what ) {
+	when ( / ^ \? \d ':' \d ** 2 $ / ) { 2.say and exit }
+	when ( / ^ \d \? ':' \d ** 2 $ /
+	       || / ^ \d ** 2 ':' \? \d $ / ) { 5.say and exit }
+	when ( / ^\d ** 2 ':' \d \? $ / )  { 9.say and exit }
+    }
+    # exit if $what !~~ / \? /;
+    # 2.say if $what ~~ / ^ \? \d ':' \d ** 2 $ /;
+    # 5.say if $what ~~ / ^ \d \? ':' \d ** 2 $ / || $what ~~ / ^ \d ** 2 ':' \? \d $ / ;
+    # 9.say if $what ~~ / ^\d ** 2 ':' \d \? $ /;
+}