Submission #197715

---

Source Code Expand

use strict;
use warnings;

$| = 1;

sub make_prime_list {
    my $number = shift;
    my @prime;
    my $ptr = 0;
    
    $prime[$ptr++] = 2;
    $prime[$ptr++] = 3;

    for (my $no = 5; $no < $number; $no += 2) {
        my $flag = 0;
        for (my $i = 1; $prime[$i]**2 <= $no; $i++) {
            if ($no % $prime[$i] == 0) {
                $flag = 1;
                last;
            }
        }
        $prime[$ptr++] = $no if (!$flag);
    }
    @prime;
}


my @prime = make_prime_list(1000);
my $ans = 1;
my $count = 1;

while (scalar(@prime) > 0) {
    my @tmp = ();
    for (reverse @prime) {
        next if $_**$count > 1000;
        print "? ", $_**$count, "\n";
        chomp(my $judge = <>);
        if ($judge eq 'Y') {
            $ans *= $_;
            last if $ans > 500;
            push @tmp, $_;
        }
    }
    @prime = @tmp;
    $count++;
}
print "! $ans\n";

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result