minor changes

1 files changed, 3 insertions, 3 deletions

diff --git a/challenge-049/kevin-colyer/raku/ch-1.p6 b/challenge-049/kevin-colyer/raku/ch-1.p6
index 8acb119abb..2f8c7b2822 100644
--- a/challenge-049/kevin-colyer/raku/ch-1.p6
+++ b/challenge-049/kevin-colyer/raku/ch-1.p6
@@ -8,11 +8,11 @@
 # For given number 55, the smallest multiple is 110 consisting of 
 # digits 0 and 1.
 
-
+my Int $z10;
 sub MAIN(Int $number where * > 1) {
-    for 1..Inf -> $zero-ones {
+    for 1..Inf -> Int $zero-ones {
         # calculate all numbers with 0 or 1's in them (i.e. binary!)
-        my $z10=$zero-ones.base(2);
+        $z10=+$zero-ones.base(2);
         # use the binary string as a decimal value in trial division
         if $z10 %% $number {
             say "Smallest multiple of $number that consists of 0's and 1's is {$z10 / $number} gives {$z10} (found in $zero-ones iterations)";