Zeichnen Sie ein ASCII-Rechteck

20

Zeichnen Sie bei zwei Ganzzahlen als Eingabe in einem Array ein Rechteck, wobei Sie die erste Ganzzahl als Breite und die zweite als Höhe verwenden.

Wenn Ihre Sprache dies unterstützt, können die beiden Ganzzahlen auch als separate Eingaben eingegeben werden.

Angenommen, die Breite und Höhe betragen niemals weniger als 3, und sie werden immer angegeben.

Beispielausgaben:

[3, 3]

|-|
| |
|-|

[5, 8]

|---|
|   |
|   |
|   |
|   |
|   |
|   |
|---|

[10, 3]

|--------|
|        |
|--------|

Das ist Code-Golf, also gewinnt die Antwort mit der geringsten Anzahl von Bytes.

MCMastery
quelle

Antworten:

6

Jolf, 6 Bytes

,ajJ'|

Probieren Sie es hier aus! Meine Box hat sich endlich als nützlich erwiesen! : D

,ajJ'|
,a       draw a box
  j      with width (input 1)
   J     and height (input 2)
    '    with options
     |    - corner
          - the rest are defaults
Conor O'Brien
quelle
10

Jelly , 14 Bytes

,þ%,ỊḄị“-|| ”Y

Probieren Sie es online! oder überprüfen Sie alle Testfälle .

Wie es funktioniert

,þ%,ỊḄị“-|| ”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.
Dennis
quelle
Dies ist eine wunderbare Verwendung von :)
Lynn
9

Matlab, 69 65 56 Bytes

Danke @WeeingIfFirst und @LuisMendo für ein paar Bytes =)

function z=f(a,b);z(b,a)=' ';z([1,b],:)=45;z(:,[1,a])='|'

Dies ist in Matlab ganz einfach: Erstellen Sie zuerst eine Matrix mit der gewünschten Größe, indizieren Sie dann die erste und letzte Zeile, um die einzufügen -, und tun Sie dasselbe mit der ersten und letzten einzufügenden Spalte |.

Zum Beispiel f(4,3)kehrt zurück

|--|
|  |
|--|
fehlerhaft
quelle
@WeeingIfFirst Oh, natürlich, vielen Dank!
Fehler
6 Bytes kürzer:z([1,b],1:a)=45;z(1:b,[1,a])=124;z=[z,'']
Stewie Griffin
Noch kürzer:z(b,a)=' ';z([1,b],:)=45;z(:,[1,a])=124
Luis Mendo
@ LuisMendo Danke! Wir brauchen die Zeichenkette immer noch hart, sonst wird das Array in eine numerische umgewandelt.
Fehler
@flawr wird z(b,a)=' 'als char initialisiert . Danach können Sie Zahlen eingeben, die automatisch in char umgewandelt werden. zbehält seinen ursprünglichen Typ bei
Luis Mendo
8

JavaScript (ES6), 63 Byte

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>

Neil
quelle
Template-Funktion als Standardargument übergeben? Klug!
Florrie
8

Haskell, 62-55 Bytes

f[a,b]n=a:(b<$[3..n])++[a]
g i=unlines.f[f"|-"i,f"| "i]

Anwendungsbeispiel:

*Main> putStr $ g 10 3
|--------|
|        |
|--------|

Die Hilfsfunktion fnimmt eine Zwei-Elemente-Liste [a,b]und eine Zahl nund gibt eine Liste von eins agefolgt von n-2 bs gefolgt von eins zurück a. Wir können verwenden fdreimal: die obere / untere Zeile zu bauen: f "|-" ieine mittlere Linie: f "| " iund von den beiden die ganze Rechteck: f [<top>,<middle>] j(Anmerkung: jnicht erscheint als Parameter in g iwegen der Teilanmeldung).

Edit: @dianne sparte einige Bytes, indem er zwei CharArgumente zu einem Stringder Länge 2 kombinierte . Vielen Dank!

nimi
quelle
Ich mag die #Idee!
Fehler
2
Ich denke, Sie können ein paar Bytes sparen, indem Sie definieren (a:b)#n=a:([3..n]>>b)++[a]und schreiben["|-"#i,"| "#i]#j
Dianne
@dianne: Sehr schlau. Vielen Dank!
nimi
8

Python 2, 61-58 Bytes

-3 Bytes dank @flornquake (unnötige Klammern entfernen; hals Zähler verwenden)

