010.pl (350B)
1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 6 my $nth_prime = 2_000_000; 7 my $sum = 2; 8 9 for (my $i = 3; $i < $nth_prime; $i += 2) { 10 if (is_prime_over_2($i)) { 11 $sum += $i; 12 } 13 } 14 15 print "$sum\n"; 16 17 sub is_prime_over_2 { 18 my $n = shift; 19 my $mid = sqrt($n); 20 for (my $i = 3; $i <= $mid; $i += 2) { 21 return 0 if ($n % $i == 0); 22 } 23 return 1; 24 }