hamming_numbers_polyglot.pl6

my @ARGV = do { sub eval { chomp &EVAL(@_) }; eval( ("0" and q|@*ARGS| or q|@ARGV|) ) };

for (1..@ARGV[0]) {
  my $i = $_;
  while ($i != 1) {
    last if $i == 0;
    if (sprintf("%d", $i / 2) == $i / 2) {
      $i /= 2;
      next;
    }
    if (sprintf("%d", $i / 3) == $i / 3) {
      $i /= 3;
      next;
    }
    if (sprintf("%d", $i / 5) == $i / 5) {
      $i /= 5;
      next;
    }
    last;
  }
  my $is = '';
  if ($i != 1) {
    $is = ' not';
  }
  printf "%s is%s hamming\n", $_, $is;
}

# vim:syntax=perl