J, 126 124 121 119 116 115 113 105 116 115 112 karakter
'|'s":(' 's[:,.(_6[\' || (__)'){~(,-.))&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1[(s=:[,.~,.)9!:7'\=/<=>/=\|='
Mengambil input dari keyboard. Contoh:
'|'s":(' 's[:,.(_6[\' || (__)'){~(,-.))&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1[(s=:[,.~,.)9!:7'\=/<=>/=\|='
6302715408
|\==============================================================/|
|| (__) (__) (__) (__) (__) (__) (__) (__) (__) (__) ||
|| || (__) (__) (__) || (__) || (__) (__) || ||
|| || || || || || || || || || || ||
|| (__) || || || (__) || (__) || || (__) ||
|<==============================================================>|
|| (__) (__) || (__) (__) (__) || (__) || (__) ||
|| || (__) || (__) (__) || || (__) || (__) ||
|| || (__) || || || || || (__) || (__) ||
|| || || || || || || || (__) || || ||
|| || || || || || || || || || || ||
|| || || (__) || || || (__) || (__) || ||
|| (__) || (__) || || (__) (__) || (__) || ||
|| (__) || (__) (__) (__) (__) (__) || (__) || ||
|| (__) (__) (__) (__) (__) (__) (__) || (__) (__) ||
|| (__) (__) (__) (__) (__) (__) (__) (__) (__) (__) ||
|/==============================================================\|
Trik utama di sini adalah penyalahgunaan tinju J dengan mendefinisikan ulang karakter yang digunakannya. Ini menggunakan parameter global - 9!:7
- untuk melakukan ini. Mungkin ada ruang untuk bermain golf lebih lanjut, tetapi sejujurnya saya hanya senang mendapatkan sesuatu yang berfungsi yang dapat mengimbangi upaya terakhir saya pada pertanyaan ini .
Cocok dalam tweet dengan karakter yang tersisa untuk mengatakan 'Gaz made this' :-).
Sunting: 3 karakter penghematan adalah karena meminjam jawaban 2 6$' || (__)'
dari Jesse Millikan .
Sunting lebih lanjut: Kehilangan 11 karakter yang menambahkan ruang ekstra di kedua sisi yang tidak saya perhatikan tidak ada.
Penjelasan:
Kode ini ada dalam tiga bagian utama:
1) Pengaturan
[(s=:[,.~,.)9!:7'\=/<=>/=\|='
Ini sendiri dalam dua bagian.
9!:7'\=/<=>/=\|='
mendefinisikan kembali karakter yang akan digunakan J untuk menampilkan kotak. Tinju J biasanya terlihat seperti ini:
2 2$<"0[1 2 3 4
┌─┬─┐
│1│2│
├─┼─┤
│3│4│
└─┴─┘
tetapi setelah mendefinisikan ulang tampilannya seperti ini:
2 2$<"0[1 2 3 4
\===/
|1|2|
<===>
|3|4|
/===\
(s=:[,.~,.)
mendefinisikan kata kerja yang akan saya gunakan beberapa kali kemudian. Ini ternyata menjadi tempat terbaik untuk mendeklarasikannya. Dibutuhkan karakter di sebelah kiri dan array karakter di sebelah kanan dan sandwich array di antara karakter. Sebagai contoh:
3 5$'abcdefghijklmno'
abcde
fghij
klmno
'-' s 3 5$'abcdefghijklmno'
-abcde-
-fghij-
-klmno-
Final [
hanya berfungsi untuk memisahkan pengaturan dari bagian selanjutnya.
2) Input dan Representasi
,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
".,.1!:1[1
mengambil input dari keyboard dan memisahkannya menjadi satu digit:
".,.1!:1[1
314159
3 1 4 1 5 9
((i.5)</5|])
menciptakan angka nol dan representasi dari bagian bawah sempoa:
((i.5)</5|]) 3 1 4 1 5 9
1 1 1 1 0 1
1 0 1 0 0 1
1 0 1 0 0 1
0 0 1 0 0 1
0 0 0 0 0 0
|:@(1,.<&5)
menciptakan angka nol dan representasi dari bagian atas sempoa:
|:@(1,.<&5) 3 1 4 1 5 9
1 1 1 1 1 1
1 1 1 1 0 0
Kedua bagian ini dikotak bersama menggunakan ;
:
(|:@(1,.<&5);((i.5)</5|])) 3 1 4 1 5 9
\=======================/
|1 1 1 1 1 1|1 1 1 1 0 1|
|1 1 1 1 0 0|1 0 1 0 0 1|
| |1 0 1 0 0 1|
| |0 0 1 0 0 1|
| |0 0 0 0 0 0|
/=======================\
Kemudian kotak-kotak ditempatkan satu di atas yang lain untuk membentuk dasar sempoa, memberikan:
,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
314159
\===========/
|1 1 1 1 1 1|
|1 1 1 1 0 0|
<===========>
|1 1 1 1 0 1|
|1 0 1 0 0 1|
|1 0 1 0 0 1|
|0 0 1 0 0 1|
|0 0 0 0 0 0|
/===========\
3) Output
'|'s":(' 's[:,.(_6[\' || (__)'){~(,-.))&.>
&.>
berarti apa yang mengikuti akan beroperasi pada kedua kotak pada gilirannya.
(,-.)
ini adalah pengait yang akan meniadakan input dan kemudian menambahkannya ke akhir dokumen asli:
2 5$1 0 1 0 1
1 0 1 0 1
1 0 1 0 1
(,-.) 2 5$1 0 1 0 1
1 0 1 0 1
1 0 1 0 1
0 1 0 1 0
0 1 0 1 0
Ini benar-benar bagian dari representasi, tetapi untuk tujuan golf lebih baik memilikinya di bagian ini. Diterapkan ke input sebelumnya:
(,-.)&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
314159
\===========/
|1 1 1 1 1 1|
|1 1 1 1 0 0|
|0 0 0 0 0 0|
|0 0 0 0 1 1|
<===========>
|1 1 1 1 0 1|
|1 0 1 0 0 1|
|1 0 1 0 0 1|
|0 0 1 0 0 1|
|0 0 0 0 0 0|
|0 0 0 0 1 0|
|0 1 0 1 1 0|
|0 1 0 1 1 0|
|1 1 0 1 1 0|
|1 1 1 1 1 1|
/===========\
[:,.(_6[\' || (__)'){~
Nol dan yang sekarang digunakan untuk memilih string untuk mewakili manik atau tidak adanya:
([:,.(_6[\' || (__)'){~(,-.))&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
314159
\====================================/
| (__) (__) (__) (__) (__) (__) |
| (__) (__) (__) (__) || || |
| || || || || || || |
| || || || || (__) (__) |
<====================================>
| (__) (__) (__) (__) || (__) |
| (__) || (__) || || (__) |
| (__) || (__) || || (__) |
| || || (__) || || (__) |
| || || || || || || |
| || || || || (__) || |
| || (__) || (__) (__) || |
| || (__) || (__) (__) || |
| (__) (__) || (__) (__) || |
| (__) (__) (__) (__) (__) (__) |
/====================================\
Tapi sekarang, seperti yang ditunjukkan Howard kepada saya, ada satu ruang pendek di kedua sisi manik-manik. Jadi kami menggunakan s
kata kerja yang telah ditentukan sebelumnya untuk mengapit isi setiap kotak antara dua kolom spasi:
(' 's[:,.(_6[\' || (__)'){~(,-.))&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
314159
\======================================/
| (__) (__) (__) (__) (__) (__) |
| (__) (__) (__) (__) || || |
| || || || || || || |
| || || || || (__) (__) |
<======================================>
| (__) (__) (__) (__) || (__) |
| (__) || (__) || || (__) |
| (__) || (__) || || (__) |
| || || (__) || || (__) |
| || || || || || || |
| || || || || (__) || |
| || (__) || (__) (__) || |
| || (__) || (__) (__) || |
| (__) (__) || (__) (__) || |
| (__) (__) (__) (__) (__) (__) |
/======================================\
Setelah melakukan itu, yang tersisa adalah mengonversinya menjadi string menggunakan ":
sehingga kita dapat memasukkannya di antara dua kolom |
:
'|'s":(' 's[:,.(_6[\' || (__)'){~(,-.))&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
314159
|\======================================/|
|| (__) (__) (__) (__) (__) (__) ||
|| (__) (__) (__) (__) || || ||
|| || || || || || || ||
|| || || || || (__) (__) ||
|<======================================>|
|| (__) (__) (__) (__) || (__) ||
|| (__) || (__) || || (__) ||
|| (__) || (__) || || (__) ||
|| || || (__) || || (__) ||
|| || || || || || || ||
|| || || || || (__) || ||
|| || (__) || (__) (__) || ||
|| || (__) || (__) (__) || ||
|| (__) (__) || (__) (__) || ||
|| (__) (__) (__) (__) (__) (__) ||
|/======================================\|