ปัญหา

รับอินพุต a,b,c

ซึ่งa,b,cเป็นจำนวนเต็มบวกแม้

และ a > b > c

ทำกล่องอักขระที่อนุญาตด้วยมิติข้อมูล a x a

จัดกึ่งกลางกล่องอักขระที่อนุญาตแตกต่างกันโดยมีขนาดb x bอยู่ก่อนหน้า

จัดกึ่งกลางกล่องของอักขระที่อนุญาตแตกต่างกันโดยมีขนาดc x cอยู่ภายในก่อนหน้า

อักขระที่อนุญาตคืออักขระ ASCII ที่อยู่ใน [a-zA-z0-9!@#$%^&*()+,./<>?:";=_-+]

อินพุต a=6, b=4, c=2

######
#****#
#*@@*#
#*@@*#
#****#
######

อินพุต a=8, b=6, c=2

########
#******#
#******#
#**@@**#
#**@@**#
#******#
#******#
########

อินพุต a=12, b=6, c=2

############
############
############
###******###
###******###
###**@@**###
###**@@**###
###******###
###******###
############
############
############

กฎระเบียบ

• รหัสที่สั้นที่สุดชนะ
• จำไว้ว่าคุณสามารถเลือกอักขระที่จะพิมพ์ภายในช่วงที่กำหนด
• ยอมรับการขึ้นบรรทัดใหม่
• ยอมรับช่องว่างต่อท้าย
• ฟังก์ชั่นอาจส่งคืนสตริงที่มีการขึ้นบรรทัดใหม่อาเรย์สตริงหรือพิมพ์

ถ่าน 14 ไบต์

Ｆ#*@ＵＯ÷Ｎ²ι‖Ｃ←↑

ลองออนไลน์! การเชื่อมโยงคือการสร้างรหัสเวอร์ชัน

เยลลี่ ,  20  19 ไบต์

-1 ไบต์โดยใช้`ปุ่มลัดเพื่อหลีกเลี่ยงลิงก์ตามที่ Erik the Outgolfer แนะนำ

H»þ`€Ḣ>ЀHSUṚm€0m0Y

โปรแกรมเต็มรูปแบบที่[a,b,c]พิมพ์รายการโดยใช้กล่องa:2 b:1 c:0
... ในความเป็นจริงตามที่เป็นจริงมันจะทำงานได้ถึง10กล่องโดยที่กล่องด้านในสุดคือ0( ตัวอย่าง )

ลองออนไลน์!

อย่างไร?

H»þ`€Ḣ>ЀHSUṚm€0m0Y - Main link: list of boxes, B = [a, b, c]
H                   - halve B = [a/2, b/2, c/2]
    €               - for €ach:
   `                -   repeat left argument as the right argument of the dyadic operation:
  þ                 -     outer product with the dyadic operation:
 »                  -       maximum
                    - ... Note: implicit range building causes this to yield
                    -       [[max(1,1),max(1,2),...,max(1,n)],
                    -        [max(2,1),max(2,2),...,max(2,n)],
                    -        ...
                    -        [max(n,1),max(n,2),...,max(n,n)]]
                    -       for n in [a/2,b/2,c/2]
     Ḣ              - head (we only really want n=a/2 - an enumeration of a quadrant)
         H          - halve B = [a/2, b/2, c/2]
       Ѐ           - map across right with dyadic operation:
      >             -   is greater than?
                    - ...this yields three copies of the lower-right quadrant
                    -    with 0 if the location is within each box and 1 if not
          S         - sum ...yielding one with 0 for the innermost box, 1 for the next, ...
           U        - upend (reverse each) ...making it the lower-left
            Ṛ       - reverse ...making it the upper-right
             m€0    - reflect €ach row (mod-index, m, with right argument 0 reflects)
                m0  - reflect the rows ...now we have the whole thing with integers
                  Y - join with newlines ...making a mixed list of integers and characters
                    - implicit print - the representation of a mixed list is "smashed"

Python 2, 107 103 ไบต์

a,b,c=input()
r=range(1-a,a,2)
for y in r:
 s=''
 for x in r:m=max(x,y,-x,-y);s+=`(m>c)+(m>b)`
 print s

โปรแกรมเต็มรูปแบบ, พิมพ์กล่องที่มีa=2, b=1,c=0

คำตอบที่แย่กว่าเล็กน้อยโดยมีรายการความเข้าใจ (104 ไบต์)

a,b,c=input()
r=range(1-a,a,2)
for y in r:print''.join(`(m>c)+(m>b)`for x in r for m in[max(x,y,-x,-y)])

C #, 274 232 ไบต์

using System.Linq;(a,b,c)=>{var r=new string[a].Select(l=>new string('#',a)).ToArray();for(int i=0,j,m=(a-b)/2,n=(a-c)/2;i<b;++i)for(j=0;j<b;)r[i+m]=r[i+m].Remove(j+m,1).Insert(j+++m,i+m>=n&i+m<n+c&j+m>n&j+m<=n+c?"@":"*");return r;}

แย่มากสำหรับ C # ดังนั้นสามารถเล่นกอล์ฟได้ แต่ใจของฉันว่างเปล่า

เวอร์ชันเต็ม / ฟอร์แมต:

using System;
using System.Linq;

class P
{
    static void Main()
    {
        Func<int, int, int, string[]> f = (a,b,c) =>
        {
            var r = new string[a].Select(l => new string('#', a)).ToArray();

            for (int i = 0, j, m = (a - b) / 2, n = (a - c) / 2; i < b; ++i)
                for (j = 0; j < b;)
                    r[i + m] = r[i + m].Remove(j + m, 1).Insert(j++ + m,
                        i + m >= n & i + m < n + c &
                        j + m > n & j + m <= n + c ? "@" : "*");

            return r;
        };

        Console.WriteLine(string.Join("\n", f(6,4,2)) + "\n");
        Console.WriteLine(string.Join("\n", f(8,6,2)) + "\n");
        Console.WriteLine(string.Join("\n", f(12,6,2)) + "\n");

        Console.ReadLine();
    }
}

Haskell , 126 ไบต์

f a b c=r[r["#*@"!!(v c+v b)|x<-[1..d a],let v k|x>a#k&&y>a#k=1|2>1=0]|y<-[1..d a]]where r x=x++reverse x;d=(`div`2);x#y=d$x-y

ลองออนไลน์!

JavaScript (ES6), 174 170 147 ไบต์

a=>b=>c=>(d=("#"[r="repeat"](a)+`
`)[r](f=a/2-b/2))+(e=((g="#"[r](f))+"*"[r](b)+g+`
`)[r](h=b/2-c/2))+(g+(i="*"[r](h))+"@"[r](c)+i+g+`
`)[r](c)+e+d

ลองมัน

fn=
a=>b=>c=>(d=("#"[r="repeat"](a)+`
`)[r](f=a/2-b/2))+(e=((g="#"[r](f))+"*"[r](b)+g+`
`)[r](h=b/2-c/2))+(g+(i="*"[r](h))+"@"[r](c)+i+g+`
`)[r](c)+e+d
oninput=_=>+x.value>+y.value&&+y.value>+z.value&&(o.innerText=fn(+x.value)(+y.value)(+z.value))
o.innerText=fn(x.value=12)(y.value=6)(z.value=2)

label,input{font-family:sans-serif;}
input{margin:0 5px 0 0;width:50px;}

<label for=x>a: </label><input id=x min=6 type=number step=2><label for=y>b: </label><input id=y min=4 type=number step=2><label for=z>c: </label><input id=z min=2 type=number step=2><pre id=o>

คำอธิบาย

a=>b=>c=>            :Anonymous function taking the 3 integers as input via parameters a, b & c
(d=...)              :Assign to variable d...
("#"[r="repeat"](a)  :  # repeated a times, with the repeat method aliased to variable r in the process.
+`\n`)               :  Append a literal newline.
[r](f=a/2-b/2)       :  Repeat the resulting string a/2-b/2 times, assigning the result of that calculation to variable f.
+                    :Append.
(e=...)              :Assign to variable e...
(g=...)              :  Assign to variable g...
"#"[r](f)            :    # repeated f times.
+"*"[r](b)           :  Append * repeated b times.
+g+`\n`)             :  Append g and a literal newline.
[r](h=b/2-c/2)       :  Repeat the resulting string b/2-c/2 times, assigning the result of that calculation to variable h.
+(...)               :Append ...
g+                   :  g
(i=...)              :  Assign to variable i...
"*"[r](h)            :    * repeated h times.
+"@"[r](c)           :  @ repeated c times
+i+g+`\n`)           :  Append i, g and a literal newline.
[r](c)               :...repeated c times.
+e+d                 :Append e and d.

C (gcc) , 97 ไบต์

x,y;f(a,b,c){for(y=1-a;y<a;y+=2,puts(""))for(x=1-a;x<a;x+=2)printf(x/c|y/c?x/b|y/b?"#":"*":"@");}

ลองออนไลน์!

V , 70, 44 , 42 ไบต์

Àé#@aÄÀG@b|{r*ÀG@c|{r@òjdòÍ.“.
ç./æ$pYHP

ลองออนไลน์!

นี่มันน่าเกลียด eww ดีกว่ามาก ยังไม่สั้นที่สุด แต่อย่างน้อยก็ค่อนข้างเล่นกอล์ฟ

บันทึกสองไบต์ด้วย @ nmjmcman101!

hexdump:

00000000: c0e9 2340 61c4 c047 4062 7c16 7b72 2ac0  ..#@a..G@b|.{r*.
00000010: 4740 637c 167b 7240 f26a 64f2 cd2e 932e  G@c|.{r@.jd.....
00000020: 0ae7 2e2f e624 7059 4850                 .../.$pYHP

MATL , 26 23 22 20 18 ไบต์

2/t:<sPtPh!Vt!2$X>

[a; b; c]การป้อนข้อมูลเป็นเวกเตอร์คอลัมน์ การใช้ตัวอักษรเอาท์พุท2, ,10

ลองออนไลน์!

เช่นกันก็ทำงานได้นานถึงสิบกล่องไม่เพียงสามนี่เป็นตัวอย่างกับห้ากล่อง

Mathematica, 49 ไบต์

Print@@@Fold[#~CenterArray~{#2,#2}+1&,{{}},{##}]&

[c, b, a]จะเข้า a=1, b=2, c=3เอาท์พุทเป็น

อย่างไร?

Print@@@Fold[#~CenterArray~{#2,#2}+1&,{{}},{##}]&
                                                &  (* Function *)
        Fold[                        ,{{}},{##}]   (* Begin with an empty 2D array.
                                                      iterate through the input: *)
                                    &              (* Function *)
             #~CenterArray~{#2,#2}                 (* Create a 0-filled array, size
                                                      (input)x(input), with the array
                                                      from the previous iteration
                                                      in the center *)
                                  +1               (* Add one *)
Print@@@                                           (* Print the result *)

PHP> = 7.1, 180 ไบต์

ในกรณีนี้ฉันเกลียดที่ตัวแปรเริ่มต้นด้วย$ใน PHP

for([,$x,$y,$z]=$argv;$i<$x*$x;$p=$r%$x)echo XYZ[($o<($l=$x-$a=($x-$y)/2)&$o>($k=$a-1)&$p>$k&$p<$l)+($o>($m=$k+$b=($y-$z)/2)&$o<($n=$l-$b)&$p>$m&$p<$n)],($o=++$i%$x)?"":"\n".!++$r;

PHP Sandbox ออนไลน์

Mathematica, 173 ไบต์

(d=((a=#1)-(b=#2))/2;e=(b-(c=#3))/2;z=1+d;x=a-d;h=Table["*",a,a];h[[z;;x,z;;x]]=h[[z;;x,z;;x]]/.{"*"->"#"};h[[z+e;;x-e,z+e;;x-e]]=h[[z+e;;x-e,z+e;;x-e]]/.{"#"->"@"};Grid@h)&

อินพุต

[12,6,2]

Python 2 , 87 ไบต์

a,_,_=t=input();r=~a
exec"r+=2;print sum(10**x/9*10**((a-x)/2)*(r*r<x*x)for x in t);"*a

ลองออนไลน์!

arithmetically 111100คำนวณตัวเลขที่จะพิมพ์โดยตัวเลขการเพิ่มของฟอร์ม มีความอัปลักษณ์จำนวนมากอาจเป็นพื้นที่สำหรับการปรับปรุง

Java 8, 265 252 ไบต์

 a->b->c->{int r[][]=new int[a][a],x=0,y,t;for(;x<a;x++)for(y=0;y<a;r[x][y++]=0);for(t=(a-b)/2,x=t;x<b+t;x++)for(y=t;y<b+t;r[x][y++]=1);for(t=(a-c)/2,x=t;x<c+t;x++)for(y=t;y<c+t;r[x][y++]=8);String s="";for(int[]q:r){for(int Q:q)s+=Q;s+="\n";}return s;}

-13 ไบต์โดยแทนที่อักขระด้วยตัวเลข

สามารถเล่นกอล์ฟได้อย่างแน่นอนโดยใช้วิธีการอื่น

คำอธิบาย:

ลองที่นี่

a->b->c->{                         // Method with three integer parameters and String return-type
  int r[][]=new int[a][a],         //  Create a grid the size of `a` by `a`
      x=0,y,t;                     //  Some temp integers
  for(;x<a;x++)for(y=0;y<a;r[x][y++]=0);
                                   //  Fill the entire grid with zeros
  for(t=(a-b)/2,x=t;               //  Start at position `(a-b)/2` (inclusive)
      x<b+t;x++)                   //  to position `b+((a-b)/2)` (exclusive)
    for(y=t;y<b+t;r[x][y++]=1);    //   And replace the zeros with ones
  for(t=(a-c)/2,x=t;               //  Start at position `(a-c)/2` (inclusive)
      x<c+t;x++)                   //  to position `c+((a-b)/2)` (exclusive)
    for(y=t;y<c+t;r[x][y++]=8);    //   And replace the ones with eights
  String s="";                     //  Create a return-String
  for(int[]q:r){                   //  Loop over the rows
    for(int Q:q)                   //   Inner loop over the columns
      s+=Q;                        //    and append the result-String with the current digit
                                   //   End of columns-loop (implicit / single-line body)
    s+="\n";                       //   End add a new-line after every row
  }                                //  End of rows-loop
  return s;                        //  Return the result-String
}                                  // End of method

JavaScript (ES6), 112

ฟังก์ชันไม่ระบุชื่อส่งคืนสตริงหลายบรรทัด ตัวละคร 0,1,2

(a,b,c)=>eval("for(o='',i=-a;i<a;o+=`\n`,i+=2)for(j=-a;j<a;j+=2)o+=(i>=c|i<-c|j>=c|j<-c)+(i>=b|i<-b|j>=b|j<-b)")

น้อย golfed

(a,b,c)=>{
  for(o='',i=-a;i<a;o+=`\n`,i+=2)
    for(j=-a;j<a;j+=2)
      o+=(i>=c|i<-c|j>=c|j<-c)+(i>=b|i<-b|j>=b|j<-b)
  return o
}  

var F=
(a,b,c)=>eval("for(o='',i=-a;i<a;o+=`\n`,i+=2)for(j=-a;j<a;j+=2)o+=(i>=c|i<-c|j>=c|j<-c)+(i>=b|i<-b|j>=b|j<-b)")

function update()
{
  var [a,b,c]=I.value.match(/\d+/g)
  O.textContent=F(a,b,c)
}

update()
  

a,b,c <input id=I value='10 6 2' oninput='update()'>
<pre id=O></pre>

PHP> = 5.6, 121 ไบต์

for($r=A;$p?:$p=($z=$argv[++$i])**2;)$r[((--$p/$z|0)+$o=($w=$w?:$z)-$z>>1)*$w+$p%$z+$o]=_BCD[$i];echo chunk_split($r,$w);

ทำงานด้วย-nrหรือทดสอบออนไลน์

^{รวมลูปอีกครั้ง ... ฉันรักพวกเขา!}

ทำให้พังถล่ม

for($r=A;                           # initialize $r (result) to string
    $p?:$p=($z=$argv[++$i])**2;)    # loop $z through arguments, loop $p from $z**2-1 to 0
    $r[((--$p/$z|0)+$o=
        ($w=$w?:$z)                     # set $w (total width) to first argument
        -$z>>1)*$w+$p%$z+$o]            # calculate position: (y+offset)*$w+x+offset
        =_BCD[$i];                      # paint allowed character (depending on $i)
echo chunk_split($r,$w);            # insert newline every $w characters and print