summaryrefslogtreecommitdiffstats
path: root/003.pl
blob: 7fbf7ad13328838ec613fd86f58a613aa2705cf0 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl
use strict;
use warnings;

my $num = 317584931803;
my $test = 3;
while (1) {
    if ($num % $test) {
        $test += 2;
    }
    else {
        $num /= $test;
    }
    last if $test > sqrt $num;
}
print "$num\n";