Tugas Anda adalah menulis program dengan panjang genap , yang mencetak kotak ASCII-art (dijelaskan di bawah), yang menambah panjang sisinya sebesar 1 unit setiap kali kode sumber asli disisipkan di tengah kode saat ini.

Cukup sulit bagi saya untuk mendefinisikan tugas ini dengan sangat baik, jadi saya akan memberi Anda sebuah contoh:

• Katakanlah kode awal Anda sudah CODEdan sudah dicetak:

  0
  

• Kemudian, masukkan CODEdi tengah: kode Anda menjadi COCODEDEdan itu harus dicetak:

  00
  00
  

• Masukkan kembali CODEdi tengah: kode Anda menjadi COCOCODEDEDE dan harus dicetak:

  000
  000
  000
  

• Dan seterusnya. Jawaban Anda secara teoritis harus bekerja setelah sejumlah iterasi, tetapi saya mengerti jika, karena keterbatasan kinerja bahasa, itu tidak dapat berjalan secara wajar di atas ambang batas tertentu.

Beberapa peraturan:

• Anda dapat menggunakan ASCII yang dapat dicetak (32-127) sebagai karakter yang akan digunakan untuk kotak Anda. Pilihan Anda harus konstan (Anda harus menggunakan karakter yang sama untuk setiap iterasi).

• Kuadrat keluaran awal harus memiliki panjang sisi 1 .

• Kotak ascii-art didefinisikan sebagai string dengan garis N (dipisahkan oleh baris - baris N-1 / baris baru), dan dengan setiap baris yang berisi salinan N dari karakter yang dipilih.

• Output Anda tidak diizinkan mengandung spasi kosong apa pun, selain baris tambahan tambahan.

• Anda dapat menggunakan default untuk input dan output (program atau fungsi diizinkan, tetapi snippet tidak).

• Bagian tengah kode Anda didefinisikan sebagai titik di mana kode sumber dapat dibagi menjadi dua bagian sehingga keduanya sama.

• Jawaban Anda akan dinilai berdasarkan lama program asli Anda , dalam byte. Hitungan byte terendah menang. Jika ada seri, jawaban yang diajukan sebelumnya menang.

• Anda dapat menggunakan program ini untuk menerapkan sisipan tanpa harus melakukannya dengan tangan.

Pyth , 2 byte

5

Cobalah online! Juga Cobalah dua kali lipat , tiga kali lipat !

Bagaimana cara kerjanya?

\nadalah perintah yang mencetak argumennya dengan baris baru, sambil mengembalikannya secara bersamaan. Jadi, setiap kali Anda membuat penyisipan, Anda mengubah bilangan bulat 5 menjadi angka yang mengandung N salinan dari 5 bersambung, dan baris baru terkemuka pada dasarnya memastikan itu dicetak beberapa kali, sehingga menjaganya tetap persegi.

JavaScript (ES6), 42 32 30 byte

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

Iterasi kedua:

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

Ini berfungsi dengan menambahkan a 0ke ssetiap kali paruh pertama kode dijalankan, dan mencetak ssendiri setiap kali babak kedua dijalankan. Mengambil keuntungan dari empat kebiasaan JavaScript:

1. Lingkungan saat ini dapat disebut dengan this. Hal ini memungkinkan kita untuk melakukan this.sdi tempat s.
2. Saat mengakses properti yang belum didefinisikan pada objek, alih-alih melempar kesalahan, JavaScript kembali undefined.
3. Array plus angka mengembalikan sebuah string. [1,2,3] + 4 === "1,2,34"
4. Ketika meringkas array, undefineddikonversi ke string kosong, yang artinya [undefined] + 0 === "0".

Disatukan, ini berarti bahwa kita dapat mengekspresikan babak pertama (menghasilkan string nol) hanya dalam 13 byte. Jika menggunakan alertalih-alih console.logdiizinkan, kami dapat menyimpan 4 byte lebih banyak dengan memperpendek paruh kedua.

05AB1E , 2 byte

5=

Cobalah online!

Port jawaban Pyth saya .

Python 2 , 42 38 28 byte

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

Cobalah online! . Anda juga dapat mencoba iterasi ke - 2 dan ke - 3

Python 2 , 22 byte

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

Cobalah online!

Dua kali lipat:

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

Perhatikan bahwa babak kedua dimulai dengan karakter baris baru.

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

Versi yang jauh lebih pendek. Masih berharap saya bisa menemukan solusi tanpa preprocessor.

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

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

Cobalah online!

Versi lama 168 byte:

#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

Cobalah online!

Python 2 , 30 byte

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

Cobalah online! , Ke - 2 dan ke - 3 Iterasi

Ini memanfaatkan fakta bahwa bools di Python pada dasarnya adalah ints dan nama-nama Falsedan Truedipindahkan di Python 2.

Python 1 , 32 byte

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

Cobalah online! , Ke - 2 dan ke - 3 Iterasi

Dalam Python 1 string bawaan exitdan quitada untuk memberi tahu pengguna shell interaktif cara keluar. Nilai standarnya adalah "Use Ctrl-D (i.e. EOF) to exit.".

Arang , 6 byte

⊞υωＬυ⸿

Cobalah online! Penjelasan:

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

υ berakhir dengan jumlah pengulangan yang panjang.

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

Haskell , 68 byte

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

Cobalah online sekali , dua kali atau tiga kali .

Karena kemalasan Haskell ekspresi seperti yang di atas dianggap sebagai fungsi yang tidak mengambil argumen, sesuai pertanyaan Meta ini .

brainfuck , 44 34 byte

