From 0624537a1f36a9c9fdab487b6a47c23b9a54e421 Mon Sep 17 00:00:00 2001
From: Andrew Shitov <andy@shitov.ru>
Date: Mon, 20 Jul 2020 08:30:04 +0200
Subject: ash 070-2

---
 challenge-070/ash/raku/ch-2.raku | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 challenge-070/ash/raku/ch-2.raku

diff --git a/challenge-070/ash/raku/ch-2.raku b/challenge-070/ash/raku/ch-2.raku
new file mode 100644
index 0000000000..9da4e74097
--- /dev/null
+++ b/challenge-070/ash/raku/ch-2.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+
+# Task 2 from
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-070/
+
+# Comments: https://andrewshitov.com/2020/07/20/gray-code-in-raku/
+
+# Usage:
+# $ raku ch-2.raku 4
+
+put map {$_ +^ ($_ div 2)}, ^2**@*ARGS[0];
+
+# Output for N = 4 (4 bits)
+# 0 1 3 2 6 7 5 4 12 13 15 14 10 11 9 8
-- 
cgit 


From d5bb11e77752f5cd7dda3b0ec1e42032d91ee978 Mon Sep 17 00:00:00 2001
From: Andrew Shitov <andy@shitov.ru>
Date: Mon, 20 Jul 2020 08:53:26 +0200
Subject: ash 070-1

---
 challenge-070/ash/raku/ch-1.raku | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 challenge-070/ash/raku/ch-1.raku

diff --git a/challenge-070/ash/raku/ch-1.raku b/challenge-070/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..3e4ba2f7f1
--- /dev/null
+++ b/challenge-070/ash/raku/ch-1.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+
+# Task 1 from
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-070/
+
+# Comments: https://andrewshitov.com/2020/07/20/raku-challenge-week-70-issue-1/
+
+my $s = 'perlandraku';
+my $c = 3;
+my $o = 4;
+
+my @s = $s.comb;
+for 1..$c -> $x {
+    my $y = ($x + $o) % $s.chars;
+    @s[$x, $y] = @s[$y, $x];
+}
+$s = @s.join('');
+
+say $s;
+
+# Output:
+# pndraerlaku
-- 
cgit 


From 2aab8aeff815338771651ed91a730ce0cdc2cced Mon Sep 17 00:00:00 2001
From: Andrew Shitov <andy@shitov.ru>
Date: Mon, 20 Jul 2020 10:36:28 +0200
Subject: Blog links

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

diff --git a/challenge-070/ash/blog.txt b/challenge-070/ash/blog.txt
new file mode 100644
index 0000000000..21cda69c36
--- /dev/null
+++ b/challenge-070/ash/blog.txt
@@ -0,0 +1 @@
+https://andrewshitov.com/2020/07/20/raku-challenge-week-70-issue-1/
diff --git a/challenge-070/ash/blog1.txt b/challenge-070/ash/blog1.txt
new file mode 100644
index 0000000000..21cda69c36
--- /dev/null
+++ b/challenge-070/ash/blog1.txt
@@ -0,0 +1 @@
+https://andrewshitov.com/2020/07/20/raku-challenge-week-70-issue-1/
-- 
cgit