def f(w,h):exec"print'|'+'- '[1<h<%d]*(w-2)+'|';h-=1;"%h*h

Testfälle sind bei ideone

Jonathan Allan
quelle
('- '[1<i<h])braucht keine Klammern.
Flornquake
Speichern Sie ein weiteres Byte, indem Sie h als Zähler verwenden:exec"print'|'+'- '[1<h<%d]*(w-2)+'|';h-=1;"%h*h
Flornquake
@flornquake Ich hatte vorgehabt, die Notwendigkeit dieser Klammern zu überprüfen, aber vergessen. Verwenden hals Theke ist klug! Vielen Dank.
Jonathan Allan
8

PHP, 74 Bytes

for(;$i<$n=$argv[2];)echo str_pad("|",$argv[1]-1,"- "[$i++&&$n-$i])."|\n";
Jörg Hülsermann
quelle
1
Sie können immer noch ein Byte mit einem physischen Zeilenumbruch gewinnen.
Titus
1
-2 Bytes mit !$i|$n==++$istatt!$i|$n-1==$i++
Titus
1
ein weiteres Byte mit$i++&&$n-$i?" ":"-"
Titus
1
$i++&&$n-$i?" ":"-"-> "- "[$i++&&$n-$i](-2)
Titus
7

Vimscript, 93 83 75 74 73 66 64 63 Bytes

Code

fu A(...)
exe "norm ".a:1."i|\ehv0lr-YpPgvr dd".a:2."p2dd"
endf

Beispiel

:call A(3,3)

Erläuterung

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

Beachten Sie, dass es nicht verwendet wird, norm!so dass vim benutzerdefinierte Zuordnungen beeinträchtigt werden können!

Christian Rondeau
quelle
5

MATL , 19 Bytes

'|-| '2:"iqWQB]E!+)

Probieren Sie es online!

Erläuterung

Der Ansatz ähnelt dem in dieser anderen Antwort verwendeten . Der Code erstellt ein numerisches Array des Formulars

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

und dann werden seine Werte als (1-basierte, modulare) Indizes in die Zeichenfolge verwendet '|-| ', um das gewünschte Ergebnis zu erzielen.

'|-| '                % 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
Luis Mendo
quelle
5

05AB1E , 23 22 20 Bytes

Eingabe als Höhe, dann Breite.

F„ -N_N¹<Q~è²Í×'|.ø,

Erläuterung

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

Probieren Sie es online!

2 Bytes gespart dank Adnan

Emigna
quelle
Teil statt der if-else - Anweisung speichert zwei Bytes: F„ -N_N¹<Q~è²Í×'|.ø,.
Adnan
5

C 73 Bytes

i;f(w,h){for(i=++w*h;i--;)putchar(i%w?~-i%w%~-~-w?i/w%~-h?32:45:124:10);}
orlp
quelle
4

Python 2, 56 Bytes

w,h=input()
for c in'-%*c'%(h-1,45):print'|'+c*(w-2)+'|'

Flornquake sparte ein Byte.

Lynn
quelle
1
Gute Verwendung der String-Formatierung! Sie können ein Byte mit der %cKonvertierung speichern :'-%*c'%(h-1,45)
Flornquake
Oh, ich dachte %*cnicht einmal etwas! Vielen Dank. :)
Lynn
'-%%%dc'%~-h%45funktioniert auch für die gleiche Länge.
Xnor
4

Common Lisp, 104 Bytes

Golf gespielt:

(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 "-")))

quelle
3

Turtlèd , 40 Bytes

Dolmetscher ist etwas nicht mehr buggèd

?;,u[*'|u]'|?@-[*:l'|l[|,l]d@ ],ur[|'-r]

Erläuterung

?                            - 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
Zerstörbare Zitrone
quelle
3

Mathematica, 67 64 bytes

Thanks to lastresort and TuukkaX for reminding me that golfers should be sneaky and saving 3 bytes!

Straightforward implementation. Returns an array of strings.

Table[Which[j<2||j==#,"|",i<2||i==#2,"-",0<1," "],{i,#2},{j,#}]&
Greg Martin
quelle
1
Use 0<1 in place of True
u54112
1
I think that j==1 can be reduced to j<1, and i==1 to i<1.
Yytsi
3

Python 3, 104 95 bytes

( feedback from @mbomb007 : -9 bytes)

def d(x,y):return'\n'.join(('|'+('-'*(x-2)if n<1or n==~-y else' '*(x-2))+'|')for n in range(y))

(my first code golf, appreciate feedback)

Biarity
quelle
Welcome! You can remove some of the spaces, use range(y) instead of range(0,y), and if n is never negative you can use if n<1or n==~-y else
mbomb007
See the Python tips page
mbomb007
@mbomb007 thanks! I'll check it out.
Biarity
2

Batch, 128 bytes

@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.

Neil
quelle
2

Haxe, 112 106 bytes

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);}}

