Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 14 lines (11 sloc) 0.253 kB
#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use Math::Prime::TiedArray;
tie my @primes, "Math::Prime::TiedArray", precompute => 2_000_000;
my $sum = 0;
while ( ( my $prime = shift @primes ) < 2_000_000 ) {
$sum += $prime;
}
say $sum;
Jump to Line
Something went wrong with that request. Please try again.