Olumlu bir tamsayı iç içe geçme düzeyi nve syazdırılabilir ascii karakterleri dizisi verilirse ( için ~, aynı dilde çalıştırıldığında, dizeyi çıkaran bir program çıktısı veren bir program çıktısı veren bir program çıkar.) s.

Her biri ncevabınız ile aynı dilde yürütülecek toplam program üretilmelidir.

Not: programları veya işlevleri çıkarabilirsiniz - varsayılan olarak gönderim olarak izin verilen bir şey.

Sen girdi may skaçan karakterlerle nasıl dilinize olur genelde girdi bir dize bir program veya fonksiyon.

Örnek

Örneğin, verilen n=1ve s="recursion"bir Python 2 programı çıktı verebilir:

print "recursion"

Bunu çalıştırmak çıktı verir:

recursion

Verilen n=2ve s = "PPCG", bir Python 2 programı çıktı verebilir:

print "print \"PPCG\" "

Bu çıktıların çalıştırılması:

print "PPCG"

Bu çıktıların çalıştırılması:

PPCG

İlgili (+ başlık ilham): Bir tane daha LUL ve ben yokum

: - (şimdi silinmiş ama hala yeterli bir üne sahip izlenebilir sanal alanında) Ayrıca İlgili Kaynak Kodu Özyineleme

Test Kılıfları

Kodunuzun aşağıdaki test durumları için çalıştığından emin olun (her satıra bir tane):

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

Jöle , 2 bayt

Ṿ¡

Çevrimiçi deneyin!

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

hehe yerleşikleri

JavaScript (ES6), 47 44 bayt

@HermanLauenstein sayesinde 3 bayt kaydedildi

Körleme sözdiziminde girdi alır (n)(s).

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

Örnek

f(2)('PPCG')

Çıkacak:

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

Hangi yazdıracak:

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

Hangi yazdıracak:

'PPCG'

gösteri

alert()Ara sonuçların konsola basılması ve otomatik olarak yürütülmesi için geçersiz kılınan daha karmaşık bir örnek .

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'"));

Alternatif versiyon, 40 bayt

@Shaggy tarafından önerildi

Bu, tam program yerine adsız bir işlev döndürür.

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

sh + coreutils, 31 bayt

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

Alır nbir komut satırı parametresi olarak ve sSTDIN.

Python 2,40 bayt

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

Çevrimiçi deneyin!

Xnor sayesinde -4 bayt

Haskell, 17 bayt

Bunu yazdığımda, golf oynamaya özgü olmayan bir dilin en kısa cevabı budur .

Bu, bu sıralamayı alan sve alan ve ndeğerlendirildiğinde bir sonraki kaynak kodunu döndüren bir ifadenin kaynak kodunu veya sonucunu döndüren bir işlevdir .

(!!).iterate show

Bunun neden önemli olduğuna dair argüman:

1. Çözümler fonksiyonlara izin verilir.
2. Çıkışlarının fonksiyon olmasına izin verilir.
3. Bu fonksiyonların parametresi yoktur.
4. Haskell'de tembel olduğu ve her şeyin kurumuş olduğu için en doğal olanı - pratik programlama amacıyla - 0 parametreli bir fonksiyonun tanımı, sonucuyla aynıdır; en yakın alternatif olan, parametreyi görmezden gelen 1 parametreli bir işlev aptaldır.

Eğer fverilir PPCGve 2parametreleri olarak, sonuç metindir "\"PPCG\""(ilk oluşturulan fonksiyonu), burada değerlendirildiği döner metin "PPCG"(ikinci oluşturulan işlev) ve değerlendirilmektedir zaman döner PPCG.

Kısalmayı önerdiğiniz için teşekkürler .

APL (Dyalog) , 24 23 bayt

-1 sayesinde ngn.

Bu STDOUT siçin ister ve daha sonra ister nve yazdırır tam bir programdır .

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

