Rendering della casella ASCII


11

Compito

Il tuo compito è scrivere un programma che produrrà caselle ASCII nelle posizioni specificate dall'input.

Ingresso

Ti verrà dato un elenco di numeri. Il formato qui è un po 'flessibile, nel senso che è possibile utilizzare qualsiasi deliminator che si desidera (ad esempio 1,2,3,4, 1 2 3 4, [1,2,3,4]). L'elenco è in gruppi di 4 e specifica il xywhdi ogni casella. La larghezza e l'altezza di ogni riquadro saranno almeno 2. xe widthsono da sinistra a destra. ye heightsono dall'alto verso il basso.

Produzione

Il rendering può essere pensato come da destra a sinistra, con la casella sulla destra disegnata per prima, e ogni casella dopo è sopra di essa. Sono consentiti spazi finali, nonché una nuova riga finale.

Come gestire le scatole sovrapposte

Il riquadro a sinistra dell'input è il riquadro in alto e nulla lo sovrapporrà. Ogni riquadro dopo viene visualizzato solo nello spazio che non è già contenuto in un riquadro e non sostituirà il bordo di un riquadro già reso.

Stile

Lo stile delle scatole è abbastanza standard, con +usato per gli angoli, -usato per le linee orizzontali e |usato per le linee verticali.

Esempi:

( >>>indica input)

>>>0 0 11 4 7 2 8 4 3 5 8 3
+---------+
|         |
|         |---+
+---------+   |
       |      |
   +---+------+
   |      |
   +------+


>>>0 3 11 4 7 5 8 4 3 8 8 3 4 0 13 5
    +-----------+
    |           |
    |           |
+---------+     |
|         |-----+
|         |---+
+---------+   |
       |      |
   +---+------+
   |      |
   +------+


>>>0 0 2 2
++
++


>>>2 2 5 3 1 1 7 5 0 0 9 7
+-------+
|+-----+|
||+---+||
|||   |||
||+---+||
|+-----+|
+-------+

>>>0 0 3 3 2 0 3 3
+-+-+
| | |
+-+-+

Quello medio non dovrebbe essere 4 0 13 5piuttosto che 0 4 13 5?
Neil,

2 ° rettangolo dal basso nei primi 2 casi ha x = 7 (per essere coerente con i rettangoli x = 0)
Level River St

1
Grazie per averlo notato, raramente scrivo le risposte alle mie domande, e quindi tutto questo è a mano ...
J Atkin,

@JAtkin Mi dispiace, mi sono perso.
Conor O'Brien,

Va bene, mi manca spesso roba anche durante la lettura;)
J Atkin,

Risposte:


4

APL, 116 byte

{⎕IO←0⋄K←' '⍴⍨⌽+⌿2 2⍴⌈⌿↑⍵⋄K⊣{x y W H←⍵-⌊.5×⍳4⋄K[Y←y+⍳H;X←x+⍳W]←' '⋄K[Y;A←x+0 W]←'|'⋄K[B←y+0 H;X]←'-'⋄K[B;A]←'+'}¨⌽⍵}

Questa è una funzione che accetta una matrice di array e restituisce una matrice di caratteri.

test:

      t1← (0 0 11 4)(8 2 8 4)(3 5 8 3)
      t2← (0 3 11 4)(8 5 8 4)(3 8 8 3)(4 0 13 5)
      t3← (⊂0 0 2 2)
      t4← (2 2 5 3)(1 1 7 5)(0 0 9 7)
      {⎕IO←0⋄K←' '⍴⍨⌽+⌿2 2⍴⌈⌿↑⍵⋄K⊣{x y W H←⍵-⌊.5×⍳4⋄K[Y←y+⍳H;X←x+⍳W]←' '⋄K[Y;A←x+0 W]←'|'⋄K[B←y+0 H;X]←'-'⋄K[B;A]←'+'}¨⌽⍵} ¨ t1 t2 t3 t4
┌───────────────────┬─────────────────────┬────┬───────────┐
│+---------+        │    +-----------+    │++  │+-------+  │
│|         |        │    |           |    │++  │|+-----+|  │
│|         |----+   │    |           |    │    │||+---+||  │
│+---------+    |   │+---------+     |    │    │|||   |||  │
│        |      |   │|         |-----+    │    │||+---+||  │
│   +----+------+   │|         |----+     │    │|+-----+|  │
│   |      |        │+---------+    |     │    │+-------+  │
│   +------+        │        |      |     │    │           │
│                   │   +----+------+     │    │           │
│                   │   |      |          │    │           │
│                   │   +------+          │    │           │
│                   │                     │    │           │
│                   │                     │    │           │
└───────────────────┴─────────────────────┴────┴───────────┘

