mbomb007 bizden kendini yaratan bir program yapmamızı istedi . Bu ilginç bir meydan okuma, ancak kişisel olarak programlarımın kendi kendine sakatlanmalarını teşvik etmekten hoşlanmıyorum. Her programın merkezinde, ayrılmayı bekleyen güzel bir kelebek olduğunu düşünüyorum.

Bu nedenle, ilk Code Golf mücadelem için Stack Exchange'i bir kelebeği metamorph haline getirmek için zorluyorum. Programınız kendi kodunu giriş ve çıkış olarak kabul etmeli ve I am a caterpillar!ardından aynı dilde başka bir programın kodunu almalıdır (çıkışlar arasına bir bölücü koyabilirsiniz ya da değil ... ama biz kelebekler konuşuyoruz, bu yüzden saygınlık önemlidir!). Bu ikinci program çıktı vermeliI am a beautiful butterfly!

Metamorfoz: Bu program kendini değiştirmeli, bu yüzden kendisini girdi olarak geçiriyor. I am a caterpillar!Baskı kodundan sonra basılan bir deyimden başka hiçbir şey olmayan sıkıcı iç içe geçmiş bir program istemiyorum . Kodun kendisini metamormelleştirmelisiniz, bu nedenle en sıkıcı kabul edilebilir cevap yazdıran I am a caterpillar, ardından bir dizgeyi girişten (kod olan) kopyalayan ve basan cevaptır . Tabii ki, bu yazmak için çok zor küçük bir gerekliliktir, bu yüzden bir "meydan okuma ruhu" olarak düşünülmelidir. Resmi gereksinim, "Programınıza, programınızla aynı uzunlukta rastgele bir dize verilirse I am a butterfly, ikinci program çalıştırıldığında % 5'ten daha az yazdırma şansı olmalıdır ."

Özet:

• Girdi olarak kendi kodunu sağladığında, I am a caterpillar!ardından bir kaynak kod bloğunun (aralarında sınırlayıcı olsun veya olmasın) yazdırdığı bir program yazın .
• Bu ikinci kaynak kod bloğu, aynı dilde derlendiğinde / yorumlandığında yazdırılıyor I am a beautiful butterfly!
• Programınıza girdi olarak kendi kaynak kodunu vermediyseniz ve bunun yerine kendi koduna uymayan rastgele bir karakter dizesi verilirse, sonuç ya I am a butterfly!rasgele% 95'ine derlenemez / yorumlanamaz ya da yazdırılmamalıdır . stringler (spirit: girişten kendi kaynak kodunuzu okumanız ve onu bir kelebeğin içine dikilmeniz beklenir).
  • Metamorfoz fikrinin ruhuna sadık kaldığınız sürece, kendi kodunuzu değiştirdiğiniz sürece, bunu ispatlamamanız konusunda rahatım, ancak girdilerinizi kullanarak etrafında çalışmak için boşluk oyunu oynamayı deniyorsanız, kanıtlamak için.
• Standart boşluklar uygulanır

Bunların güzelliği ile değerlendirilmelerini isterdim, ancak bu kesinlikle nicel olmayan bir yaklaşım, bu nedenle normal "bayt sayısı" rotası yargılamak için kullanılabilir

Bonus : -20% - programınızın ilk 3 harfiyle eşleşmeyen 3 harfli bir dize seçin. Tırtıl programını çalıştırıyorsam, ancak girdiyi ilk 3 karakter belirtilenlerle değiştirilecek şekilde değiştirin, I am Batman!bunun yerine yazdırın . Daima Batman ol. ( Aynı rasgele dize kuralları bu ... metamorfoz için de geçerlidir! )

Önemsiz örnek (python):

"""
    print "I am a beautiful butterfly!"
    #print "I am Batman!"
"""
import sys
code = sys.stdin.read()
if code.startswith("YYZ"):
   # swap the comments between the print statements
   code = code.replace("#print", "_a").replace("print", "#print").replace("_a", "print")