Çevrimiçi deneyin! (TIO'nun çıkış sınırını aştığı için 17 Deep case atlandı - çevrimdışı çalışıyor)

⍞ istemi s

⊢ verim (ayırmak ⎕ve ⍞)

''''{… Bu lambda'yı }⍣⎕ sorar nve tek bir alıntı ile uygular ve bu argümanı sol argüman olarak yapar. ⍺sol argümanı (alıntı) ve ⍵sağ argümanı (giriş metni) belirtir.

 ⍵=⍺ Metnin bir alıntıya eşit olduğu Boolean

 1+ bir tane ekle

 ⍵/⍨ argümanın her bir karakterini karşılık gelen sayıda tekrarlayın

 ⍺, teklif vermek

 ⍺,⍨ teklif eklemek

Bu, APL'deki dizelerin 'sınırlandırılması ve dizelerde tek tırnakların iki katına çıkarılması nedeniyle başka karakterlerin kaçmasına gerek olmadığı için çalışır.

Dyalog APL ayrıca ⎕SE.Dyalog.Utils.repObj, argümanına göre değerlendiren bir APL ifadesi üreten bir yardımcı program ( ) ile birlikte gelir ( Jelly'in ortalamasına benzer ). Bu nedenle, aşağıdaki program yukarıdakilere eşdeğerdir, ancak tüm diziler için çalışır :

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

Çevrimiçi deneyin!

Firefox JavaScript, 41 35 bayt

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

Firefox'un unevalneye benzediği gibi hoş bir özelliği var - verilen bir nesneyi eşitlemiyor - bu durumda - string.

Java 8, 95 93 bayt

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

@Lynn sayesinde -2 bayt .

Özel karakterlerden kaçmak Java'da çok can sıkıcıdır ..

Burada deneyin ve burada çıkan yöntemi deneyin .

Açıklama:

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 değişimi için ek açıklama:

.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

Neden tüm bu eğik çizgiler?

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

Düşük yük , 11 bayt

(a(S)*)~^^S

Çevrimiçi deneyin!

Girdi, yığında başlamalı, sayıları üstündeki kilise rakamı ile başlamalı . Bunun geçerli bir giriş yöntemi olup olmadığını bilmiyorum, ancak belirtimin girişi yok ve girişi yığının en üstüne yerleştirmek, bu tür dillerde kullanılan çok telli bir yöntem gibi görünüyor.

GolfScript , 5 bayt

~{`}*

Çevrimiçi deneyin!

QuadR , 8 bayt

Ngn'nin cevabının basit çevirisi .

Alır nargüman olarak ve sInput olarak.

^|'|$
'&

Çevrimiçi deneyin!

PCRE R, tüm örneklerini yerleştirir

^|'|$ Satırın başlangıcı VEYA Alıntı VEYA Satırın sonu

'& Alıntı ve tüm maç ile

Argüman, dönüşümü kaç kez tekrarlayacağını belirtir.

R , 62 bayt

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

Çevrimiçi deneyin!

Öyle f(n,s)diyoruz: bir nkopyasını takip ediyor()

Bir adlandırılmış işlev; isimsiz bir işlev döndürür. Öyle şey varsayılan değerlerini değiştirmek olduğunu formalsve fçıkan fonksiyonu (denen, ve sonra sonucu çağrılacak izin nsüreleri). ne zaman nulaşır 0, döndürür s.

R aslında kaçarken çok da kötü değil! Bu sadece, giriş almak değiştirmek zorunda böylece, kaçan C-stili "ile \"ve \ile \\ve daha sonra içinde her şeyi sarın " ".

Pyth, 21 bayt

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

Burada dene.

Ne yazık ki özyinelemeli işlev (yukarıdaki gibi tam program değil) daha uzun (24 bayt):

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

APL (Dyalog Klasik) , 19 bayt

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

Çevrimiçi deneyin!

Ruby , 34 bayt

%pPython'daki gibi inspectargümanının değerini alan, Ruby'ye özgü bir printf bayrağı %r. $><<baskı anlamına gelir.

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

Çevrimiçi deneyin!

Excel VBA (32 Bit), 67 Bayt

Sürüm 32-Bit Excel VBA ile Sınırlıdır, çünkü 2^i32-Bit VBA'da hatasız olarak değerlendirilmektedir, ancak 64-Bit VBA'da değildir

Girdileri aralıklardan alan ve aralarından alan nve anonim VBE acil durum pencere işlevi, yalnızca bir terminale göre değerlendirildiğinde ( yinelemelerden sonra ) yalnızca bu uçbirim olarak çıkan bir anonim işlev çıkarırs[A1][B1]ns

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

Örnek Giriş / Çıkış

[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