Göreviniz , orijinal kaynak kodu geçerli kodun ortasına her yapıştırıldığında , yan uzunluğunu 1 birim artıran bir ASCII-art karesini (aşağıda açıklanmaktadır) basan , eşit uzunlukta bir program yazmaktır .

Bu görevi çok iyi tanımlamak benim için oldukça zor, bu yüzden size bir örnek vereceğim:

• Diyelim ki ilk kodunuz CODEve basıldı:

  0
  

• Ardından, CODEortasına yerleştirin : kodunuz olur COCODEDEve yazdırılmalıdır:

  00
  00
  

• Ortasına tekrar yerleştiriniz CODE: kodunuz aşağıdaki hallerde COCOCODEDEDE yazacaktır:

  000
  000
  000
  

• Ve bunun gibi. Cevabınız teorik olarak herhangi bir sayıda yinelemeden sonra çalışmalıdır, ancak dil performansı sınırlamaları nedeniyle, belirli bir eşiğin üzerinde makul bir şekilde çalışamayacağını anlıyorum.

Bazı kurallar:

• Herhangi bir basılabilir ASCII'yi (32-127) kareniz için kullanılacak karakter olarak kullanabilirsiniz. Seçiminizin sabit olması gerekiyor (Her yineleme için aynı karakteri kullanmalısınız).

• İlk çıktı karesinin kenar uzunluğu 1 olmalıdır .

• Bir ascii sanat karesi, N satırlı ( N-1 satır beslemeleri / yeni satırlarla ayrılmış ) ve her satırda seçilen karakterin N kopyalarını içeren bir dize olarak tanımlanır .

• Çıktınızın izleyen bir yeni satır dışında herhangi bir yabancı alan içermesine izin verilmez.

