Tujuan Anda adalah membuat program yang mencetak sendiri tanpa batas, dengan baris baru setelah masing-masing. Dengan demikian, jika program Anda adalah satu-liner, itu akan diulang pada setiap baris output.

Contoh

Program:

A

Keluaran:

A
A
A
...

Aturan

• Itu harus berupa program yang lengkap, bukan cuplikan atau fungsi.
• Program harus berulang selamanya tanpa stack-overflow atau kesalahan batas rekursi.
• Output adalah ke stdout atau alternatif terdekat.
• Tidak ada input program yang diterima.
• Celah standar tidak diizinkan, seperti membuka file program atau mengakses sumber daya eksternal. Program kosong tidak diizinkan sebagai celah standar.
• Jika kode program Anda berakhir dengan baris baru tambahan, ini tidak dihitung sebagai baris baru yang diperlukan di antara quine, dan Anda harus mencetak yang lain.
• codegolf - Kode terpendek menang!

Fission, 7 byte

'!+!NR"

Modifikasi yang agak sederhana dari quine Fisi terpendek yang saya temukan sejauh ini : Saya hanya menggunakan non-destruktif !alih - alih Odan menambahkan Nbaris baru.

Jadi semuanya, inilah cara kerjanya: kontrol aliran dimulai Rdengan atom yang berjalan dengan benar. "matikan mode string, yang berarti segalanya sampai yang berikutnya "dicetak: dalam hal ini '!+!NR. Yang meninggalkan "dan baris baru untuk dicetak. '!mengatur massa atom menjadi 33, +menambahnya menjadi 34 (kode karakter ") dan !mencetak kutipan. Nmencetak baris baru, dan Rsekarang menjadi no-op dalam kasus ini, sehingga loop dimulai kembali.

Solusi 7-byte berikut juga berfungsi:

"NR'!+!

> <> , 16 byte

'ard3*o50l2)?.~~

Quine> <> tradisional menggunakan terlalu banyak o, jadi kami menggunakan loop untuk mencetak. Sebelum setiap lompatan, kita mendorong 5 dan 0 (koordinat tempat lompat ke), setelah itu kita lompat dengan .apakah masih ada sesuatu untuk dicetak, atau muncul dua nilai teratas dengan ~~.

(Dikembalikan ke versi 16 karena saya lupa tentang aturan stack overflow.)

CJam, 13 byte

{_o"_g
"o1}_g

Juru bahasa online tidak mencetak apa pun sebelum program berakhir, jadi Anda harus mengujinya di Java interpreter.

Penjelasan

Akhirnya quine CJam umum yang tidak berakhir pada _~.

{_o"_g
"o1}

Ini hanya mendorong satu blok. _gmenduplikasi blok dan menjalankannya berulang kali sementara bagian atas tumpukan benar (membuang kondisi).

Sekarang di dalam blok, salinan lain dari blok itu masih ada di tumpukan. Kami menduplikat dan mencetaknya dengan _odan kemudian kami mencetak _gdiikuti oleh baris baru (baris tambahan yang diperlukan antara quines) dengan "_g\n"o. Akhirnya kita dorong a 1ke stack untuk mengulangi loop, karena sayangnya, blok tidak benar (atau salah) di CJam.

Python 2, 39

Bukan tugas yang sangat menarik dalam Python karena itu sepele untuk menambahkan loop sementara ke quine normal.

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

Perl 5.10+, 40 37 byte

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

atau (juga 37 byte)

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

Meminta dengan -M5.010atau -Ebaris bendera perintah, misalnya

$ 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
...

Terima kasih kepada Ilmari Karonen karena mencukur 3 byte dari solusi asli saya, yaitu:

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

Ini, serta solusi 37-byte yang lebih pendek di atas, adalah semua variasi sederhana dari quine berikut, yang pertama kali saya lihat di salah satu postingan Ilmari lainnya :

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

Karena semua yang saya tambahkan dalam solusi asli saya adalah satu whilelingkaran, dia benar-benar layak mendapatkan sebagian besar kredit. :-)

Brainf *** (SMBF) modifikasi diri , 14 byte

Baris tambahan \nharus berupa literal, Unix, baris baru (kode ASCII 10).

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

Penjelasan:

Kode memindahkan pointer ke paling kiri kode sumbernya, lalu mencetak semuanya, termasuk baris baru (dua kali b / c dari aturan). Lingkaran berlanjut.

PowerShell, 143 Bytes

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

Didasarkan pada quine Rosetta Code PowerShell , saya cukup yakin ini bukan yang sesingkat mungkin. Pemformatan penggantian string di PowerShell sangat menjengkelkan untuk ini, karena pembatas yang sama untuk tempat penggantian {}juga membatasi blok kode while{}, jadi kita harus menggunakan [char]casting, yang membengkokkan banyak kode.

Underload, 25 byte

Pertama kali saya mencoba sesuatu seperti ini dan saya tidak yakin apakah mengikuti semua aturan karena beberapa baris. Baris baru itu agak menyakitkan.

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

Befunge , 30 20 byte

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

Variasi dari befunge quine populer yang mencetak baris baru dan muncul -1 pada tumpukan jika itu menyelesaikan garis.
Sayangnya, Befunge mendapat kata-kata kasar ketika melakukan sesuatu dalam satu baris. Saya mencoba untuk menghapus semua launchpads ( #) yang saya bisa, tetapi beberapa harus dibiarkan masuk untuk melewati perintah tertentu (seperti ,).

Perubahan:

30-20 -> mengubah quine dasar menjadi custom yang saya buat yang menggunakan input string. Dengan cara ini, percabangan jauh lebih mudah.

Tua:

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

Saya pikir ini tidak optimal, tetapi masih bisa diterima untuk saat ini.

K, 30 byte

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

R, 34 byte

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

untuk memanggil dari baris perintah sebagai berikut:

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

> <>, 31 29 byte

Modifikasi sederhana dari quine> tradisional > .

"ar00gc0.0+efooooooooooooooo|

Untuk menjalankan, tempel di sini , klik 'Kirim', lalu 'Mulai' (berjalan tanpa animasi tidak berfungsi). Jangan ragu untuk meningkatkan kecepatan eksekusi.

Python 2, 48 byte

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

GolfScript, 16 byte

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

Ini akhirnya tampak seperti entri CJam Martin Büttner . Fitur yang menarik adalah bahwa, ternyata, cara terpendek untuk menambahkan ".do"blok ketika dicetak adalah dengan menugaskannya ke terminator garis n. (Tentu saja, kita juga perlu memasukkan baris baru yang sebenarnya dalam string, untuk mengganti yang nbiasanya berisi.) String yang sama (menjadi benar dalam GolfScript) juga dibiarkan di tumpukan agar doloop terlepas, memastikan bahwa loop berjalan selamanya.

BASH, 76 byte

Tidak bisa menolak, terutama dengan PowerShell di sini :)

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

Spasi putih penting untuk salinan EXACT.

Javascript (ES6), 64

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

Atau (juga 64)

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

Mikroskrip , 22 byte

"f1{CqxCanx"f1{CqxCanx

Berdasarkan Quine dari artikel Esolangs: "fCqxah"fCqxah. Mengeksploitasi fakta bahwa bahasa secara otomatis menambahkan kawat gigi penutup sesuai kebutuhan, yang tanpanya ini akan menjadi dua byte lebih lama.

Batch, 10 (+ 4 untuk panjang nama file)

Tidak yakin apakah ini memenuhi syarat karena dua alasan:

• Secara teknis, mungkin ada atau tidak ada efek samping tekstual dari shell perintah Windows, karena itu tergantung pada bagaimana hal itu dikonfigurasi.
• Program ini memanggil dirinya dengan nama, dan saya tidak yakin apakah itu dilarang oleh aturan (khususnya aturan "tidak ada pembukaan file program"). Itu tidak membuka dirinya untuk keperluan membaca dan mencetak teks; itu hanya berjalan kembali sendiri. Lebih lanjut, struktur sistem file merupakan bagian integral dari skrip batch old-school (seringkali bahkan digunakan untuk menyimpan status program, dll). Karena itu, saya tidak yakin apakah ini melanggar aturan ke-5 atau tidak.

Kode (untuk program bernama q.bat):

echo on&&q

Ceylon , 210 208 byte

Tentu saja ini tidak akan memenangkan apa pun ...

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

Asli:

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

Saya memodifikasi Quine saya dari dua hari yang lalu dengan menambahkan while(true){...}loop, jadi saya datang dari 185 byte dari Quine polos ke 210 (saya tidak perlu lagi karakter baris baru). Tapi kemudian saya menemukan bahwa satu while(1<2){...}loop bahkan lebih pendek dua 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 tidak memiliki for(;;)loop seperti Java, dan kawat gigi juga diperlukan untuk loop ini.)

PowerShell, 132 107 Bytes

$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}

Didasarkan dari Rosetta Quine (Sama seperti @AdmBorkBork) meskipun tidak menggunakan format untuk penggantian string ... mungkin beralih ke loop untuk dan menggunakan format akan lebih baik?

Saya yakin jika AdmBorkBork kembali mereka akan mengalahkan ini banyak: P

EDIT Menemukan loop dan penggantian, semua berkat pendahulu saya :)

