글 검색 결과 - 프로그래밍 (총 1개)
Attribution/Share Alike 2.0 license블로깅을 하다가 철지난 넥슨 입사문제를 발견,
심심해서 perl로 짜봤다.
문제는 다음과 같다.
어떤 자연수 n이 있을 때, d(n)을 n의 각 자릿수 숫자들과 n 자신을 더한 숫자라고 정의하자.
예를 들어 d(91) = 9 + 1 + 91 = 101
이 때, n을 d(n)의 제네레이터(generator)라고 한다. 위의 예에서 91은 101의 제네레이터이다.
어떤 숫자들은 하나 이상의 제네레이터를 가지고 있는데, 101의 제네레이터는 91 뿐 아니라 100도 있다.
그런데 반대로, 제네레이터가 없는 숫자들도 있으며, 이런 숫자를 인도의 수학자 Kaprekar가
셀프 넘버(self-number)라 이름 붙였다.
예를 들어 1,3,5,7,9,20,31 은 셀프 넘버 들이다.
1 이상이고 5000 보다 작은 모든 셀프 넘버들의 합을 구하라.
그리고 perl로 짠 코드
#!/usr/bin/perl -w
use strict;
use warnings;
use List::Util qw(sum);
my $limit = 5000;
my $max_num = $limit - 1;
my %hash_gen;
for (1..$max_num) {
$_ = gen($_);
if ( $_ < $limit ) {
$hash_gen{$_} = 1;
}
}
$_ = $max_num*$limit/2 - sum(keys(%hash_gen));
print "result : $_\n";
sub gen
{
$_ = shift @_;
$_ = sum(split(//, $_), $_);
}
use strict;
use warnings;
use List::Util qw(sum);
my $limit = 5000;
my $max_num = $limit - 1;
my %hash_gen;
for (1..$max_num) {
$_ = gen($_);
if ( $_ < $limit ) {
$hash_gen{$_} = 1;
}
}
$_ = $max_num*$limit/2 - sum(keys(%hash_gen));
print "result : $_\n";
sub gen
{
$_ = shift @_;
$_ = sum(split(//, $_), $_);
}
RH 7.3 P-III 1Ghz에서의 실행 결과...
[hoelog]$ time ./nex.pl
result : 1227365
real 0m0.172s
user 0m0.140s
sys 0m0.040s
result : 1227365
real 0m0.172s
user 0m0.140s
sys 0m0.040s