Testcases

R(5, 8)
|---|
|   |
|   |
|   |
|   |
|   |
|   |
|---|

R(10, 3)
|---------|
|         |
|---------|
Yytsi
quelle
2

Java 135 bytes

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;}
Roman Gräf
quelle
I count 136 :) You can also save a char by removing the space after the first comma.
Christian Rondeau
1
First of all, this code doesn't compile. Even if this would compile, it wouldn't 'draw' a rectangle as the OP currently wants. -1.
Yytsi
@TuukkaX I fixed that newline problem, but I don't see any reason why it should not compile. Of course you have to put that code in a class, but then it should work.
Roman Gräf
1
"I don't see any reason why it should not compile". What's this then: o+=x "|\n"? Did you mean to put an + there?
Yytsi
Thanks. I didn't wanted to place any characters there.
Roman Gräf
2

PowerShell v3+, 55 bytes

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.

Examples

PS C:\Tools\Scripts\golfing> .\draw-an-ascii-rectangle.ps1 10 3
|--------|
|        |
|--------|

PS C:\Tools\Scripts\golfing> .\draw-an-ascii-rectangle.ps1 7 6
|-----|
|     |
|     |
|     |
|     |
|-----|
AdmBorkBork
quelle
2

PHP, 82 bytes

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
    ];
Titus
quelle
Dear downvoter: why?
Titus
1
It could be because a user saw that your answer was flagged as low quality in the review queue. If you post an explanation of your code, or anything more than a one-liner, you can avoid it being automatically flagged.
mbomb007
@mbomb: I have never seen anyone post a description for a oneliner in a non-eso language.
Titus
Or output, or a non-golfed version. It doesn't matter as long as the content is not too short. But you probably haven't been around long if you haven't seen that. Some Python one-liners can be pretty complicated. Look at some of @xnor's.
mbomb007
2

Ruby, 59 54 52 bytes

Oh, that's a lot simpler :)

->x,y{y.times{|i|puts"|#{(-~i%y<2??-:' ')*(x-2)}|"}}

Test run at ideone

daniero
quelle
1
You can save a couple bytes by using a literal newlines instead of \n.
Jordan
1
You can save bytes by not defining i and j. Replace i's definition with x-=2. Instead of j, just use (y-2).
m-chrzan
Yeah, thanks :)
daniero
2

Perl, 48 bytes

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-/$/),"-"
Ton Hospel
quelle
Nice one, as always. Note that you've got a backtick at the end of the line while you probably wanted to write a single quote ;-)
Dada
@Dada Fixed. Thanks.
Ton Hospel
2

Lua, 120 93 bytes

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

Try it on Repl.it

ATaco
quelle
1

Python 2, 67 bytes

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)

|--------|
|        |
|--------|
ElPedro
quelle
1

MATL, 21 17 bytes

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!

Try it Online!

flawr
quelle
1

PHP 4.1, 76 bytes

<?$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

Ismael Miguel
quelle
@Titus You should read the link. Quoting: "As of PHP 4.2.0, this directive defaults to off".
Ismael Miguel
Ouch sorry I take everything back. You have the version in your title. I should read more carefully.
Titus
@Titus That's alright, don't worry. Sorry for being harsh on you.
Ismael Miguel
Nevermind; that´s the price I pay for being pedantic. :D
Titus
@Titus Don't worry about it. Just so you know, around half of my answers are written in PHP 4.1. It saves tons of bytes with input
Ismael Miguel
1

Python 3, 74 chars

p="|"
def r(w,h):m=w-2;b=p+"-"*m+p;return b+"\n"+(p+m*" "+p+"\n")*(h-2)+b
vpzomtrrfrt
quelle
1

Swift(2.2) 190 bytes

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.

Danwakeem
quelle
1

F#, 131 bytes

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 " ")) "|"]
Biarity
quelle