From 8d64a6ffe62342407c756f086b98244e43d4b92d Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 8 Feb 2021 14:40:48 +0100
Subject: Task 2 done not properly working.

---
 challenge-099/luca-ferrari/raku/ch-2.p6 | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 challenge-099/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-099/luca-ferrari/raku/ch-2.p6 b/challenge-099/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..386d2fdfd4
--- /dev/null
+++ b/challenge-099/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,18 @@
+#!raku
+
+sub MAIN( Str $S, Str $T ) {
+    say "String [$S] with pattern [$T]";
+
+    my $counter = 0;
+
+    my $regexp = $T.comb.join( '.*' );
+
+    # overlapping search
+    given $S {
+        for m:exhaustive/ <$regexp> / -> $match {
+            $counter++;
+        }
+    }
+
+    say $counter;
+}
-- 
cgit