Chúng ta hãy sử dụng thực tế mở rộng để săn các sinh vật nhỏ ẩn trong mã nguồn. Viết chương trình quine xuất ra nguồn mã của riêng nó, ngoại trừ 5 ký tự liên tiếp sẽ được sửa đổi và sẽ hiển thị PCG-mon :(^_^)

5 ký tự liên tiếp có thể được định vị ở bất cứ đâu trong mã nguồn (từ vị trí 0đến n-5, nlà độ dài mã nguồn). Mã nguồn phải có độ dài tối thiểu 5 ký tự. Chuỗi (^_^)hoặc bất kỳ chuỗi con nào có độ dài> = 2 không được xuất hiện trong mã nguồn ban đầu, chỉ trong đầu ra.

Ví dụ về đệ trình hợp lệ:

• mã nguồn my source code, đầu ramy (^_^)e code

Không hợp lệ:

• mã nguồn (^_^) copy;, đầu ra(^_^) (^_^)

Tiêu chí chiến thắng

Mã ngắn nhất tính bằng byte thắng.

Javascript ES6, 44 byte

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

Đầu ra:

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

Vẫn làm việc trên sân golf, nhưng bây giờ nó hoạt động.

Vim, 33 , 27 tổ hợp phím

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

Lưu ý rằng <C-v>có nghĩa là ctrl + v, và là byte 0x16và <esc>là ký tự thoát và là byte 0x1B.

Điều này chỉ sử dụng một phiên bản sửa đổi một chút của Golf của tôi , bạn rất tuyệt vời! câu trả lời.

Đầu ra:

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

Điều này là hợp lệ vì ^Vcách vim đại diện <C-v>và ^[là cách vim đại diện <esc>.

Ý tưởng cơ bản, chỉ là nhập văn bản (^_^)theo các điểm mã của nó để chúng ta có thể tránh đưa các ký tự đó vào mã nguồn. Trong chế độ chèn, <C-v>numbersẽ chèn ký tự ASCII của "số". Tuy nhiên, vì thử thách nói:

Chuỗi (^_^)hoặc bất kỳ chuỗi con nào có độ dài> = 2 không được xuất hiện trong mã nguồn ban đầu, chỉ trong đầu ra.

Câu trả lời này lạm dụng các "substring" quy tắc bằng cách chỉ vào codepoints của ^nhân vật, và nhập (, _và )trực tiếp.

Đây là một gif cho phép bạn thấy giải pháp này hoạt động và đặt mã nguồn và đầu ra cạnh nhau để so sánh:

CJam , 13 11 byte

"(_)"
_p'^*

Trình thông dịch trực tuyến (-2 byte nhờ @MartinEnder) .

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

Python, 115 111 107 byte

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

Gọi f()và đầu ra là:

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

Lấy cảm hứng một phần bởi câu trả lời này cho một câu hỏi tương tự .

CJAM, 16 15 byte

Hãy thử nó ở đây .

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

Đi (golang), 131 byte

Thử thách này phải có câu trả lời trong 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)}

Hãy thử trực tuyến!

JavaScript (ES6), 91 byte

Đã có câu trả lời JavaScript, nhưng không có câu trả lời JS không đọc nguồn:

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

Điều này dựa trên câu trả lời không đọc nguồn của tôi cho Golf bạn một câu hỏi rất hay! . Đầu ra

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

Điều này có thể dễ dàng được sửa đổi bằng cách di chuyển xung quanh thứ hai %strong chuỗi. Ví dụ,

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

đầu ra

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

Thạch , 22 byte

“4094959441b³ỌØV”ṘVabc

Có sẵn tại TryItOnline

Sử dụng quine có khả năng tải trọng tích hợp“ØV”ṘV
Có abcthể thay thế phần cuối chỉ là phụ được
b³chuyển đổi số nguyên thành cơ sở 100, dẫn đến [40,94,95,94,41]
Ọphôi thành ký tự, kết quả (^_^)
là toàn bộ kết quả là“4094959441b³ỌØV”(^_^)

C # 5.0, 715 byte

Tôi biết, điều này là rất lớn. Chỉ muốn thêm một giải pháp 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();}}}

Đầu ra là:

/*^()_*/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();}}}

Có sẵn tại Ideone.com

MATL , 14 byte

')_`_*i't&Dwqh

Sản xuất đầu ra ')_`_*i'(^_^)h.

Hãy thử trực tuyến!

Giải trình

')_`_*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 byte

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, tôi không giỏi về quines: / Bất kỳ đề nghị nào để chơi golf nó đều được chào đón nhiều hơn! :-)