Ваша цель - создать программу, которая печатает себя бесконечно, с новой строкой после каждой. Таким образом, если ваша программа однострочная, она будет повторяться на каждой строке вывода.

пример

Программа:

A

Выход:

A
A
A
...

правила

• Это должна быть полная программа, а не фрагмент или функция.
• Программа должна зацикливаться всегда без переполнения стека или ошибок предела рекурсии.
• Выход на стандартный вывод или ближайшую альтернативу.
• Ввод программы не принимается.
• Стандартные лазейки запрещены, такие как открытие файла программы или доступ к внешнему ресурсу. Пустые программы запрещены как стандартные лазейки.
• Если код вашей программы заканчивается завершающим символом новой строки, это не считается необходимой новой строкой между кавычками, и вы должны напечатать другую.
• Codegolf - выигрывает самый короткий код!

Деление, 7 байт

'!+!NR"

Довольно простая модификация самой короткой квинны деления, которую я нашел до сих пор : я просто использую неразрушающий !вместо Oи добавил Nдля новой строки.

В общем, вот как это работает: поток управления начинается Rс правого атома. "переключает строковый режим, что означает все, пока не "будет напечатано следующее : в этом случае '!+!NR. Это оставляет "и новую строку для печати. '!устанавливает массу атома равной 33, +увеличивает ее до 34 (код символа ") и !печатает кавычку. Nпечатает новую строку, и Rтеперь в этом случае не используется, поэтому цикл начинается заново.

Следующее 7-байтовое решение также работает:

"NR'!+!

> <> , 16 байт

'ard3*o50l2)?.~~

Традиционная> <> quine использует слишком много os, поэтому мы используем цикл для печати. Перед каждым прыжком мы нажимаем 5 и 0 (координаты, куда нужно перейти), после чего мы либо прыгаем, .если еще есть что напечатать, либо выталкиваем два верхних значения с ~~.

(Вернулся к 16 версии, так как я забыл о правиле переполнения стека.)

CJam, 13 байтов

{_o"_g
"o1}_g

Онлайн-интерпретатор ничего не печатает до завершения программы, поэтому вам придется проверить это в интерпретаторе Java.

объяснение

Наконец обобщенная квиня CJam, которая не заканчивается _~.

{_o"_g
"o1}

Это просто толкает блок. _gдублирует блок и выполняет его несколько раз, пока вершина стека верна (исключая условие).

Теперь внутри блока другая копия блока все еще находится в стеке. Мы дублируем и печатаем его с помощью, _oа затем печатаем, _gза которым следует новая строка (требуемая дополнительная новая строка между квинусами) с "_g\n"o. Наконец, мы помещаем a 1в стек для повторения цикла, потому что, к сожалению, блоки не являются истинными (или ложными) в CJam.

Python 2, 39

Не очень интересная задача в Python, так как добавить цикл while в обычный quine просто.

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

Perl 5.10+, 40 37 байт

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

или (также 37 байт)

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

Вызывать с флагом -M5.010или -Eкомандной строки, например,

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

Спасибо Ильмари Каронен за то, что он сбрил 3 байта из моего оригинального решения, которое было:

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

Это, а также более короткие 37-байтовые решения, приведенные выше, являются простыми вариантами следующей квинны, которую я впервые увидел в одном из других постов Ильмари :

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

Поскольку все, что я добавил в свое первоначальное решение, было whileциклом, он действительно заслуживает большей части кредита. :-)

Самомодифицирующийся Brainf *** (SMBF) , 14 байтов

Конечный \nсимвол новой строки должен быть литералом, Unix, символом новой строки (код ASCII 10).

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

Объяснение:

Код перемещает указатель в крайний левый угол своего исходного кода, а затем печатает все это, включая символ новой строки (дважды b / c правила). Цикл продолжается.

PowerShell, 143 байта

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

Исходя от Rosetta кода PowerShell Куайна , я абсолютно уверен , что это не самый короткий. Форматирование замены строк в PowerShell является странным для этого, потому что те же разделители для того, где помещать замены, {}также разделяют блоки кода while{}, поэтому мы должны использовать [char]приведение, которое раздувает код кучу.

Недогрузка, 25 байт

В первый раз я попробовал что-то подобное, и я не уверен, что следует всем правилам, так как это пара строк. Новая строка была немного болезненной.

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

Befunge , 30 20 байт

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

Вариант популярного quine befunge, который выводит новую строку и выскакивает -1 в стеке, если он заканчивает строку.
К сожалению, Befunge становится многословным, когда делаешь в одну строку. Я попытался удалить все панели запуска ( #), которые мог, но некоторые пришлось оставить, чтобы пропустить определенные команды (например ,).

Изменения:

30-20 -> изменил базовую квину на собственную, которая использует строковый ввод. Таким образом, ветвление намного проще.

Старый:

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

Я не думаю, что это оптимально, но сейчас это приемлемо.

К, 30 байтов

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

R, 34 байта

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

вызывать из командной строки следующим образом:

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

> <>, 31 29 байт

Простая модификация традиционной > <> квин .

"ar00gc0.0+efooooooooooooooo|

Чтобы запустить, вставьте его здесь , нажмите «Отправить», затем «Пуск» (работа без анимации не работает). Не стесняйтесь увеличивать скорость исполнения.

Python 2, 48 байт

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

GolfScript, 16 байт

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

В итоге это выглядело как запись CJam Мартина Бюттнера . Интересной особенностью является то, что, как выясняется, самый короткий способ добавить ".do"блок к выводу, когда он напечатан, - это присвоить его разделителю строки n. (Конечно, нам также нужно включить в строку реальный символ новой строки, чтобы заменить тот, который nобычно содержится.) Та же самая строка (правда в GolfScript) также остается в стеке, чтобы doцикл отключился, гарантируя, что цикл работает вечно

BASH, 76 байт

Просто не удержался, особенно с PowerShell здесь :)

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

Пробел важен для ТОЧНОЙ копии.

Javascript (ES6), 64

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

В качестве альтернативы (также 64)

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

Microscript , 22 байта

"f1{CqxCanx"f1{CqxCanx

На основе Куайного из статьи Esolangs: "fCqxah"fCqxah. Использует тот факт, что язык автоматически добавляет закрывающие скобки по мере необходимости, без чего это будет на два байта длиннее.

Пакет, 10 (+ 4 для длины имени файла)

Не уверен, что это соответствует двум причинам:

• Технически, могут быть или не быть текстовые побочные эффекты от командной оболочки Windows, поскольку это зависит от того, как она настроена.
• Эта программа вызывает себя по имени, и я не уверен, запрещено ли это правилами (в частности, правилом «нет открытия файла программы»). Он не раскрывается для чтения и распечатки текста; это просто повторный запуск самого себя. Кроме того, структура файловой системы является неотъемлемой частью пакетных сценариев старой школы (часто даже используемых для хранения состояния программы и т. Д.). Поэтому я не уверен, нарушает ли это 5-е правило или нет.

Код (для программы с именем q.bat):

echo on&&q

Цейлон , 210 208 байт

Конечно, это ничего не выиграет ...

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

Оригинал:

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

Я изменил мой Quine от двух дней назад , добавив while(true){...}цикл, так что я пришел от 185 байтов простого Quine к 210 (мне больше не нужен символ новой строки в конце). Но потом я обнаружил, чтоwhile(1<2){...} цикл на два байта короче:

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

(Цейлон не имеет for(;;)цикла, подобного Java, и для этого цикла также необходимы скобки.)

PowerShell, 132 107 байт

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

Основанный на Rosetta Quine (такой же, как @AdmBorkBork), хотя не использует форматирование для замены строк ... может быть, лучше было бы переключиться на цикл for и использовать форматирование?

Я уверен, что если AdmBorkBork вернется, они сильно побьют это: P

РЕДАКТИРОВАТЬ Выяснил для цикла и замены, все благодаря моему предшественнику :)

Старая попытка:

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

Рубин, 41 39 байт

Модификация одной из рубиновых квинов найдена здесь .

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

Java 10, 194 байта

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

Объяснение:

Попробуйте онлайн (время ожидания через 60 секунд).

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:

• Строка sсодержит неформатированный исходный код.
• %sиспользуется для ввода этой строки в себя с помощью s.format(...).
• %c, %1$cИ 34используются для форматирования двойных кавычек.
• s.format(s,34,s) складывает все вместе

Задание часть:

• for(;;) используется для цикла до бесконечности.
• System.out.println(...) используется для печати с новой строкой

Фанки , 29 байт

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

Попробуйте онлайн!

RProgN 2 , 7 байт

«]³]]p:

