กำหนดจำนวนเต็มสองจำนวนเป็นอินพุตในอาร์เรย์วาดสี่เหลี่ยมโดยใช้จำนวนเต็มแรกเป็นความกว้างและวินาทีเป็นความสูง
หรือหากภาษาของคุณรองรับจำนวนเต็มสองตัวสามารถกำหนดเป็นอินพุตแยกกันได้
สมมติว่าความกว้างและความสูงจะไม่น้อยกว่า 3 และจะได้รับเสมอ
ตัวอย่างผลลัพธ์:
[3, 3]
|-|
| |
|-|
[5, 8]
|---|
| |
| |
| |
| |
| |
| |
|---|
[10, 3]
|--------|
| |
|--------|
นี่คือรหัสกอล์ฟดังนั้นคำตอบที่มีจำนวนไบต์น้อยที่สุดจะเป็นผู้ชนะ
คำตอบ:
,ajJ'|
ลองที่นี่! กล่องของฉันในตัวในที่สุดก็มามีประโยชน์! : D
,ajJ'|
,a draw a box
j with width (input 1)
J and height (input 2)
' with options
| - corner
- the rest are defaults
,þ%,ỊḄị“-|| ”Y
ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด
,þ%,ỊḄị“-|| ”Y Main link. Left argument: w. Right argument: h
,þ Pair table; yield a 2D array of all pairs [i, j] such that
1 ≤ i ≤ w and 1 ≤ j ≤ h.
, Pair; yield [w, h].
% Take the remainder of the element-wise division of each [i, j]
by [w, h]. This replaces the highest coordinates with zeroes.
Ị Insignificant; map 0 and 1 to 1, all other coordinates to 0.
Ḅ Unbinary; convert each pair from base 2 to integer.
[0, 0] -> 0 (area)
[0, 1] -> 1 (top or bottom edge)
[1, 0] -> 2 (left or right edge)
[1, 1] -> 3 (vertex)
“-|| ” Yield that string. Indices are 1-based and modular in Jelly, so the
indices of the characters in this string are 1, 2, 3, and 0.
ị At-index; replace the integers by the correspoding characters.
Y Join, separating by linefeeds.
ขอบคุณ @WeeingIfFirst และ @LuisMendo สำหรับบางไบต์ =)
function z=f(a,b);z(b,a)=' ';z([1,b],:)=45;z(:,[1,a])='|'
นี้เป็นเรื่องง่ายจริงๆใน Matlab: ก่อนให้เมทริกซ์ขนาดที่ต้องการแล้วดัชนีแถวแรกและครั้งสุดท้ายให้ใส่และทำเช่นเดียวกันกับคอลัมน์แรกและครั้งสุดท้ายที่จะแทรก-|
ตัวอย่างเช่นf(4,3)ผลตอบแทน
|--|
| |
|--|
z([1,b],1:a)=45;z(1:b,[1,a])=124;z=[z,'']
z(b,a)=' ';z([1,b],:)=45;z(:,[1,a])=124
z(b,a)=' 'ให้เป็นถ่าน หลังจากนั้นคุณสามารถกรอกตัวเลขและพวกเขาจะถูกโยนโดยอัตโนมัติ zรักษาชนิดเดิม
f=
(w,h,g=c=>`|${c[0].repeat(w-2)}|
`)=>g`-`+g` `.repeat(h-2)+g`-`
;<div oninput=o.textContent=f(w.value,h.value)><input id=w type=number min=3 value=3><input id=h type=number min=3 value=3><pre id=o>f[a,b]n=a:(b<$[3..n])++[a]
g i=unlines.f[f"|-"i,f"| "i]
ตัวอย่างการใช้งาน:
*Main> putStr $ g 10 3
|--------|
| |
|--------|
ฟังก์ชั่นผู้ช่วยfยิงสองรายการองค์ประกอบ[a,b]และจำนวนnและผลตอบแทนที่รายการหนึ่งaตามด้วยn-2 bs aตามด้วยหนึ่ง เราสามารถใช้fสามครั้ง: เพื่อสร้างเส้นบน / ล่าง: f "|-" i, เส้นกลาง: f "| " iและจากทั้งสองรูปสี่เหลี่ยมผืนผ้าทั้งหมด: f [<top>,<middle>] j(หมายเหตุ: jไม่ปรากฏเป็นพารามิเตอร์g iเนื่องจากแอปพลิเคชันบางส่วน)
แก้ไข: @dianne บันทึกบางไบต์ด้วยการรวมสองCharอาร์กิวเมนต์เข้าด้วยกันเป็นหนึ่งStringในความยาว 2 ขอบคุณมาก!
#ความคิด!
(a:b)#n=a:([3..n]>>b)++[a]และเขียน["|-"#i,"| "#i]#j
-3 ไบต์ด้วย @flornquake (ลบวงเล็บที่ไม่จำเป็นออกใช้hเป็นตัวนับ)
def f(w,h):exec"print'|'+'- '[1<h<%d]*(w-2)+'|';h-=1;"%h*hกรณีทดสอบอยู่ที่ideone
('- '[1<i<h])ไม่ต้องการวงเล็บ
exec"print'|'+'- '[1<h<%d]*(w-2)+'|';h-=1;"%h*h
hเป็นเคาน์เตอร์เป็นสมาร์ท! ขอบคุณ
fu A(...)
exe "norm ".a:1."i|\ehv0lr-YpPgvr dd".a:2."p2dd"
endf
:call A(3,3)
fun A(...) " a function with unspecified params (a:1 and a:2)
exe " exe(cute) command - to use the parameters we must concatenate :(
norm " run in (norm) al mode
#i| " insert # vertical bars
\e " return (`\<Esc>`) to normal mode
hv0l " move left, enter visual mode, go to the beginning of the line, move right (selects inner `|`s)
r- " (r)eplace the visual selection by `-`s
YpP " (Y) ank the resulting line, and paste them twice
gv " re-select the previous visual selection
r<Space> " replace by spaces
dd " Cut the line
#p " Paste # times (all inner rows)
2dd " Remove extra lines
โปรดทราบว่ามันไม่ได้ใช้งานnorm!ดังนั้นอาจรบกวนการแมปกำหนดเองที่เป็นกลุ่ม!
'|-| '2:"iqWQB]E!+)
วิธีการคล้ายกับที่ใช้ในคำตอบอื่น ๆนี้ รหัสจะสร้างอาร์เรย์ที่เป็นตัวเลขของแบบฟอร์ม
3 2 2 2 3
1 0 0 0 1
1 0 0 0 1
1 0 0 0 1
1 0 0 0 1
1 0 0 0 1
1 0 0 0 1
3 2 2 2 3
จากนั้นค่าของมันจะถูกใช้เป็นดัชนี (แบบโมดูลาร์ 1) ลงในสตริง'|-| 'เพื่อสร้างผลลัพธ์ที่ต้องการ
'|-| ' % Push this string
2:" ] % Do this twice
i % Take input
q % Subtract 1
W % 2 raised to that
Q % Add 1
B % Convert to binary
E % Multiply by 2
! % Transpose
+ % Add with broadcast
) % Index (modular, 1-based) into the string
ข้อมูลที่ป้อนเป็นความสูงแล้วความกว้าง
F„ -N_N¹<Q~è²Í×'|.ø,
คำอธิบาย
F # height number of times do
N_ # current row == first row
~ # OR
N¹<Q # current row == last row
„ - è # use this to index into " -"
²Í× # repeat this char width-2 times
'| # push a pipe
.ø # surround the repeated string with the pipe
, # print with newline
บันทึก 2 ไบต์ขอบคุณAdnan
F„ -N_N¹<Q~è²Í×'|.ø,ใช้สตริงแทนคำสั่งถ้า-อื่นช่วยประหยัดไบต์ที่สอง:
i;f(w,h){for(i=++w*h;i--;)putchar(i%w?~-i%w%~-~-w?i/w%~-h?32:45:124:10);}
w,h=input()
for c in'-%*c'%(h-1,45):print'|'+c*(w-2)+'|'
flornquake บันทึกหนึ่งไบต์
%cการแปลง:'-%*c'%(h-1,45)
%*cไม่แม้แต่จะเป็นอะไร! ขอขอบคุณ. :)
'-%%%dc'%~-h%45ยังสามารถใช้ได้กับความยาวเท่ากัน
แข็งแรงเล่นกอล์ฟ:
(defun a(w h)(flet((f(c)(format t"|~v@{~A~:*~}|~%"(- w 2)c)))(f"-")(loop repeat(- h 2)do(f" "))(f"-")))
Ungolfed:
(defun a (w h)
(flet ((f (c) (format t "|~v@{~A~:*~}|~%" (- w 2) c)))
(f "-")
(loop repeat (- h 2) do
(f " "))
(f "-")))
ล่ามจะไม่มีการแปลเล็กน้อยอีกต่อไป
?;,u[*'|u]'|?@-[*:l'|l[|,l]d@ ],ur[|'-r]
? - input integer into register
; - move down by the contents of register
, - write the char variable, default *
u - move up
[* ] - while current cell is not *
'| - write |
u - move up
'| - write | again
? - input other integer into register
@- - set char variable to -
[* ] - while current char is not *
:l'|l - move right by amount in register, move left, write |, move left again
[|,l] - while current cell is not |, write char variable, move left
d@ - move down, set char variable to space (this means all but first iteration of loop writes space)
,ur -write char variable, move up, right
[| ] -while current char is not |
'-r - write -, move right
(ข้อเสนอแนะจาก @ mbomb007: -9 ไบต์)
def d(x,y):return'\n'.join(('|'+('-'*(x-2)if n<1or n==~-y else' '*(x-2))+'|')for n in range(y))(กอล์ฟรหัสแรกของฉันขอขอบคุณข้อเสนอแนะ)
range(y) instead of range(0,y), and if n is never negative you can use if n<1or n==~-y else
@set s=
@for /l %%i in (3,1,%1)do @call set s=-%%s%%
@echo ^|%s%^|
@for /l %%i in (3,1,%2)do @echo ^|%s:-= %^|
@echo ^|%s%^|
Takes width and height as command-line parameters.
function R(w,h){for(l in 0...h){var s="";for(i in 0...w)s+=i<1||i==w-1?'|':l<1||l==h-1?'-':' ';trace(s);}}
R(5, 8)
|---|
| |
| |
| |
| |
| |
| |
|---|
R(10, 3)
|---------|
| |
|---------|
public String rect(int x, int y){
String o="";
for(int i=-1;++i<y;){
o+="|";
for(int j=2;++j<x)
if(i<1||i==y-1)
o+="-";
else
o+=" ";
o+="|\n";
}
return o;
}
Golfed:
String r(int x,int y){String o="";for(int i=-1;++i<y;){o+="|";for(int j=2;++j<x;)if(i<1||i==y-1)o+="-";else o+=" ";o+="|\n";}return o;}
o+=x "|\n"? Did you mean to put an + there?
param($a,$b)1..$b|%{"|$((' ','-')[$_-in1,$b]*($a-2))|"}
Takes input $a and $b. Loops from 1 to $b. Each iteration, we construct a single string. The middle is selected from an array of two single-length strings, then string-multiplied by $a-2, while it's surrounded by pipes. The resulting strings are left on the pipeline, and output via implicit Write-Output happens on program completion, with default newline separator.
Alternatively, also at 55 bytes
param($a,$b)1..$b|%{"|$((''+' -'[$_-in1,$b])*($a-2))|"}
This one came about because I was trying to golf the array selection in the middle by using a string instead. However, since [char] times [int] isn't defined, we lose out on the savings by needing to cast as a string with parens and ''+.
Both versions require v3 or newer for the -in operator.
PS C:\Tools\Scripts\golfing> .\draw-an-ascii-rectangle.ps1 10 3
|--------|
| |
|--------|
PS C:\Tools\Scripts\golfing> .\draw-an-ascii-rectangle.ps1 7 6
|-----|
| |
| |
| |
| |
|-----|
list(,$w,$h)=$argv;for($p=$h--*$w;$p;)echo$p--%$w?$p%$w?$p/$w%$h?" ":"-":"|
":"|";
indexing a static string including the newline
list(,$w,$h)=$argv; // import arguments
for($p=$h--*++$w;$p;) // loop $p through all positions counting backwards
// decrease $h and increase $w to avoid parens in ternary conditions
echo" -|\n"[
$p--%$w // not (last+1 column -> 3 -> "\n")
? $p%$w%($w-2) // not (first or last row -> 2 -> "|")
?+!($p/$w%$h) // 0 -> space for not (first or last row -> 1 -> "-")
:2
:3
];
Oh, that's a lot simpler :)
->x,y{y.times{|i|puts"|#{(-~i%y<2??-:' ')*(x-2)}|"}}
\n.
i and j. Replace i's definition with x-=2. Instead of j, just use (y-2).
Includes +1 for -n
Give sizes as 2 lines on STDIN
perl -nE 'say"|".$_ x($`-2)."|"for"-",($")x(<>-1-/$/),"-"'
3
8
^D
Just the code:
say"|".$_ x($`-2)."|"for"-",($")x(<>-1-/$/),"-"
Saved quite a few bytes by removing stupid over complexities.
function(w,h)function g(s)return'|'..s:rep(w-2)..'|\n'end b=g'-'print(b..g' ':rep(h-2)..b)end
Ungolfed:
function(w,h) -- Define Anonymous Function
function g(s) -- Define 'Row Creation' function. We use this twice, so it's less bytes to function it.
return'|'..s:rep(w-2)..'|\n' -- Sides, Surrounding the chosen filler character (' ' or '-'), followed by a newline
end
b=g'-' -- Assign the top and bottom rows to the g of '-', which gives '|---------|', or similar.
print(b..g' ':rep(h-2)..b) -- top, g of ' ', repeated height - 2 times, bottom. Print.
end
def f(a,b):c="|"+"-"*(a-2)+"|\n";print c+c.replace("-"," ")*(b-2)+c
Examples
f(3,3)
|-|
| |
|-|
f(5,8)
|---|
| |
| |
| |
| |
| |
| |
|---|
f(10,3)
|--------|
| |
|--------|
Z"45ILJhY('|'5MZ(
This is a slightly different approach than the one of the MATL-God.
Z" Make a matrix of spaces of the given size
45ILJhY( Fill first and last row with '-' (code 45)
'|'5MZ( Fill first and last column with '|' (using the automatic clipboard entry 5M to get ILJh back)
Thanks @LuisMendo for all the help!
<?$R=str_repeat;echo$l="|{$R('-',$w=$W-2)}|
",$R("|{$R(' ',$w)}|
",$H-2),$l;
This assumes you have the default php.ini settings for this version, including short_open_tag and register_globals enabled.
This requires access through a web server (e.g.: Apache), passing the values over session/cookie/POST/GET variables.
The key W controls the width and the key H controls the height.
For example: http://localhost/file.php?W=3&H=5
p="|"
def r(w,h):m=w-2;b=p+"-"*m+p;return b+"\n"+(p+m*" "+p+"\n")*(h-2)+b
let v = {(c:String,n:Int) -> String in var s = "";for _ in 1...n {s += c};return s;};_ = {var s = "|"+v("-",$0-2)+"|\n" + v("|"+v(" ",$0-2)+"|\n",$1-2) + "|"+v("-",$0-2)+"|";print(s);}(10,5)
I think Swift 3 could golf this a lot more but I don't feel like downloading Swift 3.
let d x y=
let q = String.replicate (x-2)
[for r in [1..y] do printfn "%s%s%s" "|" (if r=y||r=1 then(q "-")else(q " ")) "|"]
Ị:)