Bạn tổ chức Thế vận hội Olympic, và cần xây dựng một bể bơi tuyệt vời vì lợi ích của dịp này, nhưng các giám sát viên thường thay đổi suy nghĩ về kích thước và cần một cách nhanh chóng để xây dựng lại nó với kích thước được yêu cầu!

Đưa ra hai số nguyên, Lvà x, nhiệm vụ của bạn là xây dựng một bể bơi có chiều dài Lvà xlàn đường.

Làm thế nào là một hồ bơi được xây dựng?

• Nó chứa một hình vuông bên trong, có các bức tường nằm ngang được tạo bởi các Ldấu gạch ngang ( -) và các bức tường thẳng đứng được làm từ các 3x - 1thanh ( |). Ngoài ra, 4 +dấu hiệu nằm ở mỗi góc. Hãy có một ví dụ ( L = 10, x = 2):

  + ---------- +
  | |
  | |
  | |
  | |
  | |
  + ---------- +
  

• Mỗi làn có chiều rộng 2 đơn vị dọc. Quảng trường bên trong chứa đầy x-1dải phân cách làn, bao gồm các biểu tượng Ltheo chiều ngang :. Sau khi đặt dải phân cách làn, hồ bơi của chúng ta sẽ trông như thế này:

  + ---------- +
  | |
  | |
  | :::::::::: |
  | |
  | |
  + ---------- +
  

• Một hồ bơi cũng chứa một phần đệm (một hình vuông bên ngoài), có các bức tường nằm ngang là (L + 4) -s và các bức tường thẳng đứng là (3x + 1) |s, bao quanh hình vuông bên trong:

  + -------------- +
  | + ---------- + |
  | | | |
  | | | |
  | | :::::::::: | |
  | | | |
  | | | |
  | + ---------- + |
  + -------------- +
  

Và đó là bể bơi ** cỡ olympic của chúng tôi!

Thông số kỹ thuật:

• Đối với mục đích thiết kế và chức năng, bạn được đảm bảo rằng 100 ≥ L ≥ 10và 15 ≥ x ≥ 2.

• Đầu ra phải chính xác như được hiển thị. Xuất ra một hồ bơi "được xây dựng theo chiều dọc" * không được phép.

• Trailing và không gian hàng đầu được cho phép.

• Bạn có thể lấy đầu vào và cung cấp đầu ra thông qua bất kỳ phương pháp tiêu chuẩn nào .

• Lỗ hổng mặc định áp dụng.

Ví dụ / Các trường hợp thử nghiệm:

L = 20, x = 3

+ ------------------------ +
| + -------------------- + |
| | | |
| | | |
| | :::::::::::::::::::: | |
| | | |
| | | |
| | :::::::::::::::::::: | |
| | | |
| | | |
| + -------------------- + |
+ ------------------------ +



L = 50, x = 5:

+ ------------------------------------------------- ----- +
| + ------------------------------------------------- - + |
| | | |
| | | |
| | :::::::::::::::::::::::::::::::::::::::::::::::: : | |
| | | |
| | | |
| | :::::::::::::::::::::::::::::::::::::::::::::::: : | |
| | | |
| | | |
| | :::::::::::::::::::::::::::::::::::::::::::::::: : | |
| | | |
| | | |
| | :::::::::::::::::::::::::::::::::::::::::::::::: : | |
| | | |
| | | |
| + ------------------------------------------------- - + |
+ ------------------------------------------------- ----- +


L = 10, x = 15

+ -------------- +
| + ---------- + |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| | :::::::::: | |
| | | |
| | | |
| + ---------- + |
+ -------------- +

Đây là mã golf , vì vậy mã ngắn nhất tính bằng byte sẽ thắng!

_{* Nước có thể chảy ra nếu được xây dựng theo chiều dọc: P}

_{** Có, tôi biết rằng làn đường càng nhiều và hồ bơi càng ngắn thì bản vẽ trông giống như một hồ bơi!}

Than , 32 byte

ＮθＮη↓Ｅθ×η:  Ｂ⁺θ²⁺׳η¹↖←Ｂ⁺θ⁶⁺׳η³

Hãy thử trực tuyến!

-4 cảm ơn Neil .

AST:

