Diberikan integer input n > 1, mengeluarkan oktagon seni ASCII dengan panjang sisi yang terdiri dari nkarakter. Lihat contoh di bawah ini:

n=2
 ##
#  #
#  #
 ##

n=3
  ###
 #   #
#     #
#     #
#     #
 #   #
  ###

n=4
   ####
  #    #
 #      #
#        #
#        #
#        #
#        #
 #      #
  #    #
   ####

n=5
    #####
   #     #
  #       #
 #         #
#           #
#           #
#           #
#           #
#           #
 #         #
  #       #
   #     #
    #####

and so on.

Anda dapat mencetaknya ke STDOUT atau mengembalikannya sebagai hasil fungsi.

Berapapun ruang kosong ekstranus dapat diterima, asalkan karakter berbaris dengan tepat.

Aturan dan I / O

• Input dan output dapat diberikan dengan metode apa pun yang mudah .
• Anda dapat menggunakan karakter ASCII yang dapat dicetak alih-alih #(kecuali spasi), tetapi karakter "latar belakang" harus berupa spasi (ASCII 32).
• Program lengkap atau fungsi dapat diterima.
• Celah standar dilarang.
• Ini adalah kode-golf sehingga semua aturan golf biasa berlaku, dan kode terpendek (dalam byte) menang.

05AB1E , 3 byte

7ÝΛ

Cobalah online!

Penjelasan

      # implicit input as length
      # implicit input as string to print
7Ý    # range [0...7] as directions
  Λ   # canvas print

Lihat jawaban ini untuk memahami kanvas 05AB1E.

JavaScript (ES6), 114 106 105 104 103 byte

n=>(g=x=>v=x*2>w?w-x:x,F=x=>~y?`# 
`[~x?(h=g(x--))*g(y)>0&h+v!=n|n>h+v:(y--,x=w,2)]+F(x):'')(y=w=--n*3)

Cobalah online!

Bagaimana?

Ini membangun karakter keluaran dengan karakter.

Diberikan input $n$ , kami menghitung:

$$n'=n-1\\w=3n'$$

Untuk setiap karakter di $(x,y)$ , kami menghitung $(h,v)$ :

$$h=w/2-\left|x-w/2\right|\\v=w/2-\left|y-w/2\right|$$

Sel-sel yang termasuk dalam oktagon memenuhi salah satu kondisi berikut:

• ( $h=0$ ATAU $v=0$ ) DAN $h+v\ge n'$ (merah di bawah)
• $h+v=n'$ (oranye di bawah)

