challenge-049/arne-sommer/raku/smallmull


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#! /usr/bin/env raku

unit sub MAIN (Int $number, :$verbose);

for 1 .. Inf -> $binary
{
  my $current = $binary.base(2);
  say ": Checking $current" if $verbose;

  if ($current > $number && $current %% $number)
  {
    say "Match: $current";
    exit;
  }
}