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; |