Một Quine là một chương trình mà kết quả đầu ra nguồn của nó khi chạy.

Trong thử thách này, Bạn nên tạo ra một chỉ số Fibonacci-quine, một biến thể của quine.

Một chỉ số Fib-quine là gì?

Một chỉ số Fibonacci là một chương trình, đưa ra sự điều chỉnh nguồn theo quy tắc sau:

Các nguồn ban đầu nên được ...2.... Nói cách khác, nguồn nên chứa 2. (Tại sao là 2? Nếu là 1, Không ai biết đó là lần đầu tiên hay lần thứ hai, Ngay cả chính chương trình)

Khi chạy, Bạn nên xuất nguồn, nhưng chỉ số cụ thể (Trong giai đoạn này, 2) thay đổi thành số tiếp theo của chuỗi Wikipedia. Ví dụ , ...3.... Tương tự với đầu ra và đầu ra của đầu ra, v.v. Bạn có thể hỗ trợ các số nguyên cho tối đa 2 ^ 32-1. Đối với các số nguyên vượt quá giới hạn đó, đầu ra tiếp theo là lựa chọn của bạn.

Ghi chú của OP

Tôi thực sự muốn thấy một giải pháp sáng tạo cho việc này. Tôi không thể nghĩ ra một giải pháp duy nhất cho việc này, vì Cả hai khía cạnh quan trọng của thử thách, MySpace và quine, đều không dễ dàng. Tôi sẽ đợi!

Toán học, 61 byte

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

Lưu ý rằng có một không gian dấu. Đây là một hàm quine, tức là đoạn mã trên ước tính thành một hàm không tên, nếu được gọi sẽ trả về chính mã đó dưới dạng một chuỗi (được 2thay đổi thành số Fibonacci tiếp theo).

Điều này là cực kỳ khó khăn để đi làm. Ý tưởng cơ bản là lấy chính hàm (với #0) và thay thế một số trong hàm đó bằng hàm tiếp theo bằng cách sử dụng /. v:2 :> nextFib[v]. Tuy nhiên, nextFibsẽ không được đánh giá ở giai đoạn này vì vậy chúng tôi sẽ không thực sự kết thúc với số mới trong mã nguồn. Sau khi tìm kiếm xung quanh một lúc để tìm ra cách buộc đánh giá ngay lập tức, tôi đã tìm thấy bài đăng tuyệt vời này trên Mathematica.SE . Kỹ thuật "tiêu chuẩn" sử dụng một Withkhối buộc đánh giá, nhưng câu trả lời thứ hai của WReach chứa một giải pháp thay thế ngắn hơn bằng cách sử dụng tích hợp không có giấy tờ RuleConditioncũng buộc phải đánh giá.

Cách chúng ta tính toán số Fibonacci tiếp theo là bằng cách sử dụng thực tế là tỷ lệ của các số liên tiếp gần bằng tỷ lệ vàng 1.618 ... và điều này là chính xác cho đến làm tròn. Vì vậy, chúng ta không cần phải theo dõi hai số cuối và chỉ có thể làm Round[GoldenRatio v]. Điều này sẽ không bao giờ mất độ chính xác vì Mathicala GoldenRationlà một giá trị tượng trưng và do đó Roundluôn có thể tính toán một kết quả chính xác.

Tóm tắt:

... #0 ... &

Một hàm không tên, trong đó #0đề cập đến chính đối tượng hàm.

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

Tìm một 2trong cây biểu thức của hàm (điều này 2tất nhiên chỉ khớp với chính nó), gọi nó vvà thay thế nó bằng ...

... RuleCondition[Round[GoldenRatio v]]

... số Fibonacci tiếp theo.

ToString[...]

Và chuyển đổi cây biểu thức kết quả thành biểu diễn chuỗi của nó.

CJam , 26 byte

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

Hãy thử trực tuyến!

Có lẽ không hoàn toàn tối ưu. Chúng tôi chỉ đơn giản lặp lại chuỗi Fibonacci cho đến khi giá trị lớn hơn giá trị cuối cùng và sử dụng kết quả làm giá trị mới ở đầu chương trình.

Python 3 , 95 byte

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

Hãy thử trực tuyến!

Rõ ràng là một nhánh của câu trả lời CJam của Martin Ender .

CJam , 20 byte

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

Hãy thử trực tuyến!

Trên thực tế , 19 byte

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

Hãy thử trực tuyến!

Rõ ràng là một nhánh của câu trả lời CJam của Martin Ender .

Python 3 , 81 79 byte

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

Hãy thử trực tuyến!
Sử dụng tỷ lệ vàng để tính số tiếp theo

Thạch , 14 byte

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

Hãy thử trực tuyến! hoặc xác minh tất cả các lần lặp được yêu cầu .

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

“×Ø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 byte

Một chút dài dòng cho tôi, nhưng tôi không thể tìm ra cách làm cho nó ngắn hơn:

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

Ung dung:

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

Rắc rối của tôi là cố gắng để có được báo giá xung quanh phiên bản mới của s.

Cheddar , 136 byte

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

Hãy thử trực tuyến!

Javascript (ES6), 151 60 byte

Phiên bản mới, ghi có vào @ Leaky Nun

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

Phiên bản cũ :

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)

Dựa trên điều này .

dc , 35 byte

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

Một phiên bản có số lần lặp (56 byte):

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

Swift, 235 byte

Đây là phiên bản cải tiến của Caleb 's câu trả lời .

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 byte

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);}}

Hãy thử trực tuyến!