กำหนดจำนวนเต็มบวกระดับการซ้อนnและสตริงsของตัวอักขระ ASCII ( เพื่อ~ออกโปรแกรมซึ่งเมื่อทำงานในภาษาเดียวกัน outputs โปรแกรมที่เอาท์พุทโปรแกรมที่... sที่เอาท์พุทสตริง

รวมnโปรแกรมควรจะสร้างขึ้นซึ่งทั้งหมดควรจะทำงานในภาษาเดียวกันกับคำตอบของคุณ

หมายเหตุ: คุณสามารถส่งออกโปรแกรมหรือฟังก์ชั่น - สิ่งที่คุณได้รับอนุญาตโดยค่าเริ่มต้นเป็นการส่ง

คุณสามารถป้อนsด้วยอักขระที่หลบหนีวิธีที่โปรแกรมหรือฟังก์ชั่นในภาษาของคุณมักจะใส่สตริง

ตัวอย่าง

ตัวอย่างเช่นที่กำหนดn=1และs="recursion"โปรแกรม Python 2 อาจส่งออก:

print "recursion"

การรันสิ่งนี้จะได้ผลลัพธ์:

recursion

ได้รับn=2และ s = "PPCG" โปรแกรม Python 2 อาจส่งออก:

print "print \"PPCG\" "

การรันเอาต์พุตนี้:

print "PPCG"

การรันเอาต์พุตนี้:

PPCG

ที่เกี่ยวข้อง (+ ชื่อเรื่องแรงบันดาลใจ): อีกหนึ่ง LUL และฉันไม่อยู่

ที่เกี่ยวข้องด้วย (ใน sandbox - ตอนนี้ถูกลบ แต่ยังสามารถดูได้ด้วยชื่อเสียงที่เพียงพอ): การเรียกซ้ำซอร์สโค้ด

กรณีทดสอบ

ตรวจสอบให้แน่ใจว่ารหัสของคุณใช้ได้กับกรณีทดสอบต่อไปนี้ (หนึ่งรายการต่อบรรทัด):

n s
2 PPCG
4 Robert'); DROP TABLE Students;--
17 Deep
2 Spaces In Here
3 "Don't forget quotes!"
5 'Backt`cks might be a h`tch'
6 5%s
8 [Brackets]<Are>(Great){Usually}
3 !"#$%&'()*+,-./ 0123456789:;<=>?@ABCDEFGHIJKLMN
6 OPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
7 THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
3 the quick brown fox jumps over the lazy dog

เยลลี่ 2 ไบต์

Ṿ¡

ลองออนไลน์!

Ṿ¡  Main link; left argument (text) is x, right argument (repetitions) is y
 ¡  Repeat y times:
Ṿ   Uneval x; produce code that outputs x

ฮิฮิบิวอิน

JavaScript (ES6), 47 44 ไบต์

บันทึกแล้ว 3 ไบต์ขอบคุณ @HermanLauenstein

(n)(s)จะเข้าในไวยากรณ์ currying

n=>g=s=>`alert(atob("${btoa(--n?g(s):s)}"))`

ตัวอย่าง

f(2)('PPCG')

จะส่งออก:

'alert(atob("YWxlcnQoYXRvYigiVUZCRFJ3PT0iKSk="))'

สิ่งที่จะพิมพ์:

'alert(atob("UFBDRw=="))'

สิ่งที่จะพิมพ์:

'PPCG'

การสาธิต

ตัวอย่างที่ซับซ้อนมากขึ้นซึ่งalert()ถูกเขียนทับเพื่อให้ผลลัพธ์ระดับกลางถูกพิมพ์ไปยังคอนโซลและดำเนินการโดยอัตโนมัติ

let f =

n=>g=s=>`alert(atob("${btoa(--n?g(s):s)}"))`

alert = s => { console.log(s); try { eval(s); } catch(e) {} }

alert(f(5)("'Backt`cks might be a h`tch'"));

รุ่นสำรอง 40 ไบต์

แนะนำโดย @Shaggy

อันนี้ส่งคืนฟังก์ชันที่ไม่ระบุชื่อแทนโปรแกรมเต็มรูปแบบ

n=>g=s=>`_=>atob("${btoa(--n?g(s):s)}")`

sh + coreutils, 31 ไบต์

yes exec sed 1d \$0|sed $1q;cat

ใช้nเป็นพารามิเตอร์บรรทัดคำสั่งและsบน STDIN

Python 2 , 40 ไบต์

f=lambda r,t:r and"print%r"%f(r-1,t)or t

ลองออนไลน์!

-4 ไบต์ขอบคุณ xnor

Haskell, 17 ไบต์

เมื่อฉันเขียนสิ่งนี้นี่เป็นคำตอบที่สั้นที่สุดสำหรับ ไม่ใช่นักกอล์ฟโดยเฉพาะภาษา

มันเป็นฟังก์ชั่นที่ใช้sและnเรียงตามลำดับและส่งคืนผลลัพธ์หรือซอร์สโค้ดของนิพจน์ซึ่งเมื่อประเมินแล้วจะส่งคืนซอร์สโค้ดถัดไป

(!!).iterate show

เหตุผลที่ทำไมจำนวนนี้ถึง:

1. โซลูชันได้รับอนุญาตให้ใช้งานได้
2. เอาต์พุตของพวกเขาได้รับอนุญาตให้ทำงาน
3. ฟังก์ชั่นเหล่านั้นไม่มีพารามิเตอร์
4. ใน Haskell เนื่องจากขี้เกียจและทุกอย่างเป็น curried ธรรมชาติที่สุดสำหรับวัตถุประสงค์ในการเขียนโปรแกรมปฏิบัตินิยามของฟังก์ชัน 0 พารามิเตอร์เหมือนกันกับผลของมัน ทางเลือกที่ใกล้เคียงที่สุดฟังก์ชั่น 1 พารามิเตอร์ซึ่งไม่สนใจพารามิเตอร์นั้นคือโง่

หากfได้รับPPCGและ2เป็นพารามิเตอร์ผลคือข้อความ"\"PPCG\""(ฟังก์ชั่นที่สร้างขึ้นครั้งแรก) ซึ่งเมื่อประเมินผลตอบแทนข้อความ"PPCG" (ที่สร้างขึ้นครั้งที่สอง) และเมื่อประเมินแล้วจะส่งคืนPPCGและเมื่อได้รับการประเมินว่าจะส่งกลับ

ขอบคุณnimi ที่แนะนำให้ย่อ

APL (Dyalog)หน้า24 23 ไบต์

-1 ขอบคุณ ngn

โปรแกรมนี้เป็นโปรแกรมเต็มรูปแบบที่แจ้งให้sและจากนั้นnและพิมพ์ไปยัง STDOUT

''''{⍺,⍨⍺,⍵/⍨1+⍵=⍺}⍣⎕⊢⍞

ลองออนไลน์! (กรณี Deep Deep 17 เว้นไว้เนื่องจากเกินขีด จำกัด เอาต์พุตของ TIO - ทำงานแบบออฟไลน์)

⍞ แจ้งให้ s

⊢ ให้ผลผลิตนั้น (เพื่อแยก⎕และ⍞)

''''{…ขอ}⍣⎕ พรอมต์nและใช้แลมบ์ดานี้โดยอ้างคำพูดเดียวเป็นข้อโต้แย้งที่เหลืออยู่หลายครั้ง ⍺หมายถึงอาร์กิวเมนต์ซ้าย (เครื่องหมายคำพูด) และ⍵หมายถึงอาร์กิวเมนต์ขวา (ข้อความอินพุต):

 ⍵=⍺ บูลีนที่ข้อความเท่ากับเครื่องหมายคำพูด

 1+ เพิ่มหนึ่ง

 ⍵/⍨ ทำซ้ำแต่ละอักขระของอาร์กิวเมนต์ตามจำนวนครั้งที่สอดคล้องกัน

 ⍺, เสริมคำพูด

 ⍺,⍨ ต่อท้ายคำพูด

สิ่งนี้ใช้ได้เนื่องจากสตริงใน APL เป็น'ตัวคั่นและเครื่องหมายคำพูดเดี่ยวในสตริงจะเพิ่มเป็นสองเท่าในขณะที่ไม่จำเป็นต้องใช้อักขระอื่น

Dyalog APL ยังมาพร้อมกับยูทิลิตี้ ( ⎕SE.Dyalog.Utils.repObj) ที่สร้างนิพจน์ APL ซึ่งประเมินค่าอาร์กิวเมนต์ของมัน (คล้ายกับJelly Uneval ) โปรแกรมต่อไปนี้จึงเทียบเท่ากับข้างต้น แต่ใช้ได้กับอาร์เรย์ทั้งหมด :

⎕SE.Dyalog.Utils.repObj⍣⎕⊢⎕

ลองออนไลน์!

Firefox JavaScript, 41 35 ไบต์

f=(s,n)=>"_=>"+uneval(--n?f(s,n):s)

Firefox มีรูปแบบที่ดีunevalซึ่งทำหน้าที่เหมือน - เปิดใช้งานวัตถุที่กำหนดในกรณีนี้ - สตริง

Java 8, 95 93 ไบต์

String c(String s,int n){return"v->\""+(n-->1?c(s,n).replaceAll("[\\\\\"]","\\\\$0"):s)+'"';}

-2 ไบต์ขอบคุณที่@Lynn

การหลบหนีอักขระพิเศษนั้นน่ารำคาญใน Java ..

ลองได้ที่นี่และลองใช้วิธีการที่เกิดขึ้นที่นี่

คำอธิบาย:

String c(String s,int n){  // Method with String and int parameters and String return-type
  return"v->\""+           //  Return literal "v->" + a leading double-quote +
   (n-->1?                 //   If `n` is larger than 1:
     c(s,n)                //    Recursive-call,
      .replaceAll("[\\\\\"]","\\\\$0")
                           //    with all double-quotes ('"') and slashes ('\') escaped
    :                      //   Else:
     s)                    //    The input String
   +'"';                   //   + a trailing double quote
}                          // End of method 

คำอธิบายเพิ่มเติมสำหรับการเปลี่ยน regex:

.replaceAll("[\\\\\"]","\\\\$0")
.replaceAll("        ","      ")  // Replace the match of the 1st String, with the 2nd
             [      ]             //  One of these inner characters:
              \\\\                //   Escaped slash ('\')
                  \"              //   Escaped double-quote ('"')
                                  //  And replace them with:
                        \\\\      //   Escaped slash ('\'),
                            $0    //   plus found match

ทำไมเครื่องหมายเหล่านี้ทั้งหมด

\   →  \\       // Escapes a single slash for the regex
\\  →  \\\\     // Escapes both regex-escaped slashes for the String
"   →  \"       // Escapes a double-quote for the String

อันเดอร์โหลด , 11 ไบต์

(a(S)*)~^^S

ลองออนไลน์!

การป้อนข้อมูลความต้องการที่จะเริ่มต้นในกองมีจำนวนที่ด้านบนในรูปแบบของตัวเลขคริสตจักร ฉันไม่รู้ว่านี่เป็นวิธีการป้อนข้อมูลที่ถูกต้องหรือไม่ แต่ข้อมูลจำเพาะไม่มีอินพุตและการวางอินพุตไปที่ด้านบนสุดของสแต็กดูเหมือนว่าวิธีการควั่นที่ใช้ในภาษาดังกล่าว

GolfScript 5 ไบต์

~{`}*

ลองออนไลน์!

QuadR , 8 ไบต์

แปลง่ายๆของคำตอบของ NGN

ใช้nเป็นอาร์กิวเมนต์และsเป็นอินพุต

^|'|$
'&

ลองออนไลน์!

PCRE Rแทนที่ทุกกรณีของ

^|'|$ จุดเริ่มต้นของบรรทัดหรือการอ้างอิงหรือจุดสิ้นสุดของบรรทัด

'& ด้วยการเสนอราคาและการแข่งขันทั้งหมด

อาร์กิวเมนต์ระบุจำนวนครั้งที่จะทำการแปลงซ้ำ

R , 62 ไบต์

f=function(n,s){"if"(n,{formals(f)$n=n-1;formals(f)$s=s;f},s)}

ลองออนไลน์!

เรียกว่าเป็นอย่างนั้น: f(n,s)ตามด้วยnสำเนาของ()

ฟังก์ชั่นที่มีชื่อ; ส่งคืนฟังก์ชั่นที่ไม่ระบุชื่อ ทั้งหมดมันไม่สามารถปรับเปลี่ยนค่าเริ่มต้นของformalsการfช่วยให้ฟังก์ชั่นที่เกิดจะเรียกว่า (แล้วผลของการที่เรียกว่าnครั้ง) เมื่อnมาถึงก็จะส่งกลับ0s

จริงๆแล้ว R ก็ไม่ได้แย่ไปกว่าการหลบหนี! จะใช้แบบ C หลบหนีดังนั้นคุณก็ต้องใช้เวลาใส่แทนที่"ด้วย\"และ\ด้วยและแล้วห่อสิ่งที่ทั้งใน\\" "

Pyth, 21 ไบต์

L++NsXbJ,N\\+L\\JNyFz

ลองที่นี่

น่าเสียดายที่ฟังก์ชั่นวนซ้ำ (ไม่ใช่โปรแกรมเต็มดังด้านบน) มีความยาวมากกว่า (24 ไบต์):

M?GgtG++NsXHJ,N\\+L\\JNH

APL (Dyalog Classic)ขนาด 19 ไบต์

'^|''|$'⎕r'''&'⍣⎕⊢⍞

ลองออนไลน์!

Ruby , 34 ไบต์

%pเป็นแฟล็ก printf เฉพาะ Ruby ที่รับinspectค่าของอาร์กิวเมนต์คล้ายกับ%rใน Python $><<หมายถึงพิมพ์

f=->n,s{"$><<%p"%(n>1?f[n-1,s]:s)}

ลองออนไลน์!

Excel VBA (32- บิต), 67 ไบต์

รุ่นถูก จำกัด ไว้ที่ Excel VBA 32 บิตเนื่องจาก2^iประเมินโดยไม่มีข้อผิดพลาดใน VBA 32 บิต แต่ไม่ใช่ใน VBA 64 บิต

ไม่ประสงค์ออกนาม VBE ฟังก์ชั่นหน้าต่างทันทีที่ใช้ปัจจัยการผลิตnและsจากจากช่วง[A1]และ[B1]และผลการทำงานที่ไม่ระบุชื่อว่าเมื่อประเมินลงไปเพียงขั้ว (หลังจากnซ้ำ) เอาท์พุทเพียงsเป็นขั้วที่

For i=0To[A1-1]:q=q+"?"+String(2^i,34):Next:?q[B1]Replace(q,"?","")

ตัวอย่างอินพุต / เอาต์พุต

[A1:B1]=Array(7, "PPCG")
For i=0To[A1-1]:q=q+"?"+String(2^i,34):Next:?q[B1]Replace(q,"?","")
?"?""?""""?""""""""?""""""""""""""""?""""""""""""""""""""""""""""""""?""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""PPCG"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
?"?""?""""?""""""""?""""""""""""""""?""""""""""""""""""""""""""""""""PPCG"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
?"?""?""""?""""""""?""""""""""""""""PPCG"""""""""""""""""""""""""""""""
?"?""?""""?""""""""PPCG"""""""""""""""
?"?""?""""PPCG"""""""
?"?""PPCG"""
?"PPCG"
PPCG