넥슨 입사문제 중에서

어떤 자연수 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 보다 작은 모든 셀프 넘버들의 합을 구하라.

※ 상대에게 상처를 주기보다 서로에게 도움이 될 수 있는 댓글을 달아 주세요.

3개의 풀이가 있습니다.

어제 오늘 일이 잘 안되서 빈둥 거리다 보니.. 하나 더 풀어 봤습니다. ㅡ.ㅡ;
어제도 오랫만에 알고리즘 책을 보다가 잠들었는데, 머리가 아픕니다 ㅠ.ㅠ
그래도 재미있네요.

program Sample;

{$APPTYPE CONSOLE}

function GetGeneratorResult(AIndex:integer):integer;
begin
  Result := AIndex;

  while AIndex > 0 do begin
    Result := Result + AIndex mod 10;
    AIndex := AIndex div 10;
  end;
end;

var
  Loop, Index, Sum : integer;
  HasGenerator : array [1..5000] of boolean;

begin
  FillChar(HasGenerator[1], SizeOf(HasGenerator), 0);

  Sum := 0;
  for Loop := Low(HasGenerator) to High(HasGenerator) do begin
    Index := GetGeneratorResult(Loop);

    // 하나라도 제너레이터가 발견되었는 가?
    if Index <= High(HasGenerator) then HasGenerator[Index] := true;

    // 제너레이터의 결과는 현재 Loop보다 항상 크기 때문에.
    // 아직까지 발견되지 않았으면 계속 없다.
    if not HasGenerator[Loop] then Sum := Sum + Loop;
  end;

  WriteLn('셀프 넘버들의 함 = ', Sum);
  WriteLn;

  Write('Press any key...');
  ReadLn;
end.
델파이 멋져부려요~ ^^ - 오랑캐꽃, 2012/01/19 17:19 M D
델파이 코드는 보면 볼수록 깔끔하군요,, 브레이스 없는것이 파이썬과도 비슷하구요 ^^ 좋은 코드 감사합니다. - 길가의풀, 2012/01/19 21:37 M D
※ 상대에게 상처를 주기보다 서로에게 도움이 될 수 있는 댓글을 달아 주세요.

Delphi

var
  boolArrary: Array of Boolean;
  n,nLength,dn,divNumber,sumSelfNum:Integer;
begin
  SetLength(boolArrary,5000); 
  try
    { TODO -oUser -cConsole Main : Insert code here }
    dn := 0;
    for n := 1 to 5000 do
    begin
      for nLength := 1 to Length(IntToStr(n)) do
      begin
        divNumber := StrToInt(Copy(IntToStr(n),nLength,1)); 
        dn := dn + divNumber;
        if nLength = Length(IntToStr(n)) then
          dn := dn + n; 
      end;
      if dn <= 5000 then
        boolArrary[dn] := True; 
      dn := 0;
    end;
    sumSelfNum := 0;
    for n := 1 to 5000 do     
      if not (boolArrary[n]) then
        sumSelfNum := sumSelfNum + n;
    Writeln('1 ~ 5000 사이의 self number 합');
    Writeln('SumSelfNum = ' + IntToStr(sumSelfNum));
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
※ 상대에게 상처를 주기보다 서로에게 도움이 될 수 있는 댓글을 달아 주세요.

Delphi 2010

function SelfNumber(N: Integer): Integer;
var
  isSelfNo: array of boolean;
  sumOfSelfNo, k, _d, i: Integer;

  function d(k: Integer): Integer;
  var
    res: Integer;
  begin
    res := k;
    while (k <> 0) do
    begin
      Inc(res, k mod 10);
      k := k div 10;
    end;
    result := res;
  end;

begin
  SetLength(isSelfNo, N+1);
  for i := 0 to N  do // 초기화
    isSelfNo[i] := false;

  sumOfSelfNo := 0;
  k := 1;
  while (k <= N) do
  begin
    if not isSelfNo[k] then
      Inc(sumOfSelfNo, k);
    _d := d(k);
    if (_d <= N) then
      isSelfNo[_d] := true;
    Inc(k);
  end;
  result := sumOfSelfNo;
end;

※ 상대에게 상처를 주기보다 서로에게 도움이 될 수 있는 댓글을 달아 주세요.

풀이 작성

※ 풀이작성 안내
  • 본문에 코드를 삽입할 경우 에디터 우측 상단의 "코드삽입" 버튼을 이용 해 주세요.
  • 마크다운 문법으로 본문을 작성 해 주세요.
  • 풀이를 읽는 사람들을 위하여 풀이에 대한 설명도 부탁드려요. (아이디어나 사용한 알고리즘 또는 참고한 자료등)
  • 작성한 풀이는 다른 사람(빨간띠 이상)에 의해서 내용이 개선될 수 있습니다.
목록으로
코딩도장

코딩도장은 프로그래밍 문제풀이를 통해서 코딩 실력을 수련(Practice)하는 곳입니다.


언어별 풀이 현황
전 체 x 323
python x 106
기 타 x 47
java x 59
matlab x 5
scala x 8
cs x 13
cpp x 52
php x 6
delphi x 3
ruby x 6
haskell x 2
lisp x 2
javascript x 4
r x 2
clojure x 2
erlang x 1
perl x 1
objectivec x 4