Program
├Ｎ: Input Number
│└θ: Identifier θ
├Ｎ: Input Number
│└η: Identifier η
├Print
│├↓: Down
│└Ｅ: Map
│ ├θ: Identifier θ
│ └×: Product
│  ├η: Identifier η
│  └':  ': String ':  '
├Ｂ: Box
│├⁺: Sum
││├θ: Identifier θ
││└2: Number 2
│└⁺: Sum
│ ├×: Product
│ │├3: Number 3
│ │└η: Identifier η
│ └1: Number 1
├Move
│└↖: Up Left
├Move
│└←: Left
└Ｂ: Box
 ├⁺: Sum
 │├θ: Identifier θ
 │└6: Number 6
 └⁺: Sum
  ├×: Product
  │├3: Number 3
  │└η: Identifier η
  └3: Number 3

Than , 40 39 37 byte

ＮθＮηＢ⁺θ⁶⁺׳η³↘→Ｂ⁺θ²⁺׳η¹→Ｆ⁻η¹«Ｍ³↓Ｐ×:θ

Hãy thử trực tuyến!

Tôi biết Neil đã có một câu trả lời Char than có cùng độ dài, nhưng tôi đã thực hiện một chút cách tiếp cận khác vì vậy tôi nghĩ rằng tôi cũng có thể đăng bài của mình.

Giải trình

ＮθＮηＢ⁺θ⁶⁺׳η³↘→Ｂ⁺θ²⁺׳η¹→Ｆ⁻η¹«Ｍ³↓Ｐ×:θ
ＮθＮη                                         take the two inputs as numbers in θ and η
      Ｂ⁺θ⁶⁺×³η³                               draw a rectangle θ + 6 by 3η + 3
                                               (characters default to |, - and +)
                ↘→                             move the cursor down one and right two
                   Ｂ⁺θ²⁺×³η¹                  draw a rectangle θ + 2 by 3η + 1
                             Ｆ⁻η¹«            for ι (unused) from 0 up until η - 1:
                                   Ｍ³↓            move the cursor down by 3
                                       Ｐ×:θ       print θ :s without moving the cursor
                                               [implicit end of for]

Than, 40 38 36 31 byte

Ａ⁺²ＮθＡ⁺¹×³ＮηＵＯθη:¶¶Ｂθη↖←Ｂ⁺⁴θ⁺²η

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

Ａ⁺²Ｎθ       Assign(Plus(2, InputNumber()), q);

Nguyên thủy bản vẽ của than sử dụng tổng số ký tự bao gồm +s, tuy nhiên đầu vào chỉ là số -s, vì vậy chúng ta cần thêm 2 để có được chiều rộng của tường bên trong.

Ａ⁺¹×³Ｎη     Assign(Plus(1, Times(3, InputNumber())), h);

Tính chiều cao của bức tường bên trong, một lần nữa, bao gồm hàng dưới cùng, vì vậy ba trên mỗi làn cộng với một.

ＵＯθη:¶¶     Oblong(q, h, ":\n\n");

Vẽ các làn đường. Đây chỉ đơn giản là một hình chữ nhật chứa đầy :s được phân cách theo chiều dọc bởi hai dòng trống (các ký hiệu đại diện cho các ký tự dòng mới).

Ｂθη         Box(q, h);

Các Rectanglelệnh là chính xác những gì chúng ta cần phải rút ra những bức tường bên trong. Chỉnh sửa: Boxcho phép bạn bỏ qua tham số thứ ba của nó, tiết kiệm cho tôi 2 byte.

↖           Move(:UpLeft);
←           Move(:Left);
Ｂ⁺⁴θ⁺²η     Box(Plus(4, q), Plus(2, h));

Và một lần nữa để vẽ bức tường bên ngoài, ngoại trừ hơi rộng và cao hơn, và tập trung vào bức tường bên trong.

T-SQL, 284 281 byte

DECLARE @ INT,@x INT,@S VARCHAR(MAX)='+--d--+b| +d+ |b'SELECT @=L,@x=x FROM t
P:SET @S+='| |s| |b| |s| |b| |c| |b'SET @x-=1IF @x>0GOTO P
PRINT REPLACE(REPLACE(REPLACE(REPLACE(LEFT(@S,LEN(@S)-6)+'+d+ |b+--d--+','d',REPLICATE('-',@)),'b',CHAR(13)),'s',SPACE(@)),'c',REPLICATE(':',@))

