넥슨 입사문제 중에서

어떤 자연수 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개의 풀이가 있습니다.

n.seq=1:4999
generate=function(n){
  len=nchar(n)
  sub.n=vector()
  for(i in seq(len)) sub.n[i]=as.integer(substr(n, i, i))  
  return(n+sum(sub.n))
}

generator=sapply(n.seq , generate)
sum(subset(n.seq, !(n.seq %in% generator)))

R로 짜봤습니다 좋은 문제 감사합니다

※ 상대에게 상처를 주기보다 서로에게 도움이 될 수 있는 댓글을 달아 주세요.
n = c(1:4999)
a = sapply(n, function(x){
  tmp = x; tmp1 = c(tmp)
  for(i in 1:nchar(tmp)) tmp1[i+1] = as.integer(substr(tmp, i, i)); tmp2 = sum(tmp1)
  return(tmp2)
})

sum(subset(n, !(n %in% a)))

R에서 작성하였습니다. 감사합니다.

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

풀이 작성

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

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


언어별 풀이 현황
전 체 x 292
erlang x 1
haskell x 2
clojure x 2
java x 54
scala x 8
python x 93
delphi x 3
javascript x 4
r x 2
perl x 1
cpp x 44
기 타 x 46
matlab x 4
cs x 11
lisp x 2
objectivec x 3
php x 6
ruby x 6