Mục tiêu của bạn là tạo ra một chương trình tự in vô thời hạn, với một dòng mới sau mỗi chương trình. Do đó, nếu chương trình của bạn là một lớp lót, nó sẽ được lặp lại trên mỗi dòng đầu ra.

Thí dụ

Chương trình:

A

Đầu ra:

A
A
A
...

Quy tắc

• Nó phải là một chương trình hoàn chỉnh, không phải là một đoạn hoặc chức năng.
• Chương trình sẽ lặp mãi mãi mà không xảy ra lỗi giới hạn stack-overflow hoặc đệ quy.
• Đầu ra là thiết bị xuất chuẩn hoặc thay thế gần nhất.
• Không có đầu vào chương trình được chấp nhận.
• Các lỗ hổng tiêu chuẩn không được phép, chẳng hạn như mở tệp của chương trình hoặc truy cập tài nguyên bên ngoài. Các chương trình trống không được phép là một lỗ hổng tiêu chuẩn.
• Nếu mã chương trình của bạn kết thúc bằng một dòng mới, thì đây không được tính là dòng mới cần thiết giữa các quines và bạn phải in một dòng khác.
• codegolf - Mã ngắn nhất sẽ thắng!

Phân hạch, 7 byte

'!+!NR"

Một sửa đổi khá đơn giản của quine Phân hạch ngắn nhất mà tôi đã tìm thấy cho đến nay : Tôi chỉ đơn giản là sử dụng không phá hủy !thay vì Ovà thêm một Ndòng mới.