code = [3:] # remove """ or XYZ
code = code.split('"""')[0]
print "I am a caterpillar!"
print code

Befunge-98, 602 bayt

                                        "^@<"v@@
                                     "'I'"00v>00g::
                                   "@v"0v@@@>g::a">#"
                                 "a">v@@>      0g::'"1>                                 /
                             ":\"'"v@>            'm'"00g:a                       >"@v$"
 "lufituaeb"'"'v00ga"@v\"'":'b\00v@>                :'a\":*84>"00ga"\>@@@@_,#:>"00g:a'<'"
"et"'"'va'v'":'l\00g5k:'""y!">>v@>                    g::'''""ut"'"'>a'<'""fr"'"00g3k:'">
 "ma"00g>'I~48*-~48*-+#@_>:#,_@>                        '"aa"---"aa"!rallipretac"00g:'a\

PyFunge'de test edilmiştir.

2 boşlukla başlamayan bir dizeyle çalıştırıldığında (rastgele olduğunda% 95'in üzerinde olasılık) hiçbir şey çıkarmaz. Bu tam olarak OP'nin aradığı şey değil, şartnameye uygun.

2 boşlukla başlayan bir dize (bunun gibi) iletildiğinde şunu verir:

I am a caterpillar!

---

"!y"       "l"v
v"te"     "rf"<
>"tu"'   "b"\v@
 v"beautiful"<
  >:#,_@@@@>\
 >48*:"a"\:$v@
  "ma"   v@#>
   'I'   <@^

Bunun alt kısmı sırayla şöyle çıkarır:

I am a beautiful butterfly!

PHP, 74 Bayt

<?=~¶ßž’ßžß,$s="caterpillar!",strtr($argv[1],[$s=>~šžŠ‹–™Š“ߊ‹‹š™“†Þ]);

• <?=eşdeğerdir <?php echove çıktıya birkaç virgülle ayrılmış değer alabilir
• ¶ßž’ßžßve šžŠ‹–™Š“ߊ‹‹š™“†ÞPHP'de geçerli sabit isimlerdir, fakat sabitler mevcut olmadığı için değişmez olarak yazılır. ~onları ters çevirir "I am a "ve "beautiful butterfly!"(her biri bir tırnak işareti için bir bayt kaydetme)
• strtr"tırtıl!" "güzel bir kelebek!" tartışmada

Pyth, 50 46 bayt

"I am a caterpillar!"+<z8"beautiful butterfly!

açıklama

"I am a caterpillar!"        print "I am a caterpillar!"
 z<8                         first 8 chars of input
+   "beautiful butterfly!    add "beautiful butterfly!" to that and print

Sonuçta ortaya çıkan kaynak kodu

"I am a beautiful butterfly!

Temel olarak metni basar.

Perl 6, 60 56 bayt

say "I am a caterpillar!"; s/\S+\!/beautiful butterfly!/

Düzgün çalışması için -p gerektirir; Bunu bayt sayımı ile hesapladım. Ne yazık ki Perl 6'nın olumsuz taraflarından biri, sözdiziminin şimdi çok daha katı olması ...

Retina, 53 bayt

caterpillar
beautiful butterfly
^
I am a caterpillar!

Çıktı:

I am a caterpillar!beautiful butterfly
beautiful butterfly
^
I am a beautiful butterfly!

I am a caterpillar! Yeni program arasında bir ayırıcı bulunmadığına dikkat edin . Yeni program girdi beklemiyor.

bash/ awk/ cksum- 179.2 169,6 168 bayt

awk '/^xyz/{print"I am Batman!";exit}NF{("cksum<<<'"'"'"substr($0,100))|getline r;if(r!~/^6689751/)exit}{printf"I am a %s%."!NF"s!\n",NF?"caterpillar":"beautiful"," butterfly"}NF&&sub(/!NF/,10){print"echo|"$0}'

Demo:

$ awk '/^xyz/{print"I am Batman!";exit}NF{("cksum<<<'"'"'"substr($0,100))|getline r;if(r!~/^6689751/)exit}{printf"I am a %s%."!NF"s!\n",NF?"caterpillar":"beautiful"," butterfly"}NF&&sub(/!NF/,10){print"echo|"$0}'<<'E'
> awk '/^xyz/{print"I am Batman!";exit}NF{("cksum<<<'"'"'"substr($0,100))|getline r;if(r!~/^6689751/)exit}{printf"I am a %s%."!NF"s!\n",NF?"caterpillar":"beautiful"," butterfly"}NF&&sub(/!NF/,10){print"echo|"$0}'
> E
I am a caterpillar!
echo|awk '/^xyz/{print"I am Batman!";exit}NF{("cksum<<<'"'"'"substr($0,100))|getline r;if(r!~/^6689751/)exit}{printf"I am a %s%."10"s!\n",NF?"caterpillar":"beautiful"," butterfly"}NF&&sub(/!NF/,10){print"echo|"$0}'
$ echo|awk '/^xyz/{print"I am Batman!";exit}NF{("cksum<<<'"'"'"substr($0,100))|getline r;if(r!~/^6689751/)exit}{printf"I am a %s%."10"s!\n",NF?"caterpillar":"beautiful"," butterfly"}NF&&sub(/!NF/,10){print"echo|"$0}'
I am a beautiful butterfly!

# Batman!
$ awk '/^xyz/{print"I am Batman!";exit}NF{("cksum<<<'"'"'"substr($0,100))|getline r;if(r!~/^6689751/)exit}{printf"I am a %s%."!NF"s!\n",NF?"caterpillar":"beautiful"," butterfly"}NF&&sub(/!NF/,10){print"echo|"$0}'<<'E'
> xyzawk '/^xyz/{print"I am Batman!";exit}NF{("cksum<<<'"'"'"substr($0,100))|getline r;if(r!~/^6689751/)exit}{printf"I am a %s%."!NF"s!\n",NF?"caterpillar":"beautiful"," butterfly"}NF&&sub(/!NF/,10){print"echo|"$0}'
> E
I am Batman!

# Invalid input
$ awk '/^xyz/{print"I am Batman!";exit}NF{("cksum<<<'"'"'"substr($0,100))|getline r;if(r!~/^6689751/)exit}{printf"I am a %s%."!NF"s!\n",NF?"caterpillar":"beautiful"," butterfly"}NF&&sub(/!NF/,10){print"echo|"$0}'<<'E'
> awk '/^xyz/{print"I am Batman!";exit}NF{("cksum<<<'"'"'"substr($0,100))|getline r;if(r!~/^6689751/)exit}{printf"I am a %s%."!NF"s!\n",NF?"caterpillar":"beautiful"," butterfly"}NF&&sub(/!NF/,10){print"echo|"$0{'
> E

İnşallah% 20 ile başlayan herhangi bir dize uygulanır xyz, aksi takdirde orijinal sayım 224 212 210 bayttır ( "I am Batman!"kısım düzeltildi ).

Dönüşüm yapılır: literal tek oluşumunu yer değiştirir !NFolan 10, böylece, " butterfly"bir de kullanılarak basılırprintf .

cksumKaynak kodun bir kısmında (yani geri kalanında) basit bir işlem gerçekleştirir , dolayısıyla gereksinimi de artar.

Uyarı: İlk giriş bitmelidir '. Yanlış girişi bastırmak için pek bir uyarı değil ...

İkinci bir giriş beklenmiyor.

Python - 184 bayt bonus için% -20 = 147.2

""""""
import sys;c=sys.stdin.read();print"I am a caterpillar!";x=c[3:] if"\'''"!=c[:3] else c
print x+c[:3]
""";print"I am a beautiful butterfly!" """
''';print"I am Batman";'''

Yazdırmak için I am batman, ilk üç çift tırnak girişindeki tek tırnak ile değiştirin. (İlk satır '''""")