From dbb95517774955b8a428dee696f7d0b05d13f8c8 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Thu, 23 Jul 2020 16:17:17 +0200
Subject: Task 1 done.

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

diff --git a/challenge-070/luca-ferrari/raku/ch-1.p6 b/challenge-070/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..f3d3c3adf0
--- /dev/null
+++ b/challenge-070/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,18 @@
+#!raku
+
+
+sub MAIN( Str $S,
+          Int $C where { $C >= 1 },
+          Int $O where { $O >= 1 && $O >= $C && ( $C + $O ) <= $S.chars } ) {
+    my $N = $S.chars;
+
+    say "$S with $N chars, swap counter $C and offset $O";
+
+    my @chars = $S.split( '', :skip-empty );
+    for 1 .. $C {
+        my ( $index-left, $index-right ) = $_ % $N, ( $_ + $O ) % $N;
+        ( @chars[ $index-left ], @chars[ $index-right ] ) = @chars[ $index-right ], @chars[ $index-left ];
+    }
+
+    @chars.join.say;
+}
-- 
cgit 


From 53ded5c58329602adc2ded42fd10718f3be0fd57 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Thu, 23 Jul 2020 16:40:59 +0200
Subject: Task 2 done

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

diff --git a/challenge-070/luca-ferrari/raku/ch-2.p6 b/challenge-070/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..1e433fb123
--- /dev/null
+++ b/challenge-070/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,23 @@
+#!raku
+
+
+sub MAIN( Int $N where { 2 <= $N <= 5 } ) {
+    say "Grey sequence with width $N";
+
+    my @sequence;
+    @sequence[ 0 ] = 0.base( 2 );
+    @sequence[ 1 ] = 1.base( 2 );
+
+    for 2 .. $N {
+        # duplicate the sequence
+        @sequence.push: | @sequence.reverse;
+
+        # add the zero or one to the elements
+        for 0 ..^ @sequence.elems -> $mirroring {
+            @sequence[ $mirroring ] = ( $mirroring >= @sequence.elems / 2 ?? '1' !! '0' ) ~ @sequence[ $mirroring ];
+        }
+
+    }
+
+    @sequence.map( *.parse-base( 2 ) ).say;
+}
-- 
cgit 


From 69769e0caa51662233bcfb8ac1e0311b83a2918f Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Thu, 23 Jul 2020 16:53:50 +0200
Subject: Blog references

---
 challenge-070/luca-ferrari/blog-1,txt | 1 +
 challenge-070/luca-ferrari/blog-2.txt | 1 +
 2 files changed, 2 insertions(+)
 create mode 100644 challenge-070/luca-ferrari/blog-1,txt
 create mode 100644 challenge-070/luca-ferrari/blog-2.txt

diff --git a/challenge-070/luca-ferrari/blog-1,txt b/challenge-070/luca-ferrari/blog-1,txt
new file mode 100644
index 0000000000..af39af813a
--- /dev/null
+++ b/challenge-070/luca-ferrari/blog-1,txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2020/07/23/PerlWeeklyChallenge70.html#task1
\ No newline at end of file
diff --git a/challenge-070/luca-ferrari/blog-2.txt b/challenge-070/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..b2cf696624
--- /dev/null
+++ b/challenge-070/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2020/07/23/PerlWeeklyChallenge70.html#task2
-- 
cgit