Vì vậy, tất cả trong tất cả, đây là cách nó hoạt động: dòng điều khiển bắt đầu từ Rmột nguyên tử phải. "bật chế độ chuỗi, có nghĩa là mọi thứ cho đến khi bản tiếp theo "được in: trong trường hợp này '!+!NR. Điều đó để lại "và dòng mới sẽ được in. '!đặt khối lượng của nguyên tử lên 33, +tăng nó lên 34 (mã ký tự của ") và !in trích dẫn. Nin một dòng mới, và Rbây giờ là không có trong trường hợp này, vì vậy vòng lặp bắt đầu lại.

Giải pháp 7 byte sau đây cũng hoạt động:

"NR'!+!

> <> , 16 byte

'ard3*o50l2)?.~~

Truyền thống> <> quine sử dụng quá nhiều os, vì vậy chúng tôi sử dụng một vòng lặp để in. Trước mỗi lần nhảy, chúng ta sẽ đẩy 5 và 0 (tọa độ của nơi để nhảy tới), sau đó chúng ta sẽ nhảy với .nếu vẫn còn thứ gì đó để in hoặc bật hai giá trị trên cùng ~~.

(Hoàn nguyên về phiên bản 16 vì tôi quên quy tắc tràn ngăn xếp.)

CJam, 13 byte

{_o"_g
"o1}_g

Trình thông dịch trực tuyến không in bất cứ thứ gì trước khi chương trình kết thúc, vì vậy bạn sẽ phải kiểm tra điều này trong trình thông dịch Java.

Giải trình

Cuối cùng, một quine CJam tổng quát mà không kết thúc _~.

{_o"_g
"o1}

Điều này chỉ đơn giản là đẩy một khối. _gnhân đôi khối và thực hiện nó nhiều lần trong khi đỉnh của ngăn xếp là trung thực (loại bỏ điều kiện).

Bây giờ bên trong khối, bản sao khác của khối vẫn còn trên ngăn xếp. Chúng tôi sao chép và in nó với _ovà sau đó chúng tôi in _gtheo sau là một dòng mới (dòng mới bổ sung cần thiết giữa các quines) với "_g\n"o. Cuối cùng, chúng tôi đẩy một 1ngăn xếp lên vòng lặp để lặp lại, vì thật không may, các khối không phải là sự thật (hoặc giả) trong CJam.

Con trăn 2, 39

Không phải là một nhiệm vụ rất thú vị trong Python vì việc thêm vòng lặp while vào một câu hỏi bình thường.

c='while 2:print"c=%r;exec c"%c';exec c

Perl 5.10+, 40 37 byte

$_=q{say"\$_=q{$_};eval"while 1};eval

hoặc (cũng 37 byte)

$_=q{{say"\$_=q{$_};eval";redo}};eval

Gọi với cờ dòng -M5.010hoặc -Elệnh, vd

$ perl -E '$_=q{say"\$_=q{$_};eval"while 1};eval'
$_=q{say"\$_=q{$_};eval"while 1};eval
$_=q{say"\$_=q{$_};eval"while 1};eval
$_=q{say"\$_=q{$_};eval"while 1};eval
...

Cảm ơn Ilmari Karonen vì đã loại bỏ 3 byte khỏi giải pháp ban đầu của tôi, đó là:

eval while$_=q{say"eval while\$_=q{$_}"}

Điều này, cũng như các giải pháp 37 byte ngắn hơn ở trên, đều là các biến thể đơn giản của câu hỏi sau, lần đầu tiên tôi thấy trong một trong những bài viết khác của Ilmari :

$_=q{say"\$_=q{$_};eval"};eval

Vì tất cả những gì tôi thêm vào trong giải pháp ban đầu của mình là một whilevòng lặp, anh ấy thực sự xứng đáng với phần lớn tín dụng. :-)

Brainf tự sửa đổi *** (SMBF) , 14 byte

Dòng mới theo dõi \ncần phải là một dòng mới, Unix, dòng mới (mã ASCII 10).

[<[<]>[.>]<.]\n

Giải trình:

Mã di chuyển con trỏ sang bên trái của mã nguồn, sau đó in tất cả, bao gồm cả dòng mới (hai lần b / c của quy tắc). Vòng lặp tiếp tục.

PowerShell, 143 byte

$d='$d={0}{1}{0}{2}while(1){3}Write($d -f [char]39,$d,"`n",[char]123,[char]125){4}'
while(1){Write($d -f [char]39,$d,"`n",[char]123,[char]125)}

Dựa off the Rosetta Mã PowerShell Quine , tôi khá tự tin này không phải là ngắn nhất có thể. Định dạng thay thế chuỗi trong PowerShell rất hữu ích cho việc này, bởi vì các dấu phân cách tương tự cho vị trí đặt thay thế {}cũng phân định các khối mã while{}, vì vậy chúng tôi phải sử dụng phương thức [char]truyền, làm mờ mã bó.

Dưới tải, 25 byte

Lần đầu tiên tôi đã thử một cái gì đó như thế này và tôi không chắc chắn nếu tuân theo tất cả các quy tắc vì nó là một vài dòng. Dòng mới là một chút đau đớn.

(::a~*S:a~*^
)::a~*S:a~*^

Befunge , 30 20 byte

<,+55,*2+98_ #!,#:<"

Một biến thể của một quine befunge phổ biến in ra một dòng mới và bật -1 trên ngăn xếp nếu nó kết thúc dòng.
Thật không may, Befunge bị dài dòng khi làm mọi việc trong một dòng. Tôi đã cố gắng loại bỏ tất cả các launchpad ( #) mà tôi có thể, nhưng một số phải được bỏ lại để bỏ qua các lệnh nhất định (như ,).

Thay đổi:

30-20 -> đã thay đổi quine cơ sở thành tùy chỉnh mà tôi đã thực hiện sử dụng đầu vào chuỗi. Bằng cách này, việc phân nhánh dễ dàng hơn rất nhiều.

Cũ:

:0g,:93*`>0-10 #,+$#: #5 _1+>

Tôi không nghĩ rằng điều này là tối ưu, nhưng bây giờ nó có thể chấp nhận được.

K, 30 byte

{f:$_f;{x}{`0:f,"[]\n";1}/1}[]

R, 34 byte

repeat{write(commandArgs()[5],'')}

để gọi từ dòng lệnh như sau:

Rscript -e "repeat{write(commandArgs()[5],'')}"

> <>, 31 29 byte

Một sửa đổi đơn giản của truyền thống > <> quine .

"ar00gc0.0+efooooooooooooooo|

Để chạy, dán nó vào đây , nhấp vào 'Gửi', sau đó 'Bắt ​​đầu' (chạy mà không có hoạt hình không hoạt động). Hãy tăng tốc độ thực hiện.

Python 2, 48 byte

c='c=\'%s\';while 1:print c%c';while 1:print c%c

GolfScript, 16 byte

{.".do
":n\p}.do

Điều này cuối cùng trông rất giống với mục nhập CJam của Martin Büttner . Một tính năng thú vị là, hóa ra, cách ngắn nhất để nối ".do"vào khối khi nó được in là gán nó cho bộ kết thúc dòng n. (Tất nhiên, chúng ta cũng cần bao gồm một dòng mới thực sự trong chuỗi, để thay thế một dòng nthông thường chứa.) Chuỗi tương tự (là sự thật trong GolfScript) cũng được để lại trên ngăn xếp để dovòng lặp bật ra, đảm bảo rằng vòng lặp chạy mãi

BASH, 76 byte

Không thể cưỡng lại, đặc biệt là với PowerShell tại đây :)

while true;do
a ()
{
    echo while true\;do
    declare -f a
    echo a\;done
}
a;done

Khoảng trắng rất quan trọng đối với bản sao CHÍNH XÁC.

Javascript (ES6), 64

for(;;(_=>console.log(`for(;;(_=>${arguments.callee})());`))());

Cách khác (cũng 64)

a="for(;;)console.log(`a=${JSON.stringify(a)};eval(a)`)";eval(a)

Kính hiển vi , 22 byte

"f1{CqxCanx"f1{CqxCanx

Dựa trên quine từ bài viết của Esolangs : "fCqxah"fCqxah. Khai thác thực tế là ngôn ngữ tự động bổ sung đóng dấu ngoặc khi cần, mà không có điều này sẽ dài hơn hai byte.

Batch, 10 (+ 4 cho chiều dài tên tệp)

Không chắc chắn nếu điều này đủ điều kiện vì hai lý do:

• Về mặt kỹ thuật, có thể có hoặc không có tác dụng phụ văn bản từ trình vỏ lệnh Windows, vì điều đó phụ thuộc vào cách cấu hình.
• Chương trình này tự gọi bằng tên và tôi không chắc liệu điều đó có bị cấm bởi các quy tắc hay không (cụ thể là quy tắc "không mở tệp chương trình"). Nó không tự mở cho mục đích đọc và in ra văn bản; nó chỉ đơn giản là chạy lại chính nó. Hơn nữa, cấu trúc hệ thống tệp là một phần không thể thiếu của các tập lệnh bó trường cũ (đôi khi thậm chí còn được sử dụng để lưu trữ trạng thái chương trình, v.v.). Như vậy, tôi không chắc liệu điều này có vi phạm quy tắc thứ 5 hay không.

Mã (cho một chương trình có tên q.bat):

echo on&&q

Ceylon , 210 208 byte

Tất nhiên điều này sẽ không giành được bất cứ điều gì ...

shared void u(){value q="\"\"\"";value t="""shared void u(){value q="\"\"\"";value t=""";value b="""while(1<2){print(t+q+t+q+";value b="+q+b+q+";"+b);}}""";while(1<2){print(t+q+t+q+";value b="+q+b+q+";"+b);}}

Nguyên:

shared void u(){value q="\"\"\"";value t="""shared void u(){value q="\"\"\"";value t=""";value b="""while(true){print(t+q+t+q+";value b="+q+b+q+";"+b);}}""";while(true){print(t+q+t+q+";value b="+q+b+q+";"+b);}}

Tôi đã sửa đổi Quine của mình từ hai ngày trước bằng cách thêm while(true){...}vòng lặp, vì vậy tôi đến từ 185 byte của Quine đơn giản thành 210 (Tôi không cần ký tự dòng mới nữa). Nhưng sau đó tôi thấy rằng một while(1<2){...}vòng lặp thậm chí còn ngắn hơn hai byte:

shared void u(){value q="\"\"\"";value t="""shared void u(){value q="\"\"\"";value t=""";value b="""while(1<2){print(t+q+t+q+";value b="+q+b+q+";"+b);}}""";while(1<2){print(t+q+t+q+";value b="+q+b+q+";"+b);}}

(Ceylon không có for(;;)vòng lặp như Java và cũng cần niềng răng cho vòng lặp này.)

PowerShell, 132 107 byte

$a='$a={0}{1}{0};for(){2}$a-f[char]39,$a,[char]123,[char]125{3}';for(){$a-f[char]39,$a,[char]123,[char]125}

Dựa trên Rosetta Quine (Giống như @AdmBorkBork) mặc dù không sử dụng định dạng để thay thế chuỗi ... có thể chuyển sang vòng lặp for và sử dụng định dạng sẽ là tốt nhất?

Tôi chắc chắn nếu admBorkBork quay lại, họ sẽ đánh bại điều này rất nhiều: P

EDIT Tìm ra vòng lặp for và thay thế, tất cả là nhờ người tiền nhiệm của tôi :)

Cố gắng cũ:

$a='$a=;for(){$a.substring(0,3)+[char]39+$a+[char]39+$a.substring(3)}';for(){$a.substring(0,3)+[char]39+$a+[char]39+$a.substring(3)}

Ruby, 41 39 byte

Một sửa đổi của một trong những quines Ruby được tìm thấy ở đây .

_="_=%p;loop{puts _%%_}";loop{puts _%_}

Java 10, 194 byte

interface M{static void main(String[]a){for(var s="interface M{static void main(String[]a){for(var s=%c%s%1$c;;)System.out.println(s.format(s,34,s));}}";;)System.out.println(s.format(s,34,s));}}

Giải trình:

Dùng thử trực tuyến (thời gian chờ sau 60 giây).

interface M{                    // Class
  static void main(String[]a){  //  Mandatory main-method
    for(var s="interface M{static void main(String[]a){for(var s=%c%s%1$c;;)System.out.println(s.format(s,34,s));}}";
                                //   Unformatted source code
        ;)                      //   Loop indefinitely
       System.out.println(      //    Print with trailing new-line:
         s.format(s,34,s));}}   //     The formatted source code

quine -part:

• Chuỗi schứa mã nguồn chưa được định dạng.
• %sđược sử dụng để nhập Chuỗi này vào chính nó với s.format(...).
• %c, %1$cVà 34được sử dụng để định dạng dấu nháy kép.
• s.format(s,34,s) đặt tất cả lại với nhau

Phần thử thách:

• for(;;) được sử dụng để lặp vô thời hạn.
• System.out.println(...) được sử dụng để in với dòng mới

Funky , 29 byte

f=@print`f=[f]for)f()`for)f()

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

