[오일러프로젝트] 29번문제

2 ≤ a ≤ 5 이고 2 ≤ b ≤ 5인 두 정수 a, b로 만들 수 있는 a^b의 모든 조합을 구하면 다음과 같습니다.

2²=4,  2³=8,  2⁴=16,  2⁵=32
3²=9,  3³=27,  3⁴=81,  3⁵=243
4²=16,  4³=64,  4⁴=256,  4⁵=1024
5²=25,  5³=125,  5⁴=625,  5⁵=3125

여기서 중복된 것을 빼고 크기 순으로 나열하면 아래와 같은 15개의 숫자가 됩니다.

4,  8,  9,  16,  25,  27,  32,  64,  81,  125,  243,  256,  625,  1024,  3125

그러면, 2 ≤ a ≤ 100 이고 2 ≤ b ≤ 100인 a, b를 가지고 만들 수 있는 a^b는 중복을 제외하면 모두 몇 개입니까?


문제는 평이한 수준이나
perld에서 Set 사용을 위한 cpan 이용
그리고 큰 수 표현을 위한 BigInt를 사용하면서 좀 헤맸음..

 

Python

	r=set()
	for a in range(2,101):
	for b in range(2,101):
	r.add(a**b)
	print(r, len(r))

view raw 29.py hosted with ❤ by GitHub

Ruby

	require 'set'
	r=Set.new
	(2..100).each do |a|
	(2..100).each do |b|
	r.add(a**b)
	end
	end
	puts r.length

view raw 29.rb hosted with ❤ by GitHub

Perl

	use strict;
	use warnings;
	use Set::Light;
	use Math::BigInt;
	my $r = Set::Light->new();
	foreach my $a ((2..100)) {
	foreach my $b ((2..100)) {
	my $temp = Math::BigInt->new($a);
	$temp->bpow($b);
	print "$temp \n";
	$r->insert($temp);
	}
	}
	my $size = $r->size();
	print "$size";

view raw 29.pl hosted with ❤ by GitHub