Dün gece Radyasyonla Sertleştirilmiş Kine mücadelesi arıyordum, ama bulamadım. Henüz kimse bunu sormadı! İşte burada:

Göreviniz bir quine yapmak, yani kendi kaynağını okumadan basan boş olmayan bir bilgisayar programı. Ayrıca, orijinal programınızdan bir bayt kaldırırsanız, yeni programın orijinal programınızın kaynağını yazdırması gerekir.

Bu kod golf yani cevaplar daha az bayt daha iyi ile bayt olarak puanlanır.

Gol> <> , 49 45 bayt

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

Çevrimiçi deneyin!

Doğrulama!

Bunu Gol> <> yerine> <> 'da yaptım çünkü eski, yığındaki Ken iyi nöğeleri kopyalayan kullanışlı bir operatöre sahip , bu da kaynak kodun temiz kopyasını çoğaltmayı kolaylaştırıyor.

Açıklama:

Bu, yürütme kodunun iki kopyasını alarak ve birincisi hasar görmüşse ikincisine yönlendirerek çalışır. \Her ikisi de daha sonra telafi edilen son veya orta satırsonu kaldırıldığında bu başarısız olur .

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