RProgN 2 , 7 byte

«]³]]p:

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

Thạch , 14 byte

“;@ṾṄṛ¢”;@ṾṄṛ¢

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

Bình thường, 11 byte

#jN B"#jN B

Hãy thử nó ở đây!

Brachylog , 16 byte

∋"∋~kgjẉ₁⊥"gjẉ₁⊥

Bạn không thể thử trực tuyến , nhưng tôi đã xác minh rằng nó hoạt động trên cài đặt của tôi.

Brachylog , 18 byte

∋"∋~kgjw₁⊥~n"gjw₁⊥

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

Chuyển thể từ phiên bản thay thế của quine này , với một bản hack backtracking ban đầu tôi đã nghĩ ra cho bogosort của tất cả mọi thứ. Chi tiêu hai byte ~nvì ẉ(phương tiện thông thường để in với dòng mới) gặp một số vấn đề kỳ lạ với mã hóa ký tự trên TIO và một dòng mới thực sự được chèn vào chuỗi ký tự được in qua ~knhư \n.

               w      Print
 "∋~kgjw₁⊥~n"         "∋~kgjw₁⊥~n"
∋                     which is an element of
                      the (unused and unconstrained) input
                ₁     formatted
          ~n          (so that the ~n is replaced with a newline)
             gj       with itself
   ~k                 (so that the ~k is replaced with the string in quotes),
                 ⊥    then try again.

Kể từ khi w₁ lấy đầu vào là một danh sách [string to be formatted, formatting arguments], gói một chuỗi trong danh sách và gsau đó nối nó với chính nó jcho phép nó được định dạng với chính nó. Và vì không có đầu vào nào được cung cấp cho chương trình, biến đầu vào được hiển thị ngầm ở đầu chương trình có thể nhận bất kỳ giá trị nào, do đó, nó có thể bị ràng buộc với một trong vô số danh sách có chứa "∋~kgjw₁⊥~n"như một phần tử, tạo ra một điểm lựa chọn được quay lại khi sau khi in nguồn của nó, chương trình chạm ⊥.

Python 3.6, 48 43 byte.

-5 byte nhờ @Jo King

x='while 1:print("x=%r;exec(x)"%x)';exec(x)

Gol> <> , 10 byte

"r2sslRoao

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

Điều này có thể được đánh golf xuống nhiều hơn