Select Code to Download

# Project Euler, problem 3 (Largest prime factor)

use Math::Prime::Util qw/factor/;
use bigint;  # Only necessary for 32-bit machines.
say 0+(factor(600851475143))[-1]

perl -Mbigint -E "use Math::Prime::Util::GMP qw(factor); say 0+(factor
+(600851475143600851475143600851475143))[
-1]"
...
# 60085147514360085147514360085147514300851475143008514751430085147514
+30085147514300851475143

834789126661809633627036527926883609177018602883402075695455196267