Usaha lama:

$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

Modifikasi salah satu quines Ruby ditemukan di sini .

_="_=%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));}}

Penjelasan:

Cobalah online (waktu habis setelah 60 detik).

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 :

• String sberisi kode sumber yang tidak diformat.
• %sdigunakan untuk memasukkan String ini ke dalam dirinya sendiri dengan s.format(...).
• %c, %1$cdan 34digunakan untuk memformat tanda kutip ganda.
• s.format(s,34,s) menempatkan semuanya bersama-sama

Bagian tantangan:

• for(;;) digunakan untuk loop tanpa batas.
• System.out.println(...) digunakan untuk mencetak dengan mengikuti baris baru

Funky , 29 byte

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

Cobalah online!

RProgN 2 , 7 byte

«]³]]p:

Cobalah online!

Jelly , 14 byte

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

Cobalah online!

Pyth, 11 byte

#jN B"#jN B

Coba di sini!

Brachylog , 16 byte

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

Anda tidak dapat mencobanya secara online , tetapi saya telah memverifikasi bahwa itu berfungsi pada instalasi saya.

Brachylog , 18 byte

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

Cobalah online!

Diadaptasi dari versi alternatif quine ini , dengan hack backtracking saya awalnya dirancang untuk bogosort dari semua hal. Menghabiskan dua byte pada ~nkarena ẉ(cara biasa untuk mencetak dengan baris baru) menyentuh beberapa masalah aneh dengan pengkodean karakter pada TIO, dan baris baru yang sebenarnya dimasukkan ke dalam string literal akan dicetak ~ksebagai \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.

Karena w₁mengambil input sebagai daftar [string to be formatted, formatting arguments], membungkus string dalam daftar dengan gkemudian menyatukannya dengan dirinya sendiri jmemungkinkan untuk diformat dengan dirinya sendiri. Dan karena tidak ada input yang diberikan ke program, variabel input yang secara implisit hadir pada awal program dapat mengambil nilai apa pun, sehingga dapat dibatasi ke salah satu dari daftar tak terhingga banyaknya yang berisi "∋~kgjw₁⊥~n"sebagai elemen, membuat satu titik pilihan untuk mundur ke saat setelah mencetak sumbernya program hits ⊥.

Python 3.6, 48 43 byte.

-5 byte terima kasih kepada @ Jo King

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

Gol> <> , 10 byte

"r2sslRoao

Cobalah online!

Ini mungkin bisa diturunkan lebih banyak