Buat Kotak Runcing

31

Diberi dua bilangan bulat positif, W dan H, menghasilkan kotak ASCII-art yang perbatasannya terbuat dari garis miring ( /dan \) dengan "paku" W di tepi atas dan bawah, dan H "paku" di tepi kiri dan kanan. Interior kotak dipenuhi dengan ruang.

"Spike" hanyalah dua garis miring yang bergabung membentuk bentuk panah:

/\    \/

/      \
\      /

Jadi hasilnya W = 4, H = 3adalah

/\/\/\/\
\      /
/      \
\      /
/      \
\/\/\/\/

karena ada 4 paku di atas menunjuk ke atas, 4 di bawah menunjuk ke bawah, 3 di kiri menunjuk ke kiri, dan 3 di kanan menunjuk ke kanan.

Berikut adalah beberapa pasangan input / output lainnya:

W H
[spiky slash box]

1 1
/\
\/

1 2
/\
\/
/\
\/

2 1
/\/\
\/\/

2 2
/\/\
\  /
/  \
\/\/

1 3
/\
\/
/\
\/
/\
\/

3 1
/\/\/\
\/\/\/

2 3
/\/\
\  /
/  \
\  /
/  \
\/\/

3 2
/\/\/\
\    /
/    \
\/\/\/

10 1
/\/\/\/\/\/\/\/\/\/\
\/\/\/\/\/\/\/\/\/\/

10 2
/\/\/\/\/\/\/\/\/\/\
\                  /
/                  \
\/\/\/\/\/\/\/\/\/\/

4 5
/\/\/\/\
\      /
/      \
\      /
/      \
\      /
/      \
\      /
/      \
\/\/\/\/

Tidak ada garis dalam output yang harus memiliki spasi awal atau akhir. Secara opsional mungkin ada satu baris tambahan.

Kode terpendek dalam byte menang.

code-golf  string  ascii-art  integer 
— Hobi Calvin
sumber
Bisakah seseorang yang javascripts membuat potongan stack untuk ini?
— FantaC

Jawaban:

15

Arang , 9 byte

ＢײＮײＮ/\

Cobalah online!

Penjelasan

Ｂ           Box
  ײＮ       Next input as number * 2
      ײＮ   Next input as number * 2
          /\ With border "/\"
— Khusus ASCII
sumber
3
Tentu saja Charcoal memiliki built-in untuk 'draw box'
— benzene
1
@Benzene Agak beruntung bahwa dia baru-baru ini menambahkan kemampuan untuk menggambar string yang sewenang-wenang di sekitar kotak, tetapi bahkan sebelum itu ada jawaban seperti codegolf.stackexchange.com/a/120065
— Neil
1
@Neil tunggu baru-baru ini? Kapan? (Apakah saya tahu Charcoal kurang baik terima kasih? Haha)
— ASCII
@ ASCII-only Buruk saya! Saya bingung karena perubahan yang mengembalikan posisi kursor. (Perubahan yang memperkenalkan string perbatasan arbitrer adalah ca904b0 yang hampir setahun yang lalu.)
— Neil
@ Benzene Tanpa kotak builtin itu masih hanya 13 byte: Ｆ²«↷Ｐ…\/Ｎ»‖Ｍ¬(mengambil input tinggi, urutan lebar).
— Neil
11

MATL , 18 byte

