넥슨 입사문제 중에서

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

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

2개의 풀이가 있습니다.

Clojure 코드입니다.

(let [digits         (fn [n] (map #(Character/getNumericValue %) (str n)))
      generate       (fn [n] (apply + n (digits n)))
      generated-set  (set (map generate (range 1 5001)))
      self-numbers   (filter (complement generated-set) (range 1 5001))]
  (reduce + self-numbers))

설명

  1. digits: 수 n의 각 자리 수를 구하는 함수

  2. generate: 제너레이터 함수

  3. generated-set: 1 ~ 5000 의 리스트을 제너레이터로 하여 생성한 값의 집합

  4. self-numbers: 1 ~ 5000 의 리스트에서 generated-set 의 값들을 제외한 리스트

  5. (reduce + self-numbers): self-numbers의 합계

출력값: 1227365

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

문법만 lisp 이네요 ㅠ

(defun generator (n)
    (let
        (
            (sum n)
            (num-list (coerce (princ-to-string n) 'list))
        )
        (dolist (num num-list)
            (setf sum (+ sum (digit-char-p num)))
        )
        sum
    )
)

(let*
    (
        (generatable-set (loop for n from 1 to 5000 collect (generator n)))
        (selfnumber-set (loop for n from 1 to 5000 when (not (find n generatable-set)) collect n))

        (sum 0)
    )
    (mapcar
        (lambda (i)
            (when (<= i 5000)
                (setf sum (+ sum i))
            )
        )
        selfnumber-set
    )
    sum
)


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

풀이 작성

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

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


언어별 풀이 현황
전 체 x 339
python x 109
기 타 x 50
java x 66
matlab x 5
scala x 8
cs x 14
cpp x 54
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