2013년 09월 – 페이지 7

2013/09/13

Perl

10보다 작은 자연수 중에서 3 또는 5의 배수는 3, 5, 6, 9 이고, 이것을 모두 더하면 23입니다.
1000보다 작은 자연수 중에서 3 또는 5의 배수를 모두 더하면 얼마일까요?

1부터 999까지의 자연수 중 3 또는 5의 배수를 구하자.
아주 쉬운 문제.

#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;

my $r = 0;
foreach (1..999) {
	if ($_%3 == 0 or $_%5 == 0) {
		$r += $_;
	}
}

say $r;

#!/usr/bin/env perl

use 5.010;

use strict;

use warnings;

my $r = 0;

foreach (1..999) {

if ($_%3 == 0 or $_%5 == 0) {

$r += $_;

}

say $r;

프로젝트 오일러는 간단히 말해 수학적인 문제들을 프로그래밍으로 해결해 나가는 퀴즈 프로젝트이다.
이 포스트를 작성하는 2013년 9월 13일 현재까지 총 435문제가 등록되어 있으며 문제의 개수는 앞으로 계속해서 늘어날 예정이다.

사실 영어로 기술된 수학적인 문제들을 해석하는 것이 번거로워 잘 손대지 않고 있었는데, 한국어로 잘 번역된 사이트가 있는 것을 발견하고 풀어보기로 마음먹었다.

모든 문제는 perl로 풀고, 이용 가능한 수학 모듈이 있으면 활용하여 문제를 풀기로 했다.
(perl을 잘 몰라 공부하며 풀 생각이다.)
또한, 풀이 방법이 아닌 단순히 ‘펄을 이용한 문제 해결’에 집중할 예정이다.

따라서 알고리즘적인 성능 향상보다 이미 존재하는 모듈을 사용하여 해결하므로, 다소 맥빠지는 문제풀이가 될 수는 있겠다…

blog.update.sh