1 ~ 10 사이의 어떤 수로도 나누어 떨어지는 가장 작은 수는 2520입니다.
그러면 1 ~ 20 사이의 어떤 수로도 나누어 떨어지는 가장 작은 수는 얼마입니까?
자세한 설명은 생략.
소수를 각각 구해서 이용하지 않고, 모듈을 사용함.
앞으로 자주 사용하게 될 모듈.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
#!/usr/bin/env perl use 5.010; use strict; use warnings; use Math::Prime::Util ':all'; my $r = 1; my @p = @{primes( 20 )}; foreach (@p) { for (my $i = 1; $_**$i <= 20; $i++) { $r *= $_; } } say $r; |