Đầu vào được lấy từ các cột INT L và x trong bảng có sẵn t , theo các phương thức nhập được phép của chúng tôi .

Về cơ bản, tôi đang tạo một chuỗi dài với các chữ cái đại diện cho các ký tự lặp lại (d = dấu gạch ngang, s = dấu cách, c = dấu hai chấm, b = ngắt dòng), sau đó thay thế tất cả chúng ở cuối bằng các bộ đệm thích hợp.

Định dạng:

DECLARE @ INT,@x INT,@S VARCHAR(MAX)='+--d--+b| +d+ |b'
SELECT @=L,@x=x FROM t
P:
    SET @S+='| |s| |b| |s| |b| |c| |b'
    SET @x-=1
IF @x>0 GOTO P
PRINT REPLACE(REPLACE(REPLACE(REPLACE( LEFT(@S,LEN(@S)-6)+'+d+ |b+--d--+'
     ,'d',REPLICATE('-',@))
     ,'b',CHAR(13))
     ,'s',SPACE(@))
     ,'c',REPLICATE(':',@))

Bên trong vòng lặp, tôi nối thêm 2 hàng trống và 1 hàng dấu hai chấm, sau đó, cuối cùng tôi cắt bỏ hàng phân chia đó và nối thêm đường viền hồ bơi trước khi thực hiện thay thế.

EDIT : Đã lưu 3 byte bằng cách chuyển sang @biến thường được sử dụng nhất và hoán đổi thứ tự khởi tạo.

JavaScript (ES6), 137 124 byte

Đánh golf xuống một chút trên điện thoại của tôi, nhiều hơn để làm theo.

x=>y=>`+--0--+
| +0+ |
${((a=`| |1| |
`)+a+`| |2| |
`).repeat(y-1)+a+a}| +0+ |
+--0--+`.replace(/\d/g,n=>"- :"[n].repeat(x))

Thử nó

f=
x=>y=>`+--0--+
| +0+ |
${((a=`| |1| |
`)+a+`| |2| |
`).repeat(y-1)+a+a}| +0+ |
+--0--+`.replace(/\d/g,n=>"- :"[n].repeat(x))
oninput=_=>o.innerText=f(+i.value)(+j.value);o.innerText=f(i.value=50)(j.value=5)

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

<label for=i>L: </label><input id=i type=number><label for=j>x: </label><input id=j type=number><pre id=o>

Con trăn 2 , 124 120 117 byte

^{-2 byte nhờ Hyper Neutrino}

l,x=input()
o='+--%s--+\n| +%s+ |\n'%(('-'*l,)*2)
print o+'| |%s| |\n'*(x*3-1)%((' '*l,' '*l,':'*l)*x)[:-1]+o[-2::-1]

Hãy thử trực tuyến!

SOGL V0.12 , 52 51 byte

:┌* +1Ο;@*┐1ΟG∙⁴++⁰
b3*Ie4+⁰b3*He⁰32žbH∫3*2+4;e :*ž

Hãy thử nó ở đây!
Không tệ khi xem xét rằng 20 byte của đây là một hàm hình chữ nhật, mà than có tích hợp sẵn.

Giải trình:

Rectangle function: (example: on stack 4, 2)
:                   duplicate the top of stack (X pos)      [4, 2, 2]
 ┌*                 get that many "-"es                     [4, 2, "--"]
    +               push "+"                                [4, 2, "--", "+"]
     1Ο             wrap the dashes in pluses               [4, 2, "+--+"]
       ;            get the duplicated X position           [4, "+--+", 2]
        @*          get that many spaces                    [4, "+--+", "  "]
          ┐         push "|"                                [4, "+--+", "  ", "|"]
           1Ο       wrap the spaces with "|"                [4, "+--+", "|  |"]
             G      get the Y value ontop                   ["+--+", "|  |", 4]
              ∙     get an array with that many strings     ["+--+", ["|  |", "|  |", "|  |", "|  |"]]
               ⁴    duplicate the dashes wrapped in pluses  ["+--+", ["|  |", "|  |", "|  |", "|  |"], "+--+"]
                ++  add everything to one array             [["+--+", "|  |", "|  |", "|  |", "|  |", "+--+"]]
