diff options
Diffstat (limited to '3.pl')
-rwxr-xr-x | 3.pl | 16 |
1 files changed, 0 insertions, 16 deletions
@@ -1,16 +0,0 @@ -#!/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"; |