Минулої ночі я шукав випромінювання, загартованого випромінюванням Quine, але не зміг його знайти. Виявляється, ще ніхто цього не запитував! Отже ось це:

Ваше завдання - скласти квіне, тобто не порожню комп'ютерну програму, яка друкує власне джерело, не читаючи його. Крім того, якщо ви видалите будь-який байт зі своєї оригінальної програми, нова програма повинна надрукувати джерело початкової програми.

Це код-гольф, тому відповіді набираються в байтах, менша кількість байтів - краща.

Гол> <> , 49 45 байт

<<H~Kla}\`q%2l}}ss2"<\
<<H~Kla}\`q%2l}}ss2"<\

Спробуйте в Інтернеті!

Перевірка!

Я робив це в Gol> <>, а не> <>, тому що у першого є зручний Kоператор, який копіює верхn елементи на стек, що полегшує дублювання чистої копії вихідного коду.

Пояснення:

Це працює, маючи дві копії виконуючого коду та перенаправляючи на другу, якщо перша пошкоджена. Це не вдається, коли останній \або середній новий рядок видалено, обидва вони компенсуються пізніше.

<<                       Redirect left 
                    <\  Switch to other source code if this line is irradiated
                   "     Push source with wrapping string literal
                ss2      Push quote
              }}         Move "< to end
          q%2l           If the length of the stack is not right
        \`               Push an extra \
       }                 Move the \ to the end
      a                  Newline
    Kl                   Duplicate the stack
   ~                     Pop the extra newline
  H                      Halt and print stack