'\/',iE:]!+)O6Lt&(

Cobalah di MATL Online!

Penjelasan

Pertimbangkan input W = 4, H = 3. Kode membangun vektor baris [1 2 3 4 5 6 7 8](mulai dari 1ke 2*W) dan [1 2 3 4 5 6](mulai dari 1ke 2*H). Transposing yang terakhir dan menambahkan ke yang pertama dengan siaran memberikan matriks

2  3  4  5  6  7  8  9
3  4  5  6  7  8  9 10
4  5  6  7  8  9 10 11
5  6  7  8  9 10 11 12
6  7  8  9 10 11 12 13
7  8  9 10 11 12 13 14

Pengindeksan modular ke dalam string \/menghasilkan hasil yang diinginkan di perbatasan matriks:

/\/\/\/\
\/\/\/\/
/\/\/\/\
\/\/\/\/
/\/\/\/\
\/\/\/\/

Untuk menghapus nilai-nilai non-perbatasan, kami atur ke 0(ketika diartikan sebagai char, ditampilkan sebagai spasi):

/\/\/\/\
\      /
/      \
\      /
/      \
\/\/\/\/

Kode yang dikomentari:

'\/'    % Push this string. Will be indexed into
,       % Do twice
  i     %   Input a number
  E     %   Multiply by 2
  :     %   Range 
]       % End
!       % Transpose
+       % Add
)       % Index
O       % Push 0
6L      % Push [2 -1+1j]. As an index, this means 2:end
t       % Duplicate
&(      % Write 0 into the center rectangle. Implicit display
— Luis Mendo
sumber
7

Haskell , 90 88 87 82 byte

1 6 byte disimpan berkat Lynn

a#b=[1..a]>>b
x!y|i<-(x-1)#"  "=x#"/\\":(y-1)#['\\':i++"/",'/':i++"\\"]++[x#"\\/"]

Cobalah online!

Masih terasa sangat panjang, saya akan melihat apa yang bisa saya lakukan.

— Wisaya Gandum
sumber
Menentukan a#b=[a..b]dan mengganti semua kejadian menghemat satu byte:a#b=[a..b];x!y|i<-2#x>>" "=(1#x>>"/\\"):(2#y>>['\\':i++"/",'/':i++"\\"])++[1#x>>"\\/"]
— Lynn
Oh, a#b=[1..a]>>b;x!y|i<-(x-1)#" "=x#"/\\":(y-1)#['\\':i++"/",'/':i++"\\"]++[x#"\\/"]sebenarnya menghemat 6 ~
— Lynn
@ Lynn, terima kasih! Anda benar-benar telah menangkap kendur saya belakangan ini.
— Wheat Wizard
@ Lynn saya berhasil tetapi dengan biaya byte lain.
— Wheat Wizard
5

05AB1E , 14 byte

„/\|∍`S¦`).B∞∊

Cobalah online!

Penjelasan

„/\|∍`S¦`).B∞∊   Arguments: x, y
„/\              Push the string "/\"
   |             Push inputs as array: [x,y]
    ∍            Push the string extended/shortened to those lengths
     `           Flatten
      S          Push seperate chars of second string
       ¦`        Remove first char and flatten again
         )       Wrap stack to an array
          .B     Squarify
            ∞∊   Mirror on both axes

Ini hanya membuat sudut kiri atas, lebar x karakter dan tinggi karakter y. Kemudian mencerminkan ini pada kedua sumbu:

x=3, y=2

/\/|
\  |
---+
— kalsowerus
sumber
4

JavaScript (ES6), 84 byte

Mengambil input dalam sintaks currying (w)(h).

w=>h=>'/\\'[R='repeat'](w)+`
${`\\${p='  '[R](w-1)}/
/${p}\\
`[R](h-1)}`+'\\/'[R](w)

Demo

Tampilkan cuplikan kode

— Arnauld
sumber
3

Swift 3 , 166 byte

func f(a:Int,b:Int){let k=String.init(repeating:count:),n="\n";var r="\\"+k("  ",a-1)+"/";print(k("/\\",a)+n+k(r+n+String(r.characters.reversed())+n,b-1)+k("\\/",a))}

Paket tes lengkap.

Versi penutupan sedikit lebih lama, sayangnya (175 byte):

var g:(Int,Int)->String={let k=String.init(repeating:count:),n="\n";var r="\\"+k("  ",$0-1)+"/";return k("/\\",$0)+n+k(r+n+String(r.characters.reversed())+n,$1-1)+k("\\/",$0)}

Test suite dengan versi penutupan.

— Tuan Xcoder
sumber
3

Retina , 77 73 byte

\d+
$*
 1+|1(?=1* (1+))
