Tôi hoàn toàn ghét chữ số 1. Vì vậy, tôi cần sự giúp đỡ của bạn để chuyển đổi số thành "hình thức phù hợp" của họ.

Các số ở dạng thích hợp không bao giờ có hai 1s liên tiếp. 101không sao, nhưng 110gớm ghiếc

Để chuyển đổi, chỉ cần bỏ qua tất cả các số không chính xác và đếm bình thường. Ví dụ...

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

vân vân

Chương trình của bạn nên lấy một số nguyên và xuất nó ở dạng thích hợp. Đây là mã golf , vì vậy mã ngắn nhất tính bằng byte thắng.

Burlesque , 10 byte

{11 ~ [n!} BÓNG

Các phiên bản cũ hơn:

ro{11~[n!}f[

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

Perl 5 , 34 byte

Vòng lặp một bộ đếm và thay đổi đôi khi một.

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

Kiểm tra

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

Đồ dùng Bash + GNU, 36

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

Bình thường, 13 11 byte

e.f!}`hT`ZQ

Đã lưu 2 byte nhờ @FryAmTheEggman.

Bản demo và trường hợp thử nghiệm trực tiếp.

Phiên bản 13 byte

e.f!}"11"+ZkQ

JavaScript, 53 byte

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

Thay thế (sử dụng hiểu, cùng độ dài):

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

Con trăn 2, 50

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

Một hàm ẩn danh liệt kê các số không chứa 11theo thứ tự và lấy số nthứ nhất. Lỗi off-by-one của zero-index hủy bỏ với sự bao gồm 0trong danh sách.

Về lý thuyết, điều này sẽ thất bại với số lượng đủ cao ở đâu f(n)>2*n, nhưng điều này không nên xảy ra cho đến khi nít nhất là 10**50.

51 byte:

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

Đếm số icho đến khi hạn ngạch của nsố mà không 11được đáp ứng.

Một hàm có cùng độ dài vì cần chỉnh sửa từng cái một.

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

Con trăn 3 74

Vẫn cần một chút chơi golf.

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

Đó là lực lượng vũ phu ngay bây giờ.

Perl 5, 47 byte

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

JavaScript (ES6) 41

Là một chức năng ẩn danh

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

Lưu ý: cách đơn giản nhất sẽ là 44:

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

Kiểm tra chạy đoạn mã dưới đây.

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

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

Haskell, 51 byte

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

Ví dụ sử dụng: ([x|x<-[0..],notElem('1','1')$zip=<<tail$show x]!!) 110-> 121.

Làm thế nào nó hoạt động:

[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 byte

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

Khá đơn giản. Điều "thú vị" duy nhất ở đây là cấu trúc j'[11- '[là toán tử "không chứa", do đó "abc"'["ab"là sai và "abc"'["cd"là đúng. Mặc dù cả hai toán hạng j'[11là số, MUMPS vẫn không bị xáo trộn. Nó sẽ vui vẻ tự động cả hai toán hạng thành chuỗi và tiếp tục với cuộc sống của nó. Hoan hô!

(Ngẫu nhiên, nếu bạn ổn với chương trình không bao giờ kết thúc, chúng ta có thể rút ngắn điều này xuống còn 35 byte t2(i) f j=1:1 s:j'[11 k=k+1 w:k=i j:)

PHP, 43 byte

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

Ruby, 24 byte

Giải thích sai nhiệm vụ, sẽ làm lại sau!

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