Попробуйте онлайн!

Желе , 14 байт

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

Попробуйте онлайн!

Pyth, 11 байт

#jN B"#jN B

Попробуй это здесь!

Брахилог , 16 байт

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

Вы не можете попробовать это онлайн , но я убедился, что он работает на моей установке.

Брахилог , 18 байт

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

Попробуйте онлайн!

Приспособленный от альтернативной версии этого quine , с взломом отступления, который я первоначально разработал для bogosort всех вещей. Тратит два байта, ~nпотому что ẉ(обычное средство для печати с завершающим символом новой строки) решает некоторые странные проблемы с кодировкой символов в TIO, и фактический символ новой строки, вставленный в строковый литерал, печатается ~kкак \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.

Поскольку w₁принимает входные данные в виде списка [string to be formatted, formatting arguments], обертывание строки в списке с gпоследующим объединением ее с самим собой jпозволяет форматировать ее самостоятельно. И поскольку программа не вводит никаких данных, входная переменная, которая неявно присутствует в начале программы, может принимать любое значение, поэтому она может быть ограничена одним из бесконечного множества списков, которые содержат "∋~kgjw₁⊥~n"в качестве элемента, создавая единый элемент. пункт выбора, к которому следует вернуться, когда после печати его источника программа попадет ⊥.

Python 3.6, 48 43 байта.

-5 байт благодаря @Jo King

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

Gol> <> , 10 байт

"r2sslRoao

Попробуйте онлайн!

Это, вероятно, может быть в гольфе больше