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";
|