From bf3973657c634d2a48c925e9ce53a37fd619991a Mon Sep 17 00:00:00 2001
From: Mark Anderson <mark@frontrangerunner.com>
Date: Sun, 19 Jul 2020 10:05:05 -0600
Subject: Challenge 69 Solutions

---
 challenge-069/mark-anderson/raku/ch-1.raku | 8 ++++++++
 challenge-069/mark-anderson/raku/ch-2.raku | 7 +++++++
 2 files changed, 15 insertions(+)
 create mode 100644 challenge-069/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-069/mark-anderson/raku/ch-2.raku

diff --git a/challenge-069/mark-anderson/raku/ch-1.raku b/challenge-069/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..dae8939cdb
--- /dev/null
+++ b/challenge-069/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,8 @@
+#!/usr/bin/env raku
+
+sub MAIN(UInt $A, UInt $B where 1 <= $A <= $B <= 10**6) {
+    for $A..$B -> $num {
+        next if $num ~~ /<-[01689]>/;
+        say $num if $num.flip.trans("69" => "96") eq $num;
+    }
+}
diff --git a/challenge-069/mark-anderson/raku/ch-2.raku b/challenge-069/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..51fd2355d8
--- /dev/null
+++ b/challenge-069/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,7 @@
+#!/usr/bin/env raku
+
+my $SN = q{};
+
+$SN ~= "0" ~ $SN.flip.trans("01" => "10") for ^30;
+    
+say $SN;
-- 
cgit