10 이하의 소수를 모두 더하면 2 + 3 + 5 + 7 = 17 이 됩니다.
이백만(2,000,000) 이하 소수의 합은 얼마입니까?
여러분 모듈 쓰세요. 깡패에요 깡패.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#!/usr/bin/env perl use 5.010; use strict; use warnings; use Math::Prime::Util ':all'; my $r = 0; my @p = @{primes(2000000)}; foreach (@p) { $r += $_; } say $r; |