Usemos la realidad aumentada para cazar pequeñas criaturas ocultas en el código fuente. Escriba un programa quine que genere su propio código fuente, excepto 5 caracteres consecutivos que serán modificados y que mostrarán un PCG-mon :(^_^)

Los 5 caracteres consecutivos se pueden colocar en cualquier lugar en el código fuente (de la posición 0para n-5, nsiendo la longitud de código fuente). El código fuente debe tener una longitud mínima de 5 caracteres. La cadena (^_^)o cualquiera de sus subcadenas de longitud> = 2 no debe aparecer en el código fuente inicial, solo en la salida.

Ejemplo de presentación válida:

• código fuente my source code, salidamy (^_^)e code

Inválido:

• código fuente (^_^) copy;, salida(^_^) (^_^)

Criterios ganadores

El código más corto en bytes gana.

Javascript ES6, 44 bytes

$=_=>`$=(\^\_\^\)${($+'').slice(5)};$()`;$()

Salida:

$=(^_^)=(\^\_\^\)${($+'').slice(5)};$()`;$()

Todavía estoy trabajando en golf, pero funciona por ahora.

Vim, 33 , 27 pulsaciones de teclas

qqqqqS(<C-v>94_<C-v>94)q@q<esc>hh"qPq@q

Tenga en cuenta que <C-v>significa ctrl + v, y es byte 0x16y <esc>es el carácter de escape y es byte 0x1B.

¡Esto solo usa una versión ligeramente modificada de mi Golf que te quine para bien! responder.

Salidas:

(^_^)S(^V94_^V94)q@q^[hh"qPq@q

Esto es válido ya que ^Ves la forma en que vim representa <C-v>y ^[es la forma en que vim representa <esc>.

La idea básica es simplemente ingresar el texto (^_^)por sus puntos de código para que podamos evitar poner esos caracteres en el código fuente. En el modo de inserción, <C-v>numberinsertará el carácter ASCII de "número". Sin embargo, ya que el desafío dice:

La cadena (^_^)o cualquiera de sus subcadenas de longitud> = 2 no debe aparecer en el código fuente inicial, solo en la salida.

Esta respuesta abusos del "subcadena" regla de solamente entrar en los puntos de código de los ^personajes, y entrando (, _y )directamente.

Aquí hay un gif que le permite ver esta solución en acción, y pone el código fuente y la salida lado a lado para comparar:

CJam , 13 11 bytes

"(_)"
_p'^*

Intérprete en línea (-2 bytes gracias a @MartinEnder) .

"(_)"             Push string
      _p          Duplicate and print repr with newline
        '^*       Join string with '^'

Python, 115 111 107 bytes

def f():s='def f():s=%r;print s%%s.replace(s[:5],"^".join("(_)"))';print s%s.replace(s[:5],"^".join("(_)"))

Llamada f()y la salida es:

def f():s='(^_^)():s=%r;print s%%s.replace(s[:5],"^".join("(_)"))';print s%s.replace(s[:5],"^".join("(_)"))

Inspirado en parte por esta respuesta a una pregunta similar .

CJAM, 16 15 bytes

Pruébalo aquí .

{"^(_)"(*}_~sss

Go (golang), 131 bytes

Este desafío debe tener una respuesta en Go!

package main;import"fmt";func main(){a:="package main;import\"fmt\";func(%c_%[1]c)(){a:=%q;fmt.Printf(a,94,a)}";fmt.Printf(a,94,a)}

Pruébalo en línea!

JavaScript (ES6), 91 bytes

Ya hay una respuesta de JavaScript, pero no hay una respuesta de JS que no lea la fuente:

a="a=%s;co%s.log(a,uneval(a),`(${'^'}_${'^'})`)";console.log(a,uneval(a),`(${'^'}_${'^'})`)

¡Esto se basa en mi respuesta que no es de lectura de fuente para Golf una quine por un gran bien! . Salidas

a="a=%s;co%s.log(a,uneval(a),`(${'^'}_${'^'})`)";co(^_^).log(a,uneval(a),`(${'^'}_${'^'})`)

Esto se puede modificar fácilmente moviéndose alrededor del segundo %sen la cadena. Por ejemplo,

a="a=%s;console.log(a,uneval(a),`($%s_${'^'})`)";console.log(a,uneval(a),`(${'^'}_${'^'})`)

salidas

a="a=%s;console.log(a,uneval(a),`($%s_${'^'})`)";console.log(a,uneval(a),`($(^_^)_${'^'})`)

Jalea , 22 bytes

“4094959441b³ỌØV”ṘVabc

Disponible en TryItOnline

Utiliza el quine con capacidad de carga incorporada. “ØV”ṘV
En abcel extremo solo hay que reemplazar el relleno
b³ convierte el entero en base 100, lo que resulta en [40,94,95,94,41]
Ọconversiones en caracteres, lo que da como (^_^)
resultado todo el resultado.“4094959441b³ỌØV”(^_^)

C # 5.0, 715 bytes

Lo sé, esto es enorme. Solo quería agregar una solución C #.

/*^()_*/using System.CodeDom;namespace System{class P{static void Main(){var b="/*^()_*/using System.CodeDom;namespace System{{class P{{static void Main(){{var b={0};var f=new string(new[]{{b[3],b[2],b[5],b[2],b[4]}});var w=new IO.StringWriter();CodeDom.Compiler.CodeDomProvider.CreateProvider(\"CSharp\").GenerateCodeFromExpression(new CodePrimitiveExpression(b),w,null);Console.WriteLine(b.Replace(\"[4]}}}}}}}}\",f),w);Console.ReadKey();}}}}}}";var f=new string(new[]{b[3],b[2],b[5],b[2],b[4]});var w=new IO.StringWriter();CodeDom.Compiler.CodeDomProvider.CreateProvider("CSharp").GenerateCodeFromExpression(new CodePrimitiveExpression(b),w,null);Console.WriteLine(b.Replace("[4]}}}}",f),w);Console.ReadKey();}}}

El resultado es:

/*^()_*/using System.CodeDom;namespace System{class P{static void Main(){var b="/*^()_*/using System.CodeDom;namespace System{{class P{{static void Main(){{var b={0};var f=new string(new[]{{b[3],b[2],b[5],b[2],b[4]}});var w=new IO.StringWriter();CodeDom.Compiler.CodeDomProvider.CreateProvider(\"CSharp\").GenerateCodeFromExpression(new CodePrimitiveExpression(b),w,null);Console.WriteLine(b.Replace(\"[4]}}}}}}}}\",f),w);Console.ReadKey();}}}}}}";var f=new string(new[]{b[3],b[2],b[5],b[2],b[4]});var w=new IO.StringWriter();CodeDom.Compiler.CodeDomProvider.CreateProvider("CSharp").GenerateCodeFromExpression(new CodePrimitiveExpression(b),w,null);Console.WriteLine(b.Replace("(^_^)}}",f),w);Console.ReadKey();}}}

Disponible en Ideone.com

MATL , 14 bytes

')_`_*i't&Dwqh

Produce la salida ')_`_*i'(^_^)h.

Pruébalo en línea!

Explicación

')_`_*i'  % Push this string
t&D       % Duplicate and get string representation (i.e. enclose with quotes)
w         % Swap
q         % Subtract 1. Transforms ')_`_*i' into the code points of '(^_^)h'
h         % Concatenate. Automatically casts code points to chars. Implicitly display

Bash, 178 bytes

Q='#(8_8)
printf "Q=\47"
echo -n "$Q"|sed -r "s~(_|\()8~\1^~g"
echo -e "\x27"
tail<<<"$Q" -n4'
printf "Q=\47"
echo -n "$Q"|sed -r "s~(_|\()8~\1^~g"
echo -e "\x27"
tail<<<"$Q" -n4

Pfff, no soy bueno en quines: / ¡Cualquier sugerencia para jugar más al golf es más que bienvenida! :-)