Misalnya, dengan $n=4$ (dan $n'=3$ ):

$$\begin{matrix}(0,0)&(1,0)&(2,0)&\color{red}{(3,0)}&\color{red}{(4,0)}&\color{red}{(4,0)}&\color{red}{(3,0)}&(2,0)&(1,0)&(0,0)\\ (0,1)&(1,1)&\color{orange}{(2,1)}&(3,1)&(4,1)&(4,1)&(3,1)&\color{orange}{(2,1)}&(1,1)&(0,1)\\ (0,2)&\color{orange}{(1,2)}&(2,2)&(3,2)&(4,2)&(4,2)&(3,2)&(2,2)&\color{orange}{(1,2)}&(0,2)\\ \color{red}{(0,3)}&(1,3)&(2,3)&(3,3)&(4,3)&(4,3)&(3,3)&(2,3)&(1,3)&\color{red}{(0,3)}\\ \color{red}{(0,4)}&(1,4)&(2,4)&(3,4)&(4,4)&(4,4)&(3,4)&(2,4)&(1,4)&\color{red}{(0,4)}\\ \color{red}{(0,4)}&(1,4)&(2,4)&(3,4)&(4,4)&(4,4)&(3,4)&(2,4)&(1,4)&\color{red}{(0,4)}\\ \color{red}{(0,3)}&(1,3)&(2,3)&(3,3)&(4,3)&(4,3)&(3,3)&(2,3)&(1,3)&\color{red}{(0,3)}\\ (0,2)&\color{orange}{(1,2)}&(2,2)&(3,2)&(4,2)&(4,2)&(3,2)&(2,2)&\color{orange}{(1,2)}&(0,2)\\ (0,1)&(1,1)&\color{orange}{(2,1)}&(3,1)&(4,1)&(4,1)&(3,1)&\color{orange}{(2,1)}&(1,1)&(0,1)\\ (0,0)&(1,0)&(2,0)&\color{red}{(3,0)}&\color{red}{(4,0)}&\color{red}{(4,0)}&\color{red}{(3,0)}&(2,0)&(1,0)&(0,0)\end{matrix}$$

Arang , 5 byte

ＧＨ*Ｎ#

Jawaban pertama saya dengan Charcoal!

Penjelasan:

ＧＨ*Ｎ#      //Full program
ＧＨ          //Draw a hollow polygon
   *         //with 8 sides
    Ｎ       //of side length from input
      #      //using '#' character

Cobalah online!

Kanvas , 15 14 12 byte

／⁸⇵╷+×＋：⤢ｎ╬┼

Coba di sini!

Penjelasan:

/             a diagonal of length n
 ⁸            the input,
  ⇵           ceiling divided by 2, (storing the remainder)
   ╷          minus one
    #×        repeat "#" that many times
      +       append that to the diagonal
       :⤢n    overlap that with its transpose
          ╬┼  quad-palindromize with the overlap being the remainder stored earlier

Alternatif 12-byter .

R , 122 117 115 byte

function(n){n=n-1
m=matrix(0,y<-3*n+1,y)
v=t(h<-(w=3*n/2)-abs(row(m)-1-w))
m[h*v&h+v-n|h+v<n]=' '
write(m,1,y,,"")}

Cobalah online!

Port logika dari jawaban Arnauld , khususnya revisi ini jika ada perbaikan lebih lanjut. 2 byte lainnya disimpan berkat saran Arnauld untuk membalik logika!

Python 2 , 96 byte

a=b=n=input()
while a>2-n-n:a-=1;b-=a/~-n+1;s=(-~b*' '+'#').ljust(n);print s+s[-1]*(n-2)+s[::-1]

Cobalah online!

Python 2 , 81 byte

a=d=n=input()-1
while a<=n:print' '*a+'#'+' #'[a==n]*(3*n-a+~a)+'#';d-=1;a-=d/n+1

Cobalah online!

---

Python 2 , 75 byte

a=d=n=input()-1
while a<=n:print' '*a+`' `'[a==n]*(3*n-a+~a)`;d-=1;a-=d/n+1

Cobalah online!

Jika mencampur karakter output tidak apa-apa.

Powershell, 91 byte

param($n)($s=' '*--$n+'#'*$n+'#')
--$n..0+,0*$n+0..$n|%{' '*$_+"#$(' '*(3*$n-2*$_+2))#"}
$s

PowerShell , 107 97 byte

param($n)($z=$n-1)..1+,0*$n+1..$z|%{" "*$_+"#"+($x=" "*($z-$_))+(" ","#")[!($_-$z)]*($n-2)+"$x#"}

Cobalah online!

Jika ada cara murah untuk membalikkan babak pertama, jawaban ini akan terasa jauh lebih baik. Itu membangun setengah kiri, lalu inti (yang merupakan x#'s atau spasi), lalu cermin logika kiri untuk membuat yang benar. Kenyataan yang menyenangkan, Anda tidak perlu menyalin di atas spasi putih.

Belum dibuka dan dijelaskan:

param($n)
($z=$n-1)..1 + ,0*$n + 1..$z |%{  #Range that repeats 0 n times in the middle
" "*$_ + "#" +($x=" "*($z-$_)) +  #Left side
(" ","#")[!($_-$z)]*($n-2) +      #Core that swaps when it's the first or last row
"$x#"}                            #Right side which is left but backwards

C (dentang) , -DP=printf( -DF=for(i + 179 = 199 180 byte

i;*m="%*s%*s\n";g(n){P"%*s",n,H;F;--i;)P H;P"\n");}f(n){g(n);F;--i;)P m,i,(H,3*n-i+~i,H;F-2;i--;)P"#%*s\n",3*n-3,H;F;--i;)P m,n-i,(H,n+i+i-1,H;g(n);}

Cobalah online!

Tidak Disatukan:

f(n){
	int i;
	printf("%*d",n,0);
	for(i=0;i<n-1;i++){
		printf("0");
	}
	printf("\n");
	for(i=1;i<n;i++){
		printf("%*d%*d\n",n-i,0,n+i+i-1,0);
	}
	for(i=0;i<n-2;i++){
		printf("0%*d\n",n+n+n-3,0);
	}
	for(i=n-1;i>0;i--){
		printf("%*d%*d\n",n-i,0,n+i+i-1,0);
	}
	printf("%*d",n,0);
	for(i=0;i<n-1;i++){
		printf("0");
	}
}

-19 byte berkat @ceilingcat

Python 2 , 130 byte

def f(n):
 a=[' '*~-n+n*'#']
 b=[' '*(n-i-2)+'#'+' '*(n+2*i) +'#'for i in range(n-2)]
 return a+b+['#%*s'%(3*n-3,'#')]*n+b[::-1]+a

Cobalah online!

Di ponsel, jadi tidak luar biasa golf.

Batch, 260 byte

@echo off
set s=
for /l %%i in (1,1,%1)do call set s= %%s%%
echo %s% %s: =#%
call:c %1,-1,3
for /l %%i in (1,1,%1)do echo   #%s:~2%%s%%s:~2%#
call:c 3,1,%1
echo %s% %s: =#%
exit/b
:c
for /l %%i in (%*)do call echo %%s:~,%%i%%#%%s:~%%i%%%s%%%s:~%%i%%#

Menghasilkan dua spasi utama pada setiap baris. Penjelasan: Batch tidak memiliki operator pengulangan string, kemampuan mengiris string terbatas dan memerlukan pernyataan terpisah untuk melakukan aritmatika. Oleh karena itu paling golf untuk membuat string dari panjang input dalam spasi (Batch setidaknya dapat menerjemahkannya menjadi #s untuk garis atas dan bawah) dan kemudian mengiris dari atau ke posisi tertentu mulai dari 3 hingga panjang untuk menghasilkan diagonal. (Inilah yang dicapai baris terakhir skrip).

Ruby , 96 byte

->n{[*(n-=2).step(z=n*3+2,2),*[z]*n,*z.step(n,-2)].map{|x|([?#]*2*('# '[x<=>n]*x)).center(z+2)}}

Cobalah online!

Belum terlalu bermain golf. Bisa bermain golf jika saya menemukan waktu.

Merah , 171 byte

func[n][c:(a: n - 1)* 2 + n
b: collect[loop c[keep pad/left copy"^/"c + 1]]s: 1x1 s/1: n
foreach i[1x0 1 0x1 -1x1 -1x0 -1 0x-1 1x-1][loop a[b/(s/2)/(s/1): #"#"s: s + i]]b]

Cobalah online!

Penjelasan:

Red[]
f: func [ n ] [
    a: n - 1                                         ; size - 1
    c: a * 2 + n                                     ; total size of widht / height 
    b: collect [                                     ; create a block
        loop c [                                     ; composed of size - 1 rows
            keep pad/left copy "^/" c + 1            ; of empty lines of size c (and a newline)
        ]
    ]
    s: a * 1x0 + 1                                   ; starting coordinate
    foreach i [ 1x0 1 0x1 -1x1 -1x0 -1 0x-1 1x-1 ] [ ; for each offset for the 8 directions
        loop a [                                     ; repeat n - 1 times  
            b/(s/2)/(s/1): #"#"                      ; set the array at current coordinate to "#"
            s: s + i                                 ; next coordinate
        ]        
    ]
    b                                                ; return the block 
]

APL (Dyalog Unicode) , 46 byte ^SBCS

(' '@~5 6∊⍨1⊥⊢∘,)⌺3 3⊢<(⍉⌽⌊⊢)⍣2∘(∘.+⍨∘⍳¯2+3×⊢)

Solusi ini disediakan oleh Adám - terima kasih!

Cobalah online!

Solusi asli saya (hampir):

APL (Dyalog Unicode) , 61 byte ^SBCS

(((⊃∘' #'¨1+5∘=+6∘=)⊢)1⊥⊢∘,)⌺3 3⊢<(((⊖⌊⊢)⌽⌊⊢)(∘.+⍨(⍳¯2+3×⊢)))

Cobalah online!

Terima kasih kepada Adám atas bantuannya!

Idenya adalah untuk menemukan "berlian" yang terletak sebagian di alun-alun dan menerapkan filter deteksi tepi untuk "menguraikan" octagone.

Perl 5, 201 197 188 187 186 byte:

$a=<>;$b=3*$a-4;$c='$"x($e-$_)."#".$"x$f."#\n"';$e=($b-$a)/2+1;$d=$"x$e."#"x$a.$/;$f=$a;print$d,(map{(eval$c,$f+=2)[0]}1..$a-2),("#".$"x$b."#\n")x$a,(map{$f-=2;eval$c}reverse 1..$a-2),$d

Cobalah online!

Membaca ukuran segi delapan dari baris pertama STDIN.

Perl 5, 176 byte

$f=$a=<>;$b=3*$a-4;$c='$"x($e-$_)."#".$"x$f."#\n"';$e=$a-1;$d=$"x$e."#"x$a.$/;print$d,(map{(eval$c,$f+=2)[0]}1..$a-2),("#".$"x$b."#\n")x$a,(map{$f-=2;eval$c}reverse 1..$a-2),$d

Berdasarkan jawaban Nathan Mills di atas (yang saya punya cukup banyak komentar untuk berkomentar!).

$edapat disederhanakan untuk $a-1menghemat 6 byte; $fdapat ditugaskan rantai; menghemat dua byte; Tidak yakin dari mana dua lainnya berasal!

Sementara $edapat diganti dengan $a-1di dua tempat itu terjadi, kurung tambahan yang dibutuhkan berarti ini hanya impas.

Tidak Disatukan:

$f = $a = <>;
$b = 3 * $a - 4;
$c = '$"x($e-$_)."#".$"x$f."#\n"';
$e = $a - 1;
$d = $" x $e . "#" x $a . $/;
print $d, ( map { ( eval $c, $f += 2 )[0] } 1 .. $a - 2 ),
  ( "#" . $" x $b . "#\n" ) x $a,
  ( map { $f -= 2; eval $c } reverse 1 .. $a - 2 ), $d

Perl 6 , 76 73 byte

-3 byte terima kasih kepada Jo King

{(' 'x$_-1~\*x$_,{S/.\S(.)+/* {' 'x$0}*/}...*)[^$_,$_ xx$_-2,[R,] ^$_;*]}

Cobalah online!

Mengembalikan daftar garis.

C (gcc) , 158 153 150 byte

• Disimpan lima delapan byte berkat ceilingcat .

O,c,t,g;o(n){for(O=2*~-n,t=c=O+n;t--;puts(""))for(g=c;g--;)putchar(33-(!t|t>c-2?g<n-1|g>O:t<n-1|t>O?t+O-g&&t-O-g&&~c+g+t+n+n&&c-g-t+n-3+n:g&&g<c-1));}

Cobalah online!

Python 3 , 224 byte

n=int(input())
z=" "*(n-1)+"#"*n+" "*(n-1)
print(z)
for i in range(n-2):print(" "*(n-i-2)+"#"+" "*(i*2+n)+"#")
print((("#"+" "*(n*3-4)+"#\n")*n)[:-1])
for i in range(n-3,-1,-1):print(" "*(n-i-2)+"#"+" "*(i*2+n)+"#")
print(z)

Cobalah online!

Perl 5, 170 168 166 byte

$a=<>-1;$\="#\n";print$x=$_=$"x$a."#"x$a;if(s/^( *)  #*/$1 #  $1 /){print}while (s/ #/#  /){print}$z=$_;for(1..$a){print$_=$z}while(s/#  (\s{$a})/ #$1/){print}print$x

Ini bekerja dengan keajaiban regex. "Jika" hanya diperlukan untuk menangani kasus patologis n = 2, yang sebaliknya menghasilkan sesuatu seperti:

 ##
 ##
#  #
 ##

mungkin ini bisa dikodekan.

Saya pikir mungkin ada banyak lagi yang bisa didapat dengan membuat string hingga titik tengah kemudian membalikkannya. Tentu saja kita perlu memasukkan / menghapus ruang tambahan jika n ganjil (atau menggunakan ruang tipis: p).

Tidak disatukan

$a = <> -1;                          # Subtracting one is very useful! 
$\ = "#\n";                          # Every line ends with a '#' let perl provide.  
$x=$_ = " " x $a. "#" x $a;          # The horiz line (one short)  
print;                               # print it plus the extra #
if(s/^( *)  #*/$1 #  $1 /){print}    # create a hole and remove a leading space(if n=2 this fails)
while (s/ #/#  /){                   # make the hole bigger      
    print;                           # and print (with a trailing #)
}
$z=$_;                               # store $_ for later use
for (1 .. $a) {                      # nice that we don't have to do 2..$a but not golf-nice  
  $_ =$z;                            # restore $_ (we could use $z but since we have
  print;                             # to restore somewhere, doing  it here saves us bytes)
}
while (s/#  (\s{$a})/ #$1/){         # now move the # to the right and reduce the trailing spaces  
  print;
}
print $x;                            # and finish...

Saya pikir ini mungkin bisa sedikit lebih golf, terlepas dari perubahan signifikan seperti mendorong $@dan mencetak yang pada akhirnya.

[Memutar spasi di sekitar ..dan memindahkan pencetakan sebelum menetapkan dalam dua kasus, menghemat titik koma.]

J, 59 45 41 byte

h=.|.,],~,:@{.#~_2+#
' #'{~h@|.@|:@h@=@i.

Cobalah online!

Akan menambah penjelasan malam ini.

Perl 5, 98 byte

$_=2x$_.1x$_.$/;s/2//;s/.$/ #/,y/1/ /while$a.=$_,$b=$_.$b,s/2[#1]/# /;$_=$a.$_ x("@F"-2).$b;y/2/ /

TIO