Spiegazione:

  • ⎕IO←0: imposta l'origine dell'indice su 0.
  • Crea una matrice della giusta dimensione:
    • ⌈⌿↑⍵: trova i valori più grandi per x, y, w e h
    • +⌿2 2⍴: x + w e y + h
    • K←' '⍴⍨⌽: crea una matrice di x + w * y + h spazi e memorizzala in K.
  • Disegna le scatole in esso:
    • {...}¨⌽⍵ : per ciascuna delle scatole, in ordine inverso,
      • x y W H←⍵-⌊.5×⍳4: Assegnare le coordinate x, y, W, e H, e sottrarre 1 da entrambeW e H. (le coordinate sono esclusive, gli intervalli di array APL sono inclusi).
      • K[Y←y+⍳H;X←x+⍳W]←' ': riempie la casella corrente con spazi
      • K[Y;A←x+0 W]←'|': disegna i lati verticali
      • K[B←y+0 H;X]←'-': disegna i lati orizzontali
      • K[B;A]←'+': imposta i bordi su '+'
    • K⊣: dopo, ritorno K.

1
APL è un linguaggio così strano per un estraneo ...
J Atkin,

3

ES6, 228 223 217 208 201 198 byte

Accetta una matrice di matrici di coordinate e restituisce una stringa.

a=>a.reverse().map(([x,y,w,h])=>[...Array(y+h)].map((_,i)=>(s=r[i]||'',r[i]=i<y?s:(s+' '.repeat(x)).slice(0,x)+(c=>c[0]+c[1].repeat(w-2)+c[0])(y-i&&y+h-1-i?'| ':'+-')+s.slice(x+w))),r=[])&&r.join`\n`

Dove \n rappresenta un personaggio newline.

Modifica: salvato 5 byte invertendo le mie condizioni. Salvati altri 6 byte passando da un array di array di caratteri a un array di stringhe. Salvati altri 9 byte introducendo una variabile temporanea. Salvati altri 7 byte introducendo una funzione di supporto. Salvati altri 3 byte annullando un salvataggio precedente!


3

Ruby, 153 143

->n{a=(0..m=3*n.max).map{$b=' '*m}
(*n,x,y,w,h=n 
v=w-2
h.times{|i|a[y+i][x,w]=i%~-h<1??++?-*v+?+:?|+' '*v+?|}
)while n[0]
a.delete($b);puts a}

Non registrato nel programma di test

f=->n{                                #worst case width when x=w=large number, is max input*2+1
  a=(1..m=3*n.max).map{$b=' '*m}      #find m=max value in input, make an a array of 3*m strings of 3*m spaces 
  (
    *n,x,y,w,h=n                      #extract x,y,w,h from the end of n, save the rest back to n     
    v=w-2                             #internal space in rectangle is w-2  
    h.times{|i|                       #for each row
      a[y+i][x,w]=                    #substitute the relevant characters of the relevant lines of a 
      i%~-h<1?                        #i%~-h = i%(h-1). This is zero (<1) for first and last lines of the rectangle
      ?+ + ?-*v + ?+ :?| + ' '*v +?|  # +--...--+ or |  ...  | as required
    }
  )while n[0]                         #loop until data exhausted (n[0] becomes falsy as it does not exist)
a.delete($b);puts a}                  #delete blank rows ($b is a global variable) and display

3

SmileBASIC, 128 125 byte

DEF B A
WHILE LEN(A)H=POP(A)W=POP(A)-2Y=POP(A)X=POP(A)FOR I=0TO H-1LOCATE X,Y+I?"+|"[M];"- "[M]*W;"+|"[M]M=I<H-2NEXT
WEND
END

Schermate (ritagliate)

immagine dello schermo immagine dello schermo immagine dello schermo immagine dello schermo immagine dello schermo

Spiegazione

DEF B A 'make a function and add 12 bytes :(
 WHILE LEN(A) 'repeat until array is empty
  H=POP(A):W=POP(A)-2 'get width/height
  Y=POP(A):X=POP(A) 'get x/y
  FOR I=0 TO H-1 'draw one row at a time
   LOCATE X,Y+I 'position the cursor
   PRINT "+|"[M]; 'draw left edge
   PRINT "- "[M]*W; 'draw middle
   PRINT "+|"[M] 'draw right edge
   M=I<H-2
  NEXT
 WEND
END

Mmemorizza se si trova nella prima / ultima riga del riquadro ( 0= +--+, 1= | |). Al primo passaggio attraverso il ciclo, Mè 0 e su tutti gli altri fino all'ultimo, è 1.


Questo è piuttosto carino :)
J Atkin,


1

Pyth, 162 145 byte

J\+K*h.MZm+@d1@d3Q]*h.MZm+@d0@d2QdD:GHb XKHX@KHGb;V_QDlTR@NTVl3Vl2:+l0b+l1H?|qHtl3qH0\-?|qbtl2qb0\|d)):l0l1J:+l0tl2l1J:l0+l1tl3J:+l0tl2+l1tl3J;jK

Puoi provarlo qui

Uscita della suite di test:

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

++
++

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

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

Soluzione orribile! Sto solo aspettando che qualcuno lo batta


2
Il tuo primo esempio mette un + in più in cui le caselle condividono un bordo.
Linus,
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.