Main function: (example input: 2, 5)
b3*                              push variable B (input 1, Y length) multiplied by 3                     [6]
   I                             increase it                                                             [7]
    e4+                          push variable E (input 2, X length) + 4                                 [7, 9]
       ⁰                         execute the rectangle function [in X: E+4, Y: b*3+1]                    [["+---------+","|         |","|         |","|         |","|         |","|         |","|         |","|         |","+---------+"]]
        b3*                      push variable B * 3                                                     [["+---------+",..,"+---------+"], 6]
           H                     decrease it                                                             [["+---------+",..,"+---------+"], 5]
            e                    push variable E                                                         [["+---------+",..,"+---------+"], 5, 5]
             ⁰                   execute the rectangle function [on X: E, Y: B*3-1]                      [["+---------+",..,"+---------+"], ["+-----+","|     |","|     |","|     |","|     |","|     |","+-----+"]]
              32ž                at coordinates [3;2] (1-indexed) in the first rectangle put in the 2nd  [["+---------+",
                                                                                                           "| +-----+ |",
                                                                                                           "| |     | |",
                                                                                                           "| |     | |",
                                                                                                           "| |     | |",
                                                                                                           "| |     | |",
                                                                                                           "| |     | |",
                                                                                                           "| +-----+ |",
                                                                                                           "+---------+"]
                 bH∫             iterate over the numbers from 1 to B-1:                                 [[...], 1]
                    3*2+           push pop()*3+2                                                        [[...], 5]
                        4;         push 4 one below the stack                                            [[...], 4, 5]
                          e        push the variable E (X length)                                        [[...], 4, 5, 5]
                            :*     get that many colons                                                  [[...], 4, 5, ":::::"]
                              ž    insert [at coordinates [4; cIter*3+2] the colons]                     

C # (.NET Core) , 202 byte

(L,x)=>{char p='+',n='\n',e=' ';string v="|",r="",s=p+new string('-',L+4)+p+n,q=v+e+p+new string('-',L)+p+e+v+n;r+=s+q;for(int i=0;i<3*x-1;)r+=v+e+v+new string(i++%3<2?e:':',L)+v+e+v+n;r+=q+s;return r;}

Hãy thử trực tuyến!

Python 2 , 128 126 byte

L,x=input()
k='+'+'-'*(L+4)+'+\n| +'+'-'*L+'+ |\n'
f=lambda k:'| |'+k*L+'| |\n'
print k+f(':').join([f(' ')*2]*x)[:-1]+k[::-1]

Hãy thử trực tuyến!

-2 byte nhờ @ Mr.Xcoder

PHP , 153 byte

for(;$i-2<$z=3*$argv[2]+1;$i++)echo str_pad(strrev($r=["--+","+ |","| |"][!($b=$i>1&$i<$z)?$i&&$i<$z+1?1:0:2]),$argv[1]+3,"- :"[$b?$i%3!=1?1:2:0])."$r
";

Hãy thử trực tuyến!

Python 2 , 97 byte

L,x=input()
for i in'01'+'223'*~-x+'2210':r=('+|||-   -+||'+L*'-- :')[int(i)::4];print r+r[2::-1]

Hãy thử trực tuyến!

Python 2 , 98 byte

L,x=input()
s='+---| +-%s+-+---'%'|:'.join(['| '*5]*x)
while s:print s[:3]+s[3]*L+s[2::-1];s=s[4:]

Hãy thử trực tuyến!

Than , 36 byte

ＮθＮηＦη«Ｍ³↑Ｐ×θ:»←Ｂ⁺θ²⁺׳η¹↖←Ｂ⁺θ⁶⁺׳η³

Hãy thử trực tuyến!

Đây là một thuật toán Char than-y nhiều hơn câu trả lời khác của tôi.

C (gcc) , 195 byte

#define P printf
y;f(L,l){char s[L+1],t[L+1];memset(s,45,L);memset(t,58,L);t[L]=s[L]=0;P("+-%s-+\n|+%s+|\n",s,s);for(y=3*l;y-->1;y%3?P("||%*c||\n",L,32):P("||%s||\n",t));P("|+%s+|\n+-%s-+",s,s);}

Hãy thử trực tuyến!

Perl 5 , 124 + 1 (-a) = 125 byte

say$o='+'.'-'x($l=pop@F),$t="----+
",$i="| $o+ |
",$e=($d="| |").$"x$l.$d,$/,$e;say$d.':'x$l."$d
$e
$e"for 2..$_;say$i,$o,$t

Hãy thử trực tuyến!