1ฉันอย่างเกลียดหลัก ดังนั้นฉันต้องการให้คุณช่วยแปลงตัวเลขเป็น "รูปแบบที่เหมาะสม" ของพวกเขา

ตัวเลขในรูปแบบที่เหมาะสมไม่เคยมีสอง1s ในแถว 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[

Perl 5 , 34 Bytes

วนรอบเคาน์เตอร์และเปลี่ยน double-one เป็นครั้งคราว

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 utils, 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]

Python 2, 50

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

ฟังก์ชั่นที่ไม่ระบุชื่อที่แสดงหมายเลขที่ไม่ได้11เรียงตามลำดับและรับหมายเลขnนั้น ข้อผิดพลาดแบบหนึ่งต่อหนึ่งของการยกเลิกการจัดทำดัชนีเป็นศูนย์โดยมีการรวมไว้0ในรายการ

ในทฤษฎีนี้จะล้มเหลวสำหรับตัวเลขที่สูงพอสมควรf(n)>2*nแต่เรื่องนี้ไม่ควรเกิดขึ้นจนเป็นอย่างน้อยn10**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

Python 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]!!) 110121

มันทำงานอย่างไร:

[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')