Aşağıdaki listeyi düşünün:

expected = [
'A',
'B',
'AB',
'C',
'D',
'CD',
'ABCD',
'E',
'F',
'EF',
'G',
'H',
'GH',
'EFGH',
'ABCDEFGH',
'I',
'J',
'IJ',
'K',
'L',
'KL',
'IJKL',
'M',
'N',
'MN',
'O',
'P',
'OP',
'MNOP',
'IJKLMNOP',
'ABCDEFGHIJKLMNOP',
...
]

İşte bakmanın bir yolu - Çince karakterleri nasıl yazacağınızı öğreniyorsunuz ve gittikçe artan büyük parçalarını öğrenmek, gittikçe prova yapmak istiyorsunuz. A ile başlarsınız, sonra B ile devam edersiniz, o zaman zaten iki çift olan bir dizi vardır, böylece birleştirirsiniz. Sonra C ve D ile devam et, başka bir çift yap, pratik yap. Sonra prova yapıyorsun: ABCD. Aynı şey E ile H'ye kadar gider, sonra prova yapın: ABCDEFGH. Liste sonsuzdur.

Amaç, bu listenin n'inci bir elemanını oluşturmak ve yazdırmaktır. 'Z' den sonra tekrar 'A' aldığını varsayın.

Kazanan kriterler kaynak kod uzunluğudur.

Python 2, 53 bayt

x,y=0,1
exec"x^=y-x;y+=x/y;"*input()
print range(x,y)

Çevrimiçi deneyin!

Dönüşümle bu yapıya benzer şekilde x = u-v,y = u

JavaScript (ES6), 59 bayt

Diziyi 1 dizinli hale getirerek ve KSab tarafından kullanılana benzer bir basitleştirme kullanarak 2 bayt kaydedebiliriz :

n=>(x=g=y=>n?g(y+=y==(x^=y-x),n--):x<y?[x++,...g(y)]:[])(1)

Çevrimiçi deneyin!

JavaScript (ES6), 61 bayt

Kaydırmayan tam sayıların bir listesini döndürür.

n=>(g=v=>n?g(u&-u^v?v*2:!!u++,n--):v?[u-v,...g(v-1)]:[])(u=1)

Çevrimiçi deneyin!

Donald Knuth'un yapımına dayanıyor. İlgili OEIS girişi: A182105 .

Nasıl?

Bu iki aşamalı özyinelemeli bir işlevdir.

$(u_n,v_n)$$(u_1,v_1)=(1,1)$

$[u_n-v_n,u_n-v_n+1,\dots,u_n]$

JavaScript (ES6), 97 bayt

Büyük harflerin sarılmasını döndürür.

n=>(s=i='',g=v=>(s+=String.fromCharCode(65+i++%26),n--)?g(u&-u^v?v*2:!!u++):s.substr(u-v,v))(u=1)

Çevrimiçi deneyin!

Veya 91 baytlık küçük harf.

Python 2 , 60 bayt

u=v=1
exec"v=u/v%2or 2*v;u+=1/v;"*input()
print range(u-v,u)

Çevrimiçi deneyin!

Arnauld'un Knuth'un yapısını kullanmasına dayanarak . Durum u&-u==vdaha basit bir koşulla değiştirilebilir u/v%2>0veya alternatif olarak u&v>0, vher zaman utarafından bölünebilen 2 güçtür .

Wolfram Dili (Mathematica) , 80 71 bayt

Range@#2+#-#2&@@Nest[If[#~BitAnd~-#==#2,{#+1,1},{#,2#2}]&@@#&,{1,1},#]&

Çevrimiçi deneyin!

Bir alfabe kaydırma dizesi yerine bir tamsayı listesi döndürür. 0 endeksli.

@Arnauld sayesinde OEIS A182105'i kullanır .

Listeyi süresiz yazdırma, 54 bayt

Do[j=Range@i;#∣i&&Print@j[[-#;;]]&/@(2^j/2),{i,∞}]

Çevrimiçi deneyin!

1 endeksli. TIO sürümü çökmeleri önlemek limyerine vardır ∞.

Python 2 , 93 89 82 bayt

def f(n):r=[];C=1;exec"p=C%2or 2*p;r+=[p];C=r.count(p);"*n;return range(C*p-p,C*p)

Çevrimiçi deneyin!

Tamsayıların bir listesini döndürür. Arnauld'un Javascript yaklaşımına benzer .

Jöle , 16 bayt

1;ẎṀ+ƊẎQṭƊƊ¡ị@‘Ṿ

$13$

Tam program. Baskılar ,tamsayılar listesini -separated.

Kömür , 45 42 35 bayt

ＦＮ⊞υ⎇∧›Ｌυ¹⁼Ｌ§υ±¹Ｌ§υ±²⁺⊟υ⊟υ§αＬ⭆υκ⮌⊟υ

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. 1 endeksli. Sonucu oluşturmak için basit bir formül bulamadım, bu yüzden soruda verilen prosedürü takip ettim. Açıklama:

ＦＮ

Verilen sayıyı ntekrarlayın.

⊞υ

Sonraki öğeyi u, şu şekilde hesaplanan önceden tanımlanmış boş diziye ...

⎇∧›Ｌυ¹⁼Ｌ§υ±¹Ｌ§υ±²

... içinde birden fazla eleman varsa uve son iki eleman aynı uzunlukta ise ...

⁺⊟υ⊟υ

... sondan bir önceki öğeyi son öğeye ekle (sonucu ters sırada oluşturur) ...

§αＬ⭆υκ

... yoksa bir sonraki harf, şimdiye kadar kaç harf eklediğimizi sayarak ve döngüsel olarak önceden tanımlanmış büyük harf alfabe dizinini oluşturarak bulunabilir. (Toplam veya uzunluk uzunluğunun toplamı, liste boş olduğunda başarısız olur ve listeyi bir dizeye eşlemek, boş bir listenin özel kasasına iki bayt kazandırır.)

⮌⊟υ

İstenen listenin utersi olan son öğesi olan son öğesini alın ve ntersini dolaylı olarak yazdırın.