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

Як такий, для мого першого в історії виклику Code Golf я закликаю обмінятися стеками, щоб перетворити метелика. Ваша програма повинна приймати власний код як введення та виведення з I am a caterpillar!подальшим кодом для іншої програми на тій же мові (ви можете поставити роздільник між виходами чи ні ... але ми говоримо про метеликів, тому чіткість рахується!). Ця друга програма повинна вивестиI am a beautiful butterfly!

Метаморфоза: Ця програма повинна змінювати себе, саме тому вона передається сама як вхідна. Я не хочу нудної вкладеної програми, яка є не що інше, як твердження про друк з I am a caterpillar!подальшим друком вихідного коду. Ви повинні метаморфізувати сам код, тому найбільш нудною прийнятною відповіддю є той, який друкує I am a caterpillar, потім вириває рядок із вхідних даних (що трапляється з кодом) і друкує це. Звичайно, це дуже складна вимога до написання, тому слід розглядати її як "дух виклику". Формальна вимога буде встановлена ​​у "Якщо вашій програмі буде надано випадковий рядок такої ж довжини, що і ваша програма, при друкуванні програми друк має бути меншим, ніж 5% I am a butterfly."

Підсумок:

• Напишіть програму, яка при наданні власного коду як вхідного сигналу друкує I am a caterpillar!наступний блок вихідного коду (з роздільником між ними чи ні).
• Цей другий блок вихідного коду, коли компілюється / інтерпретується як однакова мова, друкується I am a beautiful butterfly!
• Якщо ваша програма не подається власним вихідним кодом як вхідним, а натомість їй надається випадкова рядок символів, що не відповідає її власному коду, результат повинен або не вдаватися до компіляції / інтерпретації, або не надрукувати I am a butterfly!принаймні 95% випадкових випадків рядки (дух: очікується, що ви прочитаєте власний вихідний код із вхідних даних і зшийте їх разом із метеликом).
  • Мені подобається, що ви цього не доказуєте, доки ви тримаєтесь духу метаморфози, змінюючи власний код, але якщо ви намагаєтеся грати в ігри із лазівками, щоб обійтись, використовуючи свої входи, сподівайтеся щоб довести це.
• Застосовуються стандартні лазівки

Я хотів би, щоб вони оцінювались за їх красою, але це рішуче некількісний підхід, тому звичайний маршрут "кількість байтів" можна використовувати для судження

Бонус : -20% - виберіть будь-яку 3 букву, яка не відповідає першим 3 буквам вашої програми. Якщо я запускаю програму гусениць, але змінюю вхід, щоб перші 3 символи були змінені на вказані, друкуйте I am Batman!замість цього. Завжди будь Бетменом. ( Для цього ... метаморфози застосовуються однакові випадкові рядкові правила! )

Тривіальний приклад (пітон):

"""
    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 байти

                                        "^@<"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.

Якщо запустити рядок, що не починається з двох пробілів (вірогідність набагато більше 95%, якщо випадково), нічого не виходить Це не зовсім те, що шукає ОП, але відповідає технічним умовам.

При передачі рядка, що починається з 2 пробілів (як і сам), виводиться це:

I am a caterpillar!

---

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

Нижня частина цього, у свою чергу, дає:

I am a beautiful butterfly!

PHP, 74 байт

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

• <?=еквівалентний <?php echoі може приймати для виведення кілька значень, розділених комами
• ¶ßž’ßžßі šžŠ‹–™Š“ߊ‹‹š™“†Þє дійсними постійними іменами в PHP, але через те, що константи не існують, трактуються як рядкові букви. ~перетворює їх у "I am a "та "beautiful butterfly!"(зберігаючи байт для одного лапки)
• strtrзамінює "гусениця!" з "прекрасним метеликом!" в аргументі

Pyth, 50 46 байт

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

Пояснення

"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

Отриманий вихідний код є

"I am a beautiful butterfly!

Який в основному друкує текст.

Perl 6, 60 56 байт

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

Потрібен -p для належного запуску; Я врахував це в кількості байтів. На жаль, одним із недоліків Perl 6 є те, що синтаксис зараз набагато суворіший ...

Сітківка, 53 байти

caterpillar
beautiful butterfly
^
I am a caterpillar!

Друкує:

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

Зауважте, що між I am a caterpillar! новою програмою немає роздільника . Нова програма не очікує введення.

bash/ awk/ cksum- 179,2 169,6 168 байт

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

Демонстрація:

$ 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

Я сподіваюсь, що 20% застосовується для будь-якого рядка, починаючи з цього xyz, інакше початкова кількість становить 224 212 210 байт (виправлена "I am Batman!"частина).

Перетворення зроблено: замінює тільки входження литерала !NFз 10, так що " butterfly"це також роздруковані з допомогоюprintf .

Виконує просту cksumчастину (тобто решту) вихідного коду, отже, і його вимога.

Застереження: перший вхід повинен закінчуватися '. Не стільки застереження, скільки придушення неправильного введення ...

Другий вхід не очікується.

Python - 184 байт -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";'''

Для друку I am batmanзамініть перші три подвійні лапки на одиничні лапки на вводі. (Перший рядок '''""")