Task 2 done

1 files changed, 22 insertions, 0 deletions

diff --git a/challenge-184/luca-ferrari/raku/ch-2.p6 b/challenge-184/luca-ferrari/raku/ch-2.p6
new file mode 100755
index 0000000000..2008b2b6bb
--- /dev/null
+++ b/challenge-184/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,22 @@
+#!raku
+
+# Perl Weekly Challenge 184
+
+sub MAIN( *@strings ) {
+    my @numbers;
+    my @letters;
+
+    for @strings -> $current-string {
+        my ( @n, @l );
+        for $current-string.comb {
+            @n.push: $_ if ( $_ ~~ / \d / );
+            @l.push: $_ if ( $_ ~~ / <[a..z]> / );
+        }
+
+    @numbers.push: [ @n ] if ( @n );
+    @letters.push: [ @l ] if ( @l );
+    }
+
+    @numbers.join( ", " ).say;
+    @letters.join( ", " ).say;
+}