^{dicoret 44 masih teratur 44; (}

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

Cobalah online!

Coba dua kali lipat , tiga kali lipat . Lihat, tidak ada bantalan!

Mencetak kotak U. Itu terbelah di tengah-tengah 10 +s.

Ruby, 18 byte

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

Cobalah online! Dua kali lipat! Tiga kali lipat!

Brain-Flak , 74 byte

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

Cobalah online!

Coba dua kali lipat dan tiga kali lipat .

Penjelasan

(((((()()()){}){}){}){}) # 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

Titik istirahat ada di tengah <> di bagian "tekan 10". Memecah ini akan meninggalkan 5 pada tumpukan ketiga sampai kita mencapai babak kedua yang sesuai, di mana titik mendorong 10 akan melanjutkan tepat di tempat ia tinggalkan.

Meskipun dimungkinkan untuk mendorong nilai ASCII yang dapat dicetak (spasi) dalam 22 byte, ini akan membuat pusat <>dieksekusi setelah mendorong 5. Dengan menambahkan dua byte lagi, saya dapat memindahkan <>sehingga semua kemajuan menuju mendorong 10berada di tumpukan ketiga. Sebagai bonus, ini juga membuat kuadrat yang dihasilkan lebih estetis.

tinylisp , 112 byte

(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)

Cobalah online! Juga dua kali lipat dan lima kali lipat .

Pendekatan "bangun string di babak pertama, cetak di babak kedua" yang diambil banyak bahasa tidak akan berfungsi di tinylisp, karena tidak ada variabel yang dapat berubah. Sebagai gantinya, kami melakukan beberapa kode serius bersarang.

Ketika salinan kedua kode dimasukkan, ia ditempatkan di dalam (q()), yang membungkusnya dalam daftar. Kemudian (h(t(t(h(t(...))))))pelajari daftar itu untuk bagian selanjutnya (d N. (v(...))mengevaluasinya; kemudian kita meneruskannya ke fungsi yang tidak disebutkan namanya (q((x)(i x(inc x)1))), yang menambah nilai yang dihasilkan jika itu angka dan mengembalikan 1 jika itu daftar kosong. Hasil akhir di versi kode bersarang terluar ditugaskan untukN . Intinya, kami telah membuat semacam rekursi aneh yang menghitung jumlah level bersarang.

Bagian kedua dari kode kemudian membuat string Ntanda bintang, kemudian daftar Nstring tersebut, kemudian bergabung dengan daftar di baris baru. Hasilnya ditampilkan dengan baris baru tambahan.

R , 44 byte

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

Cobalah online!

Mencetak dengan baris baru yang tertinggal. The T=TRUE*TRUE+12hanya untuk pad panjang.

Coba dua kali lipat dan coba tiga kali lipat .

Julia 0,6 , 29 byte

Semua ide saya lebih lama dari mengadaptasi solusi python pintar xnor.

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

Menjadi

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

Cobalah online!

SNOBOL4 (CSNOBOL4) , 130 68 byte

Sekarang tanpa komentar! Lihat riwayat edit untuk penjelasan tentang algoritma lama.

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

Cobalah online!

Coba dua kali lipat dan tiga kali lipat

Penjelasan:

	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

Karena ENDlabel diperlukan dan apa pun setelah ENDlabel pertama diabaikan, kami mendapatkan dua keuntungan untuk tantangan ini:

• operasi di paruh pertama program diulangi Xkali untuk Xpengulangan
• hanya akan ada (untuk penerjemah) satu salinan dari babak kedua, termasuk label .

Ini menunjukkan bahwa kita menggunakan pengulangan untuk paruh pertama, dan kemudian kita dapat menggunakan pendekatan pelabelan yang lebih "konvensional" untuk mengulangi waktu keluaran X.

Paruh pertama adalah

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

yang, ketika diulangi, menambah Xjumlah kali yang tepat, dan membuat ARRAY Aindeks dengan dari 1ke Xdan di mana setiap elemen Aadalah string yang 1diulang Xkali.

Maka tidak peduli berapa kali program itu diulang, penerjemah hanya melihat:

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

yang merupakan program SNOBOL khas yang mencetak elemen Asatu per satu sampai indeks keluar dari batas, kemudian menghentikan program.

;adalah terminator jalur opsional yang biasanya disediakan untuk satu baris EVALatau CODEpernyataan yang cukup rapi sehingga jumlah byte menjadi 68 dan menandai titik setengahnya, memungkinkan kode ditambahkan di sana.

shortC , 56 44 byte

^{-12 byte: tunggu ya saya menggunakan shortC mengapa tidak menggunakan beberapa hal C disingkat}

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

Saya akan menggunakan standar C, tetapi itu membutuhkan }di akhir yang mengacaukan replikasi. shortC menyisipkannya di EOF secara implisit.

• Cobalah online! (1x1)
• Cobalah online! (2x2)
• Cobalah online! (3x3)
• ...
• Cobalah online! (15x15)

Perl 5 , 25 byte

24 byte kode +1 untuk -p.

Menghargai bahwa Anda mungkin tidak ingin mengizinkan bendera commandline, beri tahu saya jika ini tidak valid.

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

Cobalah online!

Zsh , 10 byte

s+=0
<<<$s

Coba suite tes lengkap secara online!

... ya, ini sedikit lebih baik. Tambahkan ke string N kali, lalu cetak N kali. Ternyata <<<foo<<<foobekerja dengan baik.

Zsh , 64 byte

Karakter yang digunakan: (spasi).

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

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

Coba suite tes lengkap secara online!

Titik tengah berada di antara baris kedua Edan baris baru yang mengikutinya. Sebuah heredoc akan berakhir ketika ada Eon-line dengan sendirinya, yang terjadi tepat di tengah-tengah kode.