• Girdi ve çıktı için varsayılanları kullanabilirsiniz (programlara veya işlevlere izin verilir, ancak snippet'lere izin verilmez).

• Orta Kodunuzun kaynak kodu iki eşit olduğu iki parça öyle de bölünebilir noktası olarak tanımlanmaktadır.

• Cevaplarınız orijinal programınızın uzunluğu ile byte olarak puanlanacaktır . En düşük bayt sayısı kazanır. Bir kravat olması durumunda, daha önce gönderilen cevap kazanır.

• Bu programı , el ile yapmak zorunda kalmadan eklemeleri uygulamak için kullanabilirsiniz .

Pyth , 2 bayt

5

Çevrimiçi deneyin! Ayrıca iki katına , üçe deneyin !

Bu nasıl çalışıyor?

\nargümanını eşzamanlı olarak döndürürken takip eden bir yeni satırla argümanını basan komuttur . Yani, bir ekleme yapmak her seferinde, değişmez tamsayı çevirmek 5 içeren bir dizi halinde N kopyalarını 5 birleştirilmiş ve lider yeni satırlar temelde böylece kare tutarak emin kez uygun sayıda basılmış olduğundan emin olun.

JavaScript (ES6), 42 32 30 bayt

s=[this.s]+0;  console.log(s);

İkinci yineleme:

s=[this.s]+0;  s=[this.s]+0;  console.log(s);console.log(s);

Bir ekleyerek bu eserler 0için skodunun ilk yarısında çalıştırılan her zaman ve baskı skendisini ikinci yarı her çalıştırıldığında. JavaScript’in dört tuhaflığından yararlanır:

1. Şu anki çevre ile belirtilebilir this. Bu yapmamızı sağlar this.syerine s.
2. Bir nesnede tanımlanmamış bir özelliğe erişirken, hata atmak yerine, JavaScript döndürür undefined.
3. Bir dizi artı bir sayı bir dize döndürür. [1,2,3] + 4 === "1,2,34"
4. Bir diziyi dizgileştirirken undefinedboş dizgeye dönüştürülür, bunun anlamı budur [undefined] + 0 === "0".

Bir araya getirelim, bu ilk yarıyı (sıfır dizisi oluşturarak) sadece 13 baytta ifade edebileceğimiz anlamına gelir. alertBunun yerine kullanılmasına console.logizin verilirse, ikinci yarıyı kısaltarak 4 bayt daha tasarruf edebiliriz.

05AB1E , 2 bayt

5=

Çevrimiçi deneyin!

Pyth cevabımın limanı .

Python 2 , 42 38 28 bayt

id='%s@'%id  ;print id[22:];

Çevrimiçi deneyin! . Ayrıca 2. ve 3. yinelemeleri deneyebilirsiniz.

Python 2 , 22 bayt

i=0;i+=1; i
print'*'*i

Çevrimiçi deneyin!

Doubled:

i=0;i+=1; ii=0;i+=1; i
print'*'*i
print'*'*i

İkinci yarıya yeni satır karakteriyle başladığını unutmayın.

C (gcc) , 170 168 96 80 72 70 bayt

Çok daha kısa versiyon. Yine de önişlemcisim olmadan bir çözüm bulabilmeyi diliyorum.

i;main(n){for(;i++<n;)printf
#if 0

#endif
(" %*c",n=__LINE__/4, 10);}

Çevrimiçi deneyin!

Eski 168 bayt sürümü:

#ifndef A
#define A p(c){putchar(c);}j,n;main(i){for(
#else
#define A n++,
#endif
A



#ifndef B
#define B i=++n;i--;p(10))for(j=n;j--;)p(64);}
#else
#define B
#endif
B

Çevrimiçi deneyin!

Python 2,30 bayt

False+=1      ;print'*'*False;

Çevrimiçi deneyin! , 2. ve 3. yineleme

Bu, Python'daki boollerin temelde ints ve Python 2'de isimlerin atandığı Falseve Trueyeniden atanabilecekleri gerçeğini kullanır .

Python 1 , 32 bayt

exit=exit+'*'  ;print exit[30:];

Çevrimiçi deneyin! , 2. ve 3. yineleme

Python 1'de yerleşik dizeler bulunur exitve quitkullanıcıyı etkileşimli kabuğun kullanıcıya nasıl çıkacağı konusunda bilgilendirmek için vardır. Varsayılan değer "Use Ctrl-D (i.e. EOF) to exit.".

Kömür , 6 bayt

⊞υωＬυ⸿

Çevrimiçi deneyin! Açıklama:

  ω     Predefined empty string (any variable would do here)
 υ      Predefined initially empty list
⊞       Push

υ tekrarlama sayısının uzunluğu ile sona erer.

    υ   List
   Ｌ    Length
        Implicitly print as a row of `-`s
     ⸿  Move to start of next line

Haskell , 68 bayt

let s@(z:n)="0\n"in case lines<$>[]of(h:t):_->(h:h:t)>>(z:h++n);_->s

Bir kez , iki kez veya üç kez çevrimiçi deneyin .

Haskell'in tembelliğinden dolayı, yukarıdaki gibi bir ifade, bu Meta sorusuna göre hiçbir argüman almayan bir işlev olarak sayılır .

brainfuck , 44 34 bayt

^{44 üzerinden çarpı hala 44 normaldir;}

,>-[<+>---]++++++++++[<]>[.>]<----

Çevrimiçi deneyin!

İki katına , üçe dene . Bak, dolgu yok!

Karelerini yazdırır U. 10 saniyenin tam ortasından ayrılıyor +.

Yakut, 18 bayt

$/=?x+$/;  puts$/;

Çevrimiçi deneyin! Doubled! Üç katına!

Brain-Flak , 74 bayt

(((((()()()){}){}){}){})((()()()()()<>){})<>([]){({}[()]<(({})<>)<>>)}{}<>

Çevrimiçi deneyin!

İki katına ve üçe katlamaya çalışın .

açıklama

(((((()()()){}){}){}){}) # push 48 ("0") onto first stack
((()()()()()<>){})       # push 10 (\n) onto second stack
<>([]){({}[()]<          # a number of times equal to the height of the first stack:
  (({})<>)<>             #   copy the top of the first stack to the second stack
>)}{}<>                  # cleanup and return to second stack

Kırılma noktası, <>"itme 10" bölümünün ortasındadır . Bunu parçalamak, ilgili ikinci yarıya ulaşana kadar üçüncü istif üzerinde 5 bırakacaktır; bu noktada 10 iterek, kaldığı yerden devam edecektir.

Yazdırılabilir bir ASCII değerini (boşluk) 22 bayta itmek mümkün olsa da, bu, merkezi <>bastıktan sonra çalıştırılmasını sağlar 5. İki bayt daha ekleyerek, <>itmeye doğru tüm ilerlemenin 10üçüncü yığında olduğu şekilde hareket etmeyi başardım . Bir bonus olarak, bu aynı zamanda ortaya çıkan kareyi estetik açıdan daha hoş hale getirdi.

tinylisp , 112 bayt

(load library) (d N((q((x)(i x(inc x)1)))(v(h(t(t(h(t(q())))))))))(join(repeat-val(string(repeat-val 42 N))N)nl)

Çevrimiçi deneyin! Ayrıca iki kat ve beş kat .

"İlk yarıda bir dize oluşturun, ikinci yarıda yazdırın" yaklaşımı, birçok dilin alındığı yaklaşımı tinylisp'te çalışmaz, çünkü değişken değişkenler yoktur. Bunun yerine, bazı ciddi kod yuvaları yapıyoruz.

Kodun ikinci bir kopyası eklendiğinde, (q())listeye sararak içine yerleştirilir . Ardından (h(t(t(h(t(...)))))), bu listeye sonradan devam eder (d N. (v(...))değerlendirir; daha sonra bir isim (q((x)(i x(inc x)1)))varsa sonuç değerini artıran ve boş liste ise 1 döndüren isimsiz işleve aktarırız . Kodun en dıştaki iç sürümündeki son sonuç atar N. Temelde, iç içe geçme düzeylerini sayan tuhaf bir özyineleme türü kurduk.

Kodun ikinci yarısı daha Nsonra bir yıldız işareti, daha sonra Nbu tür dizelerin bir listesini oluşturur ve ardından listeyi yeni satırlarda birleştirir. Sonuç takip eden bir yeni satır ile görüntülenir.

R , 44 bayt

F=F+1;T=TRUE*TRUE+12;
write(strrep(1,F),"");

Çevrimiçi deneyin!

Takip eden bir yeni satırla yazdırır. T=TRUE*TRUE+12Sadece ped uzunluğu etmektir.

O iki katına deneyin ve o üç katına deneyin .

Julia 0.6 , 29 bayt

Tüm fikirlerim, xnor'ın akıllı python çözümünü uyarlamaktan daha uzundu.

i=0;i+=1;    i
println("0"^i)

Oluyor

i=0;i+=1;    ii=0;i+=1;    i
println("0"^i)
println("0"^i)

Çevrimiçi deneyin!

SNOBOL4 (CSNOBOL4) , 130 68 bayt

Şimdi yorum yapmadan! Eski algoritmanın bir açıklaması için düzenleme geçmişine bakın .

	X =X + 1
	A =ARRAY(X,DUPL(1,X));
I	I =I + 1
	OUTPUT =A<I>	:S(I)
END

Çevrimiçi deneyin!

Deneyin bu iki katına ve üç katına

Açıklama:

	X =X + 1		;* increment X
	A =ARRAY(X,DUPL(1,X));	;* create an x-length array with 1 repeated x times for each element
I	I =I + 1		;* for i < x
	OUTPUT =A<I>	:S(I)	;* output a[i]
END

Bir ENDetiket gerektiğinden ve ilk ENDetiket dikkate alınmadığında herhangi bir şey göz ardı edildiğinden, bu zorluk için iki avantaj elde ederiz:

• Programın ilk yarısında yapılan işlemler tekrarlar Xiçin Xtekrarlanır.
• (tercümana), etiketler dahil , ikinci yarıdan sadece bir kopyası olacaktır .

Bu, ilk yarı için tekrarı kullandığımızı ve daha sonra çıkış Xzamanlarını tekrarlamak için daha "geleneksel" bir etiketleme yaklaşımı kullanabileceğimizi gösteriyor .

İlk yarı

	X =X + 1
	A =ARRAY(X,DUPL(1,X));

bu, tekrar zaman artırır Xkez uygun sayıda ve bir oluşturur ARRAY Adizinlere sahip 1için Xve burada her bir elemanının Adizesi 1tekrar Xkez.

Ardından, programın kaç kez tekrarlandığı önemli değildir, tercüman yalnızca şunu görür:

I	I =I + 1
	OUTPUT =A<I>	:S(I)
END

Bu, Aendeks sınırların dışına çıkana kadar bir kerede bir elemanlarını basan tipik bir SNOBOL programıdır ve programı sonlandırır.

;genellikle bayt sayısını 68'e getiren ve kodun buraya eklenmesine izin veren yarım noktayı işaretleyen tek satırlık EVALveya CODEdeyimler için ayrılan isteğe bağlı bir satır sonlandırıcıdır .

shortC , 56 44 bayt

^{-12 bayt: bekle duh ben shortC kullanıyorum neden bazı kısaltılmış C şeyler kullanmıyorum}

s[];A
strcat(s,"@");//
Js);/*filling space*/

Standart C'yi kullanırdım, ama bunun }sonunda çoğaltma ile uğraşan bir tane gerekir. shortC, EOF'ye dolaylı olarak yerleştirir.

• Çevrimiçi deneyin! (1x1)
• Çevrimiçi deneyin! (2x2)
• Çevrimiçi deneyin! (3x3)
• ...
• Çevrimiçi deneyin! (15x15)

Perl 5 , 25 bayt

İçin 24 bayt kodu + 1 -p.

Komut satırı bayraklarına izin vermek istemeyeceğiniz için teşekkür edin, lütfen bu geçerli değilse bana bildirin.

$@=0 x++$n;;$_="$@
"x$n;

Çevrimiçi deneyin!

Zsh , 10 bayt

s+=0
<<<$s

Çevrimiçi olarak tam bir test takımı deneyin!

... evet, bu biraz daha iyi. N kere dizeye ekle, sonra N kere bas. Dışarı Dönüşler <<<foo<<<foogayet eserleri.

Zsh , 64 bayt

Kullanılan karakter: (boşluk).

f(){printf '%*s\n' $1}
:<<'E'

E
repeat $[i=LINENO/3];f $i
exit

Çevrimiçi olarak tam bir test takımı deneyin!

Orta nokta, Eonu izleyen ikinci ve yeni satır arasındadır . Heredoc E, kodun tam ortasındaki bir satırda bir satır olduğunda sona erer .