From 7f9941cebb639ce58e502174a7187019af40d232 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 25 Jan 2021 10:25:09 +0100
Subject: Task2 done.

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

diff --git a/challenge-097/luca-ferrari/raku/ch-2.p6 b/challenge-097/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..7746228800
--- /dev/null
+++ b/challenge-097/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,20 @@
+#!raku
+
+
+sub MAIN( Str $B = "101100101",
+          Int $S = 3 ) {
+
+    my @splits = $B.comb: $S.Int;
+    my $flips = 0;
+
+    my ( $a, $b ) = @splits[ 0 ], Nil;
+
+    for 1 ..^ @splits.elems  {
+        $b = @splits[ $_ ];
+
+        # find out how many chars are different
+        $flips++ if ( $a.comb[ $_ ] != $b.comb[ $_ ] ) for ^@$a.comb.elems;
+    }
+
+    say $flips;
+}
-- 
cgit