나는 숫자를 절대적으로 싫어한다 1. 따라서 숫자를 "적절한 형식"으로 변환하는 데 도움이 필요합니다.

올바른 형식의 숫자 1는 행에 두 개의 숫자를 갖지 않습니다 . 101괜찮지 만 110끔찍합니다.

변환하려면 모든 부적절한 숫자를 건너 뛰고 정상적으로 계산하십시오. 예를 들어 ...

1 -> 1
2 -> 2
...
10 -> 10
11 -> 12
12 -> 13
...
108 -> 109
109 -> 120
110 -> 121
111 -> 122

등등.

프로그램은 정수를 가져 와서 올바른 형식으로 출력해야합니다. 이것은 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다.

익살 연극 , 10 바이트

{11 ~ [n!} FO

이전 버전 :

ro{11~[n!}f[

ro{Sh"11"~=n!}f[

펄 5 , 34 바이트

카운터를 루핑하고 가끔 더블 1을 변경합니다.

map{$i++;$i=~s/11/12/}1..pop;say$i

테스트

$ perl -M5.012 -e 'map{$i++;$i=~s/11/12/}1..pop;say$i' 111
$ 122

배쉬 + GNU 유틸리티, 36

seq $1$1|grep -v 11|sed -n "$1{p;q}"

Pyth, 13 11 바이트

e.f!}`hT`ZQ

@FryAmTheEggman 덕분에 2 바이트를 절약했습니다.

라이브 데모 및 테스트 사례.

13 바이트 버전

e.f!}"11"+ZkQ

자바 스크립트, 53 바이트

n=>[...Array(n*2).keys()].filter(a=>!/11/.test(a))[n]

대안 (이해 길이를 동일하게 사용) :

n=>[for(i of Array(n*2).keys())if(!/11/.test(i))i][n]

파이썬 2, 50

lambda n:[i for i in range(n*2)if'11'not in`i`][n]

포함하지 않은 숫자 11를 순서대로 나열하고 n하나를 취하는 익명 함수입니다 . 0 인덱싱의 일대일 오류 0는 목록에 포함되어 취소 됩니다.

이론적으로 이것은 충분히 높은 숫자에 대해서는 실패 f(n)>2*n하지만 n적어도이 때까지는 일어나지 않아야합니다 10**50.

51 바이트 :

n=input();i=0
while n:i+=1;n-='11'not in`i`
print i

없는 숫자 i의 할당량 이 충족 될 때 까지 숫자를 계산합니다 .n11

한 번에 한 번의 수정이 필요하기 때문에 기능의 길이는 같습니다.

f=lambda n,i=0:n+1and f(n-('11'not in`i`),i+1)or~-i

파이썬 3 74

여전히 약간의 골프가 필요합니다.

n=int(input())
c=0
for x in ' '*n:
 c+=1
 while'11'in str(c):c+=1
print(c)

지금은 꽤 무력한 힘입니다.

펄 5, 47 바이트

@_[$_]=++$i!~/11/?$i:redo for 1..<>;print$_[-1]

자바 스크립트 (ES6) 41

익명의 기능으로

n=>eval('for(i=0;/11/.test(++i)||n--;)i')

참고 : 가장 간단한 방법은 44입니다.

n=>{for(i=0;/11/.test(i)||n--;i++);return i}

아래 스 니펫을 테스트하십시오.

f=n=>eval('for(i=0;/11/.test(++i)||n--;)i')

alert(f(+prompt('Enter number')))

하스켈, 51 바이트

([x|x<-[0..],notElem('1','1')$zip=<<tail$show x]!!)

사용 예 : ([x|x<-[0..],notElem('1','1')$zip=<<tail$show x]!!) 110-> 121.

작동 방식 :

[x|x<-[0..]                                   ]    -- take all x starting with 0
           ,                                       -- where
                   ('1','1')                       -- the pair of two chars '1'
            notElem                                -- is not part of
                             zip=<<tail            -- the list of pairs of neighbor elements of
                                        show x     -- the string representation of x
                                               !!  -- take nth element, where n is the parameter

MUMPS, 37 바이트

t(i) f j=1:1 s:j'[11 k=k+1 q:k=i
    q j

꽤 직설적 인. 여기에 전용 "흥미로운"것은 구조입니다 j'[11- '[즉 있도록 "가 포함되어 있지 않습니다"연산자 "abc"'["ab"거짓이고 "abc"'["cd"사실이다. 두 피연산자가 모두 j'[11숫자 임에도 불구하고 MUMPS는 그대로 유지됩니다. 두 피연산자를 모두 문자열로 자동 강제 변환하고 수명을 다할 것입니다. 만세!

(우연히 프로그램을 종료하지 않아도 괜찮다면 35 바이트로 줄일 수 있습니다. t2(i) f j=1:1 s:j'[11 k=k+1 w:k=i j)

PHP, 43 바이트

while(preg_match('/11/',$i)){$i++;}print$i;

루비, 24 바이트

작업을 잘못 해석하여 나중에 다시 작업합니다!

$><<gets.gsub('11','12')