$1¶
1
/\
.((..)*.)
/$1¶$1/
¶$

(?<=¶.+).(?=.+¶)

Cobalah online! Tautan termasuk kasus uji. Mengambil input dalam format <height> <width>. Penjelasan:

\d+
$*

Konversikan input ke unary.

 1+|1(?=1* (1+))
$1¶

Lipat gandakan input, tetapi tambahkan baris baru sehingga hasilnya adalah persegi panjang.

1
/\

Buat bagian atas yang runcing.

.((..)*.)
/$1¶$1/

Gandakan setiap baris runcing, tetapi dengan paku diimbangi di baris kedua.

¶$

Hapus baris baru yang tertinggal.

(?<=¶.+).(?=.+¶)

Hapus bagian dalam kotak. (Catat ruang pada baris terakhir.)

— Neil
sumber
3

Excel, 95 byte

=REPT("/\",A1)&"
"&REPT("\"&REPT(" ",2*A1-2)&"/
/"&REPT(" ",2*A1-2)&"\
",B1-1)&REPT("\/",A1)
— Wernisch
sumber
3

APL (Dyalog) , 41 39 byte

Meminta daftar [H,W]

'\'@2@1⊢¯1⌽@1{⌽⍉⍵,'/\'⍴⍨≢⍵}⍣4⊢''⍴⍨2×⎕-1

Cobalah online!

⎕-1 meminta input (mnemonic: konsol bergaya) dan kurangi 1

2× kalikan dengan dua

''⍴⍨ gunakan itu untuk membentuk kembali string kosong (bantalan dengan spasi)

⊢ hasilkan itu (berfungsi untuk memisahkannya dari 4)

{... }⍣4 terapkan fungsi berikut empat kali:

 ≢⍵ tally (panjang) argumen

 '/\'⍴⍨ siklis r eshape "/\"untuk panjang yang

 ⍵, tambahkan itu ke sisi kanan argumen

 ⌽⍉ transpos dan cermin (yaitu putar 90 °)

¯1⌽1 siklis memutar 1 st baris satu langkah ke kanan

⊢ hasilkan itu (berfungsi untuk memisahkannya dari 1)

'\'@2@1 menempatkan garis miring terbalik di 2 nd posisi 1 st item yang besar.

— Adm
sumber
3

C (gcc) ,170 166 158 155 108 105

-3 byte berkat cleblanc

x,y;f(w,h){for(y=h*=2;y--;puts(""))for(x=w*2;x--;)putchar(!x|x==w*2-1|!y|y==h-1?x&y&1|~x&~y&1?47:92:32);}

Cobalah online!

Saya pikir ini bisa bermain golf lebih lanjut dengan pendekatan yang tidak langsung, saya akan melihat apa yang bisa saya lakukan ketika saya menemukan waktu.

Oke, saya tidak bisa menemukan cara lain untuk mengurangi jumlah byte untuk kode itu.

Penjelasan: pencetakan loop-sederhana dua kotak char by char.

Saat mencetak batas: jika koordinat x dan y baik genap atau ganjil, ini akan menampilkan a /, jika tidak, a \ditampilkan

Jika bukan perbatasan, karakter spasi malah ditampilkan

— scottinet
sumber
1
Anda dapat mencukur 3 byte lainnya dengan menggerakkannya puts("")menjadi yang pertama untuk loop seperti inix,y;f(w,h){for(y=h*=2;y--;puts(""))for(x=w*2;x--;)putchar(!x|x==w*2-1|!y|y==h-1?x&y&1|~x&~y&1?47:92:32);}
— cleblanc
@cleblanc Terima kasih!
— scottinet
3

/// , 172 117 byte

Jadi, karena output terdiri dari ///s dan whitespaces, harus ada pengiriman dalam 2 bahasa tersebut.

Masukkan input setelah kode W,Hsebagai nomor unary (unary untuk /// diizinkan , terima kasih kepada Challenger5 untuk saran) (gunakan *untuk mewakili ,format digit, pisahkan dengan ).

/W/VV//V/\\\///`/\\\\\\\\\\\\\V/,/W>+  V`/`\>+W  !V!``WV>+WV-  V`\
`\W+  V`/
`/W-!V`\
W``\\V`\V>!//!*/+%-%!//*/  //%/

Cobalah online! (dengan input W=4, H=3)

— pengguna202729
sumber
Anda dapat melewatkan penguraian dengan mengambil input di Unary .
— Buah Esolanging
Juga, saya harus menyebutkan bahwa ini sangat mengesankan! Kerja bagus!
— Buah Esolanging
2

Python 3 , 87 82 byte

Sunting: Disimpan 5 byte berkat @officialaimm , @ Mr.Xcoder dan @tsh

def f(a,b,n="\n"):r="\\"+"  "*~-a+"/";print("/\\"*a+n+(r+n+r[::-1]+n)*~-b+"\\/"*a)

Cobalah online!

— Halvard Hummel
sumber
— officialaimm
Jika Anda ingin menyimpannya di Python 3, *(b-1)bisa jadi *~-b, untuk -2 byte.
— Tn. Xcoder
2
@officialaimm Kenapa " "*2*~-a? Adil "__"*~-a.
— tsh
@tsh Ya, Anda benar ... Haha tidak menyadari bahwa ...
— officialaimm
@officialaimm akan menyimpannya Python 3, namun menyimpan beberapa byte karena Anda, Mr.Xcoder dan tsh
— Hummel
2

J, 48 byte

' '&((<,~<<0 _1)})@(+:@[$(1&|.,:])@('\/'$~+:)@])

ungolfed

' '&((< ,~ <<0 _1)}) @ (+:@[ $ (1&|. ,: ])@('\/' $~ +:)@])

penjelasan

                       (+:@[ $ (1&|. ,: ])@('\/' $~ +:)@])    creates box, but interior filled with slashes
                                           ('\/' $~ +:)@]       take right arg, W, doubles it, then fills that
                                          @                       many characters with '\/' repeating
                               (1&|. ,: ])                      stacks (,:) the above on top of itself rotated 
                                                                  by one char, producing top and bottom spikes
                              $                                 reshape to..
                       (+:@[                                    double the length of the left arg, height
                                                                  this creates the sides, as well as a filled interior
                     @                                    
' '&((< ,~ <<0 _1)})                                          removes slashes from interior by using the complement               
                                                                form of amend }.  ie, replace everything but the first
                                                                and last row and first and last col with a space

Cobalah online!

— Jonah
sumber
1
33 byte ' '(<,~<<0 _1)}'\/'{~=/&(2|i.)&+:. Amend sangat bagus di sini.
— mil
ooooh, peningkatan yang sangat bagus
— Jonah
1
30 byte '/\ '{~2(<,~<<0 _1)}2|+/&i.&+:dengan beberapa refactoring
— mil
2

Java 8, 141 byte

Lambda kari dari lebar ke tinggi ke keluaran.

w->h->{String f="/",b="\\",t=f,o=b,p="";char i=1;for(;i++<w;t+=b+f,o+=f+b)p+="  ";t+=b;o+=f;for(i=10;--h>0;)t+=i+b+p+f+i+f+p+b;return t+i+o;}

Coba Online (tidak, return t+i+o;tidak disengaja)

Lambda yang tidak tersentuh

w ->
    h -> {
        String
            f = "/",
            b = "\\",
            t = f,
            o = b,
            p = ""
        ;
        char i = 1;
        for (; i++ < w; t += b + f, o += f + b)
            p += "  ";
        t += b;
        o += f;
        for (i = 10; --h > 0; )
            t += i + b + p + f + i + f + p + b;
        return t + i + o;
    }

Solusi ini biasanya pilih-pilih tentang ukuran input karena a chardigunakan untuk menghitung hingga lebar input. Untungnya, algoritme ini cukup buruk sehingga pada ukuran tersebut penyelesaian program mungkin sudah menjadi masalah. Saya memilih untuk menggunakan charuntuk indeks loop sehingga saya bisa menggunakannya kembali nanti sebagai alias murah untuk '\n'.

— Jakob
sumber
2

SOGL V0.12 , 22 21 13 byte

/\”m;HΙ»mč+╬¡

Coba Di Sini! (mengharapkan kedua input pada stack jadi ..(dan "karena string belum dimulai secara eksplisit) - ambil input nomor dua kali ditambahkan untuk kemudahan penggunaan)

Penjelasan:

/\”            push "/\"
   m           mold to the 1st inputs length
    ;          get the other input ontop of stack
     H         decrease it
      Ι        push the last string - "/\"
       »       rotate it right - convert to "\/"
        m      mold "\/" to the length of 2nd input - 1
         č     chop into characters
          +    prepend the 1st molded string to the character array of the 2nd
           έ  quad-palindromize
— dzaima
sumber
>: D itu tidak mengalahkan Arang di sini
— ASCII-hanya
@ ASCII-hanya karena arang memiliki built-in untuk ini: p (dan SOGL benar-benar dibuat untuk tantangan yang rumit & panjang)
— dzaima
1

Mathematica, 87 byte

Table[Which[1<i<2#2&&1<j<2#," ",OddQ[i+j],"\\",1>0,"/"],{i,2#2},{j,2#}]~Riffle~"
"<>""&

Cobalah dalam Matematika (mencetak ruang ekstra di awal sebagian besar garis untuk beberapa alasan), atau di kotak pasir Wolfram ! Mengambil dua bilangan bulat sebagai input.

Ini solusi yang cukup naif, tetapi semua hal pintar yang saya coba memiliki lebih banyak byte. Sesuatu yang hampir berhasil adalah

ArrayPad[Array[" "&,2#-2],1,{{"/",s="\\"},{s,"/"}}]~Riffle~"\n"<>""&

kecuali gagal jika salah satu dimensi adalah 1 (input adalah daftar yang berisi dimensi).

— Bukan pohon
sumber
1

Ruby , 62 61 60 byte

->r,c{["/\\"*c]+["\\#{w="  "*~-c}/",?/+w+?\\]*~-r+["\\/"*c]}

-1 byte terima kasih kepada Arnauld

Cobalah online!

— GB
sumber
1

J , 39 byte

(' \/'{~=/&(2&|)(*>:)~0=*/&(*|.))&i.&+:

Cobalah online!

Membawa dua argumen seperti heightpada LHS dan widthpada RHS.

— mil
sumber
Kerja bagus, seperti biasa. Pendekatan yang menarik juga.
— Jonah
@ Jon Tidak, ide Anda jauh lebih baik menggunakan amandemen. Jika dikombinasikan dengan setengah dari milik saya ...
— mil
1

VBA (Excel), 161 Bytes

Sub a()
c=[A2]*2
r=[B2]*2
For i=1To r
For j=1To c
b=IIf(i=1 Or j=1 Or i=r Or j=c,IIf((i+j) Mod 2,"\","/")," ")
d=d & b
Next
d=d & vbCr
Next
Debug.Print d
End Sub
— remoel
sumber
Sub Golfed (139 Bytes):Sub b c=[2*A1] r=[2*B1] For i=1To r For j=1To c Debug.?IIf(i=1Or j=1Or i=r Or j=c,IIf((i + j)Mod 2,"\","/")," "); Next Debug.? Next End Sub
— Taylor Scott
Versi fungsi jendela langsung anonim di atas (113 Bytes):c=[2*A1]:r=[2*B1]:For i=1To r:For j=1To c:?IIf(i=1Or j=1Or i=r Or j=c,IIf((i + j)Mod 2,"\","/")," ");:Next:?:Next
— Taylor Scott
1

R, 160 byte 152 byte

p=function(x,n){paste(rep(x,n),collapse='')}
function(w,h){f=p(' ',w*2-2)
cat(paste0(p('/\\',w),'\n',p(paste0('\\',f,'/\n/',f,'\\\n'),h-1),p('\\/',w)))}

Cobalah online!

Terima kasih BLT untuk mencukur 8 byte.

— Menandai
sumber
Apakah Anda pernah menggunakan sfungsi ini?
— BLT
Fungsi s adalah apa yang Anda panggil untuk membuat kotak spikey
— Mark
1
Oke. Anda bisa turun ke 152 byte jika Anda menghapus spasi dan s=bit. Fungsi anonim diizinkan.
— BLT
Baik untuk mengetahui fungsi anon diizinkan
— Mark
0

dc , 123 byte

?1-sesf[/\]su[lfsh[lunlh1-dsh0<q]dsqx]dsrx[[
\]P[lf2*2-st[32Plt1-dst0<z]dszx]dsmx[/
/]Plmx92Ple1-dse0<l]slle0<l10P[\/]sulrx

Ini jauh dari yang terpendek, tetapi, jika seseorang mengambil dua baris terakhir dan memutarnya pi/2radian searah jarum jam ke posisi "tegak", itu terlihat seperti tiang totem .

Mengambil input sebagai dua bilangan bulat yang dipisahkan oleh spasi.

Cobalah online!

— R. Kap
sumber
1
Saat ini jawaban terpanjang di sini. Saya pikir itu adalah pekerjaan Java ...
— R. Kap
Jangan khawatir, sekarang ada solusi Java , dan itu lebih lama.
— Jakob
0

Mathematica, 116 byte

(c=Column;o=Table;v=""<>o[" ",2*#-2];w=""<>o["/\\",#];c[{w,c@o[c[{"\\"<>v<>"/","/"<>v<>"\\"}],#2-1],Rotate[w,Pi]}])&
— J42161217
sumber
Rotate[w,Pi]adalah setara dengan w~Rotate~Pi, seperti o["/\\",#]untuk"/\\"~o~#
— Jonathan Frech
Saya tahu notasi infiks dan saya selalu menggunakannya ketika saya benar-benar membutuhkan 1 byte. Dalam hal ini saya biarkan saja ... ;-)
— J42161217
2
Saya tidak meragukan pengetahuan Anda tentang notasi infiks; Saya hanya ingin mengurangi jumlah byte. Anda tahu, dalam semangat golf dan semacamnya.
— Jonathan Frech
0

C # (.NET Core) , 188 byte

a=>b=>string.Join("\n",new int[2*b].Select((x,i)=>string.Concat(string.Concat(new int[a].Select(y=>i%2==0?"/\\":"\\/")).Select((y,j)=>i>0&i<2*b-1&j>0&j<2*a-1?" ":""+y))))

Hitungan byte juga mencakup:

using System.Linq;

Cobalah online!

Saya mulai membuat penjelasan perintah demi perintah tetapi berhenti masuk akal di tengah ... Inti dasar adalah membuat kotak penuh runcing, dan kemudian melubangi tengah. Saya menggunakan Linq demi menggunakan Linq, mungkin bisa lebih pendek hanya menggunakan iterasi standar.

Berikut ini penjelasan cara keluar-ke-tengah (perintah paling-dalam dulu):
Pertama, buat baris untuk kotak penuh, dan gabungkan menjadi satu string

string.Concat(new int[a].Select(y => i % 2 == 0 ? "/\\" : "\\/"))

Lalu dapatkan setiap karakter dalam satu baris, dan jika itu bukan garis besar kotak, ganti dengan spasi, gabungkan mereka kembali menjadi satu string untuk setiap baris

string.Concat(PREVIOUS_STEP.Select((y, j) => i > 0 & i < 2 * b - 1 & j > 0 & j < 2 * a - 1 ? " " : "" + y))

Akhirnya, dapatkan setiap baris dan gabungkan mereka bersama-sama dengan baris baru (juga termasuk menghasilkan koleksi untuk baris)

string.Join("\n", new int[2 * b].Select((x, i) => PREVIOUS_STEP));
— Grzegorz Puławski
sumber
Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.