Bir Quine çalıştırmak kaynağını veren bir programdır.

Bu meydan okumada, bir tür varyantı olan bir Fibonacci-quine yapmalısınız.

Fibonacci-quine nedir?

Bir Fibonacci-quine, kaynağın aşağıdaki kural ile değiştirilmesini sağlayan bir programdır:

İlk kaynak olmalıdır ...2.... Başka bir deyişle, kaynak içermelidir 2. (Neden 2? Eğer 1 olsaydı, kimse ilk 1 mi yoksa ikinci mi, programın kendisi bile olsa bilemezdi)

Çalıştırıldığında, kaynağı çıkarmalısınız, ancak sadece belirli bir sayı (bu aşamada 2), fibonacci dizisinin bir sonraki sayısına değiştirildi. Örneğin ...3...,. Çıkış ve çıkış vb. İçin de aynı şey geçerlidir. 2 ^ 32-1'e kadar tam sayıları destekleyebilirsiniz. Bu sınırın üzerindeki tamsayılar için, bir sonraki çıktı sizin seçiminizde.

OP notu

Bunun için yaratıcı bir çözüm görmek istiyorum. Bunun için tek bir çözüm düşünemedim, çünkü meydan okumanın iki önemli yönünün ikisi de, fibonacci ve quine, kolay değil. O zaman bekleyeceğim!

Mathematica, 61 bayt

ToString[#0 /. v:2 :> RuleCondition[Round[GoldenRatio v]]] & 

Sonunda bir boşluk olduğunu unutmayın. Bu bir işlev kınnasıdır, yani yukarıdaki kod, çağrıldığında kodun kendisini bir dize olarak döndüren ( 2sonraki Fibonacci numarasına değiştirilmiş olarak) isimsiz bir işleve göre değerlendirilir .

Bu işe başlamak için şaşırtıcı derecede zor oldu. Temel fikir, işlevin kendisini (ile #0) almak ve bu işlevdeki bir sayıyı bir sonraki ile değiştirmek /. v:2 :> nextFib[v]. Ancak, nextFibbu aşamada değerlendirilmezdi, bu yüzden kaynak koddaki yeni sayı ile sonuçlanmayacaktık. Hemen değerlendirmenin nasıl zorlanacağını bulmak için bir süre aradıktan sonra , Mathematica.SE'de bu harika gönderiyi buldum . "Standart" teknik, Withdeğerlendirmeyi zorlayan bir blok kullanır , ancak WReach'in ikinci cevabı, RuleConditiondeğerlendirmeyi de zorlayan belgelenmemiş yerleşik kullanarak daha kısa bir alternatif içerir .

Bir sonraki Fibonacci sayısını hesaplama şeklimiz, ardışık sayıların oranının kabaca altın oranı 1.618 olduğu gerçeğinden faydalanmaktır ... ve bu yuvarlamaya kadar doğrudur. Bu yüzden son iki sayıyı takip etmemiz gerekmiyor ve sadece yapabiliyoruz Round[GoldenRatio v]. Mathematica'nın GoldenRationsembolik bir değeri olduğundan ve bu yüzden Roundher zaman doğru bir sonuç hesaplayabildiğinden , bu asla kesinlik kaybetmez .

Özetle:

... #0 ... &

Adsız bir işlev; burada #0işlev nesnesinin kendisini ifade eder.

... /. v:2 :> ...

2İşlevin ifade ağacında (bu 2elbette sadece kendisiyle eşleşir) bulun , arayın vve değiştirin ...

... RuleCondition[Round[GoldenRatio v]]

... bir sonraki Fibonacci numarası.

ToString[...]

Ve sonuçta elde edilen ifade ağacını dize temsiline dönüştürün.

CJam , 26 bayt

2{0X{_@+_W$>!}go;\;"_~"}_~

Çevrimiçi deneyin!

Muhtemelen pek uygun değil. Değer sonuncusundan daha büyük olana kadar Fibonacci dizisini yineliyoruz ve sonucu programın başında yeni değer olarak kullanıyoruz.

Python 3 , 95 bayt

a=b=1
while a<2:a,b=b,a+b
s='a=b=1\nwhile a<%i:a,b=b,a+b\ns=%r;print(s%%(b,s))';print(s%(b,s))

Çevrimiçi deneyin!

Açıkçası Martin Ender'in CJam cevabı bir çatal .

CJam , 20 bayt

2{\5mq)*)Y/io"_~"}_~

