Я абсолютно ненавиджу цифру 1. Отже, мені потрібна ваша допомога для перетворення чисел у їх "належні форми".

Числа в належній формі ніколи не мають двох 1s підряд. 101це добре, але 110огидно.

Щоб конвертувати, просто пропустіть усі неправильні номери та рахуйте нормально. Наприклад...

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

і так далі.

Ваша програма повинна взяти ціле число і вивести його у належній формі. Це код-гольф , тому найкоротший код у байтах виграє.

Бурлеск , 10 байт

{11 ~ [n!} FO

Старіші версії:

ro{11~[n!}f[

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

Perl 5 , 34 байт

Замикання лічильника та зміна випадкових подвійних.

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

Bash + GNU утиліти, 36

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

Pyth, 13 11 байт

e.f!}`hT`ZQ

Збережено 2 байти завдяки @FryAmTheEggman.

Демонстраційні демонстраційні та тестові приклади.

13-байтна версія

e.f!}"11"+ZkQ

JavaScript, 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по порядку, і приймає nth. Повторна помилка нульової індексації скасовується із включенням 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до тих пір, поки квота nчисел без 11буде виконана.

Функція має однакову довжину через необхідні поправки один за одним.

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)

Зараз це досить жорстока сила.

Perl 5, 47 байт

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

JavaScript (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')))

Haskell, 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

МУМПА, 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')