ash: 069-2 using Raku’s sequences(!)

2 files changed, 28 insertions, 0 deletions

diff --git a/challenge-069/ash/raku/ch-2-seq-func.raku b/challenge-069/ash/raku/ch-2-seq-func.raku
new file mode 100644
index 0000000000..37a9d799ff
--- /dev/null
+++ b/challenge-069/ash/raku/ch-2-seq-func.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/env raku
+
+# Task 2 from
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-069/
+
+# Comments: https://andrewshitov.com/2020/07/15/use-sequences-in-raku/
+
+sub S($n) {
+    state @s = '', {
+        $^a ~ 0 ~ $^a.flip.trans('01' => '10')
+    } ... *;
+
+    @s[$n]
+}
+
+say S($_) for ^9;
diff --git a/challenge-069/ash/raku/ch-2-seq.raku b/challenge-069/ash/raku/ch-2-seq.raku
new file mode 100644
index 0000000000..13913b783a
--- /dev/null
+++ b/challenge-069/ash/raku/ch-2-seq.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+
+# Task 2 from
+# https://perlweeklychallenge.org/blog/perl-weekly-challenge-069/
+
+# Comments: https://andrewshitov.com/2020/07/15/use-sequences-in-raku/
+
+my @s = '', {
+    $^a ~ 0 ~ $^a.flip.trans('01' => '10')
+} ... *;
+
+.say for @s[^9];