Çevrimiçi deneyin!

Aslında 19 bayt

2⌠è@fuF$+";ƒ"@+⌡;ƒ

Çevrimiçi deneyin!

Açıkçası Martin Ender'in CJam cevabı bir çatal .

Python 3 , 81 79 bayt

s='s=%r;print(s%%(s,round(%s*(1+5**.5)/2)))';print(s%(s,round(2*(1+5**.5)/2)))

Çevrimiçi deneyin!
Sonraki sayıyı hesaplamak için altın oranı kullanır

Jöle , 14 bayt

“×Øp+.ḞṭØv”Ṙv2

Çevrimiçi deneyin! veya gerekli tüm yinelemeleri doğrulayın .

Nasıl çalışır

“×Øp+.ḞṭØv”Ṙv2  Main link. No arguments.

“×Øp+.ḞṭØv”     Set the left argument and return value to the string "×Øp+.ḞṭØv".
           Ṙ    Print a string representation of the return value and yield the
                unaltered return value.
            v2  Evaluate the return value as a Jelly program with left argument 2.
 ×Øp                Multiply the left argument by the golden ratio.
    +.              Add 0.5 to the resulting product.
      Ḟ             Floor; round the resulting sum down to the nearest integer.
        Øv          Yield the string "Øv".
       ṭ            Tack; append the result to the left to the result to the right.

Swift, 251 bayt

Benim için biraz ayrıntılı, ama nasıl kısaltacağımı anlayamıyorum:

import Foundation;var n="\"";var u="\\";var s="import Foundation;var n=%@%@%@%@;var u=%@%@%@%@;var s=%@%@%@;print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(%f*(1+sqrt(5))/2))))";print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(2*(1+sqrt(5))/2))))

Ungolfed:

import Foundation
var n="\""
var u="\\"
var s="import Foundation;var n=%@%@%@%@;var u=%@%@%@%@;var s=%@%@%@;print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(%f*(1+sqrt(5))/2))))"
print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(2*(1+sqrt(5))/2))))

Benim sorunum yeni sürümü hakkında tırnak almak için çalışıyor s.

Çedar , 136 bayt

let b=1;for(let a=1;a<2;a=b-a){b+=a};let s='let b=1;for(let a=1;a<%i;a=b-a){b+=a};let s=%s;print s%b%@"39+s+@"39';print s%b%@"39+s+@"39

Çevrimiçi deneyin!

Javascript (ES6), 151 60 bayt

Yeni sürüm, @ Leaky Nun kredisi

x=i=>console.log('x='+x+';x('+(i*(5**.5+1)/2+.5|0)+')');x(2)

Eski versiyon :

x=i=>{var s=Math.sqrt(5),a=1;f=n=>{return Math.ceil((((1+s)/2)**n-((1-s)/2)**n)/s)};while(f(++a)<=i);console.log('x='+String(x)+';x('+f(a)+')');};x(2)

Dayanarak bu .

dc , 35 bayt

2[r9k5v1+2/*.5+0k1/n91PP93P[dx]P]dx

Yinelemeli bir sürüm (56 bayt):

2[rsP1dsN[lN+lNrsNdlP[s.q]s.=.lFx]dsFxlNn91PP93P[dx]P]dx

Swift, 235 bayt

Bu geliştirilmiş bir versiyonudur Caleb bireyin cevabı .

import Foundation;var n="\"",u="\\",s="import Foundation;var n=%@%@%@%@,u=%@%@%@%@,s=%@%@%@;print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(%f*(1+sqrt(5))/2))))";print(String(format:s,n,u,n,n,n,u,u,n,n,s,n,(round(2*(1+sqrt(5))/2))))

Java (OpenJDK 8) , 239 bayt

interface a{static void main(String[]p){int a=1,b=1;for(;a<2;a=b-a)b+=a;String s="interface a{static void main(String[]p){int a=1,b=1;for(;a<%d;a=b-a)b+=a;String s=%c%s%c;System.out.printf(s,b,34,s,34);}}";System.out.printf(s,b,34,s,34);}}

Çevrimiçi deneyin!