Merge pull request #1309 from Scimon/master

I suddenly realise I was not doing it back to front.

1 files changed, 9 insertions, 1 deletions

diff --git a/challenge-049/simon-proctor/raku/ch-1.p6 b/challenge-049/simon-proctor/raku/ch-1.p6
index 82a55473f7..a53c9166fb 100644
--- a/challenge-049/simon-proctor/raku/ch-1.p6
+++ b/challenge-049/simon-proctor/raku/ch-1.p6
@@ -6,5 +6,13 @@ use v6.d;
 sub MAIN(
     UInt $x #= Number to look for multiple of
 ) {
-    ( $x, * + $x...* ).hyper.first( { $_ ~~ m!^ <[10]>+ $! } ).say;
+    my @seq = lazy gather {
+        my $current = 1;
+        loop {
+            take $current.base(2);
+            $current++;
+        }
+    }
+
+    @seq.first( * %% $x ).say;
 }