- Added solutions by Roger Bell_West.

2 files changed, 88 insertions, 0 deletions

diff --git a/challenge-069/roger-bell-west/perl/ch-2.pl b/challenge-069/roger-bell-west/perl/ch-2.pl
new file mode 100755
index 0000000000..a254375183
--- /dev/null
+++ b/challenge-069/roger-bell-west/perl/ch-2.pl
@@ -0,0 +1,47 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use List::Util qw(min);
+
+my $s=30;
+my $l=2**$s-1;
+
+my $pos=1;
+my $seq=4;
+while (1) {
+  my $p1=$seq-1;
+  my $n0=min($p1-$pos,$l-$pos);
+  print '0' x $n0;
+  $pos+=$n0;
+  if ($p1<=$l) {
+    print '1';
+    $pos++;
+  }
+  if ($pos>$l) {
+    last;
+  }
+  $seq=nextseq($seq);
+}
+print "\n";
+
+sub nextseq {
+  my $prev=shift;
+  my $c=$prev;
+  while (1) {
+    $c++;
+    my $t=$c-1;
+    while (1) {
+      my $r=int($t/2);
+      if ($t % 2 != 0) {
+        last;
+      }
+      $t=$r;
+    }
+    if ($t % 4 == 3) {
+      last;
+    }
+  }
+  return $c;
+}
diff --git a/challenge-069/roger-bell-west/raku/ch-2.p6 b/challenge-069/roger-bell-west/raku/ch-2.p6
new file mode 100755
index 0000000000..65a1befc84
--- /dev/null
+++ b/challenge-069/roger-bell-west/raku/ch-2.p6
@@ -0,0 +1,41 @@
+#! /usr/bin/perl6
+
+my $s=30;
+my $l=2**$s-1;
+
+my $pos=1;
+my $seq=4;
+while (1) {
+  my $p1=$seq-1;
+  my $n0=min($p1-$pos,$l-$pos);
+  print '0' x $n0;
+  $pos+=$n0;
+  if ($p1 <= $l) {
+    print '1';
+    $pos++;
+  }
+  if ($pos > $l) {
+    last;
+  }
+  $seq=nextseq($seq);
+}
+print "\n";
+
+sub nextseq ($prev) {
+  my $c=$prev;
+  while (1) {
+    $c++;
+    my $t=$c-1;
+    while (1) {
+      my $r=truncate($t/2);
+      if ($t % 2 != 0) {
+        last;
+      }
+      $t=$r;
+    }
+    if ($t % 4 == 3) {
+      last;
+    }
+  }
+  return $c;
+}