Giochiamo a tennis 2: gioco est-ovest

10

C'è una sfida Giochiamo a tennis di Daniel . Propone di collocare un tribunale nella direzione nord-sud. La mia proposta è quella di creare un campo per giocare a tennis anche nella direzione est-ovest.

Devi stampare un campo da tennis, ma devi farlo nel minor numero di byte possibile a causa di motivi confidenziali.

Campo da tennis

------x------
|  |  x  |  |
|  |--x--|  |
|  |  x  |  |
------x------

Le regole originali sono:

Nessuno spazio extra.
Nessuna scheda in quanto sarebbero ingiusti.
È consentita una nuova riga finale facoltativa.

Questo è code-golf , quindi vince il codice più breve in byte!

code-golf string ascii-art kolmogorov-complexity

— Mazzy
fonte

Risposte:

6

Tela , 13 12 byte

«ω↕9:gＷ：ｔＣ‟┼

quad-palindromizza un angolo compresso del campo .

11 byte con lettere maiuscole X, usando il fatto che /comprime meglio di xe palindromizzando si tradurrebbe in sovrapposizione /e il suo mirror \, che si traduce inX

— dzaima
fonte

1

Vedi, il mio pensiero quando ho visto per la prima volta questa domanda era "ho abbastanza tempo per andare a imparare Canvas adesso e quindi pubblicare una soluzione?" Evidentemente no: P

— Quintec,

10

Python 2 , 59 byte

s="------x------\n|  |  x  |  |\n|  |--x"
print s+s[-2::-1]

Provalo online!

Stampa la prima metà della stringa seguita dal suo rovescio. È noioso ma efficiente. Ho provato a estrarre parti ripetute di fuori s, in particolare il -, ma non ho trovato niente di più breve.

Python 2 , 59 byte

for n in 6,0,2,0,6:x='-'*n+'  |  |'[n:];print x[::-1]+'x'+x

Provalo online!

Usando la costruzione di Jo King .

Python 2 , 62 byte

b='|  '*2
for r in'-'*6,b,'|  |--',b,'-'*6:print r+'x'+r[::-1]

Provalo online!

Stampa la prima metà di ogni riga, seguita da 'x', seguita dalla prima metà invertita.

— XNOR
fonte

7

Carbone , 15 byte

↑²←⁶↓xx→x²↑²‖Ｏ¬

Provalo online! Il collegamento è alla versione dettagliata del codice. A titolo di spiegazione, mostrerò il risultato dopo ciascuno dei comandi di disegno fino alla riflessione finale:

↑²        |
          |

     ------
←⁶        |
          |

    x------
↓xx x     |
          |

    x------
→x² x     |
    x--   |

    x------
↑²  x  |  |
    x--|  |

— Neil
fonte

4

Python 3 , 65 62 byte

for n in 7,0,3,0,7:x="-"*n+"|  "*5;print(x[6:0:-1]+'x'+x[1:7])

Provalo online!

— Jo King
fonte

4

Ora questo è il tipo di magia che taglia le corde che pensavo dovesse avere una risposta Python a questa sfida. Ben fatto!

— DLosc,

3

Dyalog APL, 36 byte

(⌽,'x',⊢)(⊢⍪'--|  |'⍪⊖)'-'⍪1 6⍴'  |'

Provalo online!

Con un piccolo aiuto di Adám

— dzaima
fonte

2

Python 3, 75 byte

s='-'*6;p='|  |';w=s+'x'+s;a=p+'  x  '+p;print(w,a,p+w[4:9]+p,a,w,sep='\n')

Probabilmente giocabile a golf - non ho mai provato le sfide della complessità del kolmogorov prima d'ora.

Provalo online!

In Python 2 ho potuto arrivare a 76 byte

s='-'*6;p='|  |';w=s+'x'+s;a=p+'  x  '+p
for i in w,a,p+w[4:9]+p,a,w:print i

— Quintec
fonte

2

Perl 5 , 55 byte

say$_,x,~~reverse for('-'x6,'|  'x2,'|  |--')[0..2,1,0]

Provalo online!

— nwellnhof
fonte

2

APL (Dyalog Classic) , 35 byte

' |-x'[(⍉⊖⍪1∘↓)⍣2⍉3⍪2,⍨676 28⊤⍨6⍴3]

Provalo online!

— NGN
fonte

Ho appena visto questo santo ora cosa

— Quintec,

1

Pip `-l` , 42 39 34 byte

RV@<P"|  |".[s'-]X2PE'-X6M_.'x.RV_

Provalo online!

Soluzione alternativa, anche 34 byte:

RV@<P"-0|  0|  |--"^0M_@<16RA6,t'x

Provalo online!

— DLosc
fonte

1

Python 2 , 69 68 66 byte

-2 grazie a Jo King

for l in"-","|  ","|  |--","|  ","-":l*=6;print l[:6]+"x"+l[5::-1]

Provalo online!

Noi ciclo i seguenti tre modelli infinitamente (6 volte è sufficientemente infinito per i nostri scopi) e fetta fuori i primi 6 caratteri di ogni: -, | e | |--. Quindi, per ottenere il campo da tennis, concateniamo xe il contrario di ogni linea.

— DLosc
fonte

1

J , 53 byte

echo|:'x'(<6)}'-'(<2;~4+i.5)}13$3 5$'-|||',11$'--   '

Provalo online!

— Galen Ivanov
fonte

1

MBASIC , 82 byte

1 WIDTH 13:PRINT"------x------|  |  x  |  ||  |--x--|  ||  |  x  |  |------x------

Abusare della direttiva WIDTH mi ha fatto risparmiare circa 20 byte.

— wooshinyobject
fonte

1

K (ngn / k) , 34 byte

+"x-| "@4\509 425 477 0@4\17218113

Provalo online!

Risposta del porto di K4. 2 byte salvati con il 4\, 1 byte perso a causa del+

— streetster
fonte

1

05AB1E , 25 24 byte

"
 -x|"•L®y[Â-Γ•5вèJ.º.∊

Provalo online.

25 alternativa a 24 byte:

… -|•B°”Ñ•3вèJ3ä'x«».º.∊

Provalo online.

Spiegazione:

"\n -x|"       # Push string "\n -x|"
•L®y[Â-Γ•      # Push compressed number 5960566858660563
         5в    # Converted to Base-5 as list: 
               #  [2,2,2,2,2,2,3,0,4,1,1,4,1,1,3,0,4,1,1,4,2,2,3]
è              # Index each digit into the string
 J             # And join the list together
               #  "\n -x|" and [2,2,2,2,2,2,3,0,4,1,1,4,1,1,3,0,4,1,1,4,2,2,3]
               #   → "------x\n|  |  x\n|  |--x"
.º             # Intersect mirror everything horizontally
  .∊           # Intersect mirror everything vertically (and output implicitly)

… -|           # Push string " -|"
•B°”Ñ•         # Push compressed integer 193812448
      3в       # Converted to Base-3 as list: [1,1,1,1,1,1,2,0,0,2,0,0,2,0,0,2,1,1]
è              # Index each digit into the string
 J             # And join the list together
               #  " -|" and [1,1,1,1,1,1,2,0,0,2,0,0,2,0,0,2,1,1]
               #   → "------|  |  |  |--"
3ä             # Split the string into three parts: ["------","|  |  ","|  |--"]
  'x«         '# Append an "x" to each: ["------x","|  |  x","|  |--x"]
     »         # Join by newlines: "------x\n|  |  x\n|  |--x"
.º             # Intersect mirror everything horizontally
  .∊           # Intersect mirror everything vertically (and output implicitly)

Vedi questo mio suggerimento 05AB1E (sezione Come comprimere numeri interi di grandi dimensioni? ) Per capire perché •L®y[Â-Γ•è 5960566858660563ed •B°”Ñ•è 193812448.

Grazie al generatore di arte ASCII di @MagicOctopusUrn per •L®y[Â-Γ•5BžLR"\n -x|"‡e •B°”Ñ•3BžLR" -|"‡, dopo di che il traslitterato è stato ulteriormente colpito scambiando il numero e la stringa nello stack, utilizzare вinvece di Be indicizzare la stringa con è.

— Kevin Cruijssen
fonte

0

Bubblegum , 28 byte

00000000: d3d5 0581 0a30 a9cb 55a3 a000 4415 60b2  .....0..U...D.`.
00000010: 06cc 03cb c179 0839 5d14 7d00            .....y.9].}.

Provalo online!

— Logern
fonte

0

Gelatina , 22 byte

“Þḅ“ H“ \’ṃ“-|x ”ŒBŒḄY

Provalo online!

— Jonathan Allan
fonte

0

V , 25 byte

13é-Äï5I  |<esc>ÄÙ4l5r-Îd^ãrx

Provalo online!

hexdump:

00000000: 3133 e92d c4ef 3549 2020 7c1b c4d9 346c  13.-..5I  |...4l
00000010: 3572 2dce 645e e372 78                   5r-.d^.rx

Ecco il mio processo:

13é-Äï5I  |<esc>3<<ÄÙ4l5r-Gã<C-v>ërx
13é-Äï5I  |<esc>3<<ÄÙ4l5r-Î7|rx
13é-Äï5I  |<esc>3<<ÄÙ4l5r-Îãrx
13é-Äï5I  |<esc>ÄÙ4l5r-Îd^ãrx

Versione alternativa:

5I  |<esc>5ÄM4l5r-HÒ-G.Îxxãrx

hexdump:

00000000: 3549 2020 7c1b 35c4 4d34 6c35 722d 48d2  5I  |.5.M4l5r-H.
00000010: 2d47 2ece 7878 e372 780a                 -G..xx.rx.

— Giacomo
fonte

0

JavaScript (Node.js) , 76 byte

(a='----',A='|  |',b='--x--',B='  x  ')=>[p=a+b+a,q=A+B+A,A+b+A,q,p].join`
`

Provalo online!

68 byte se la matrice di stringhe è consentita.

JavaScript (Node.js) , 75 byte

_=>[p='x---',q='x|  ','x| -',q,p].map(c=>[...'1221330331221'].map(d=>c[d]))

Provalo online!

Questo array di caratteri 2d in uscita. Non so se si può giocare ancora a golf.

— tsh
fonte

0

Rosso , 98 80 byte

foreach r[1 2 3 2 1][print pick["------x------""|  |  x  |  |""|  |--x--|  |"]r]

Provalo online!

— Galen Ivanov
fonte

0

Pyth , 32 byte

t_ps@L"x-
| "jC"??ôkË7"5

Provalo online qui . Il codice sopra contiene alcuni caratteri strani, quindi la copia / incolla probabilmente non funzionerà.

Stampa la prima metà del motivo, seguita dal suo rovescio senza il centro x.

t_ps@L"x-\n| "jC"..."5   Note newline replaced with \n, encoded string replaced with ...

               C"..."    Convert encoded string to base 256 number 727558509253668163499780
              j      5   Convert to base 5, yields [1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 2, 3, 4, 4, 3, 4, 4, 0, 4, 4, 3, 4, 4, 3, 2, 3, 4, 4, 3, 1, 1, 0]
    @L                   Map each of the above to...
      "x-\n| "           ... [x, -, newline, |, space]
   s                     Concatenate into string
  p                      Print without newline
 _                       Reverse
t                        All but first character, implicit print

— Sok
fonte

0

Powershell, 60 59 byte

-1 byte grazie @AdmBorkBork

('------x------','|  |  x  |  |','|  |--x--|  |')[0,1+2..0]

— Mazzy
fonte

1

59 byte da fare[0,1+2..0]

— AdmBorkBork,

0

Stax , 19 byte

⌡x♠=Γτ^┼¢Δ¶─êiö$≥⌐▓

Esegui ed esegui il debug

— ricorsivo
fonte

0

C # (.NET Core) , 88 byte

string a="------x------\n",b="|  |  x  |  |\n";Console.Write(a+b+"|  |--x--|  |\n"+b+a);

Provalo online!

Ungolfed:

string a = "------x------\n",
       b = "|  |  x  |  |\n";
Console.Write(a + b + "|  |--x--|  |\n" + b + a);

Ecco un modo alternativo per farlo con una funzione anonima basata sulla risposta di Adrianmp dal primo thread Let's Play Tennis:

C # (.NET Core) , 88 byte

()=>{string a="------x------\n",b="|  |  x  |  |\n";return(a+b+"|  |--x--|  |\n"+b+a);};

Provalo online!

Ungolfed:

() =>
{
    string a = "------x------\n",
           b = "|  |  x  |  |\n";
    return(a + b + "|  |--x--|  |\n" + b + a);
};

— Meerkat
fonte

0

K4 , 36 35 byte

Soluzione:

"x-| "@4\:509 425 477 0@4\:17218113

Esempio:

q)k)"x-| "@4\:509 425 477 0@4\:17218113
"------x------"
"|  |  x  |  |"
"|  |--x--|  |"
"|  |  x  |  |"
"------x------"

Spiegazione:

Vogliamo generare un elenco di indici nell'array "x-| ", ad es

1 1 1 1 1 1 0 1 1 1 1 1 1
2 3 3 2 3 3 0 3 3 2 3 3 2
2 3 3 2 1 1 0 1 1 2 3 3 2
2 3 3 2 3 3 0 3 3 2 3 3 2
1 1 1 1 1 1 0 1 1 1 1 1 1

Per generare questo possiamo prendere la rappresentazione base-4 del capovolgimento di questi numeri. Questo ci dà:

425 509 509 425 477 477 0 477 477 425 509 509 425

Possiamo prendere i valori distinti e indicizzarli negli indici di cui abbiamo bisogno:

q)509 425 477 0@1 0 0 1 2 2 3 2 2 1 0 0 1
425 509 509 425 477 477 0 477 477 425 509 509 425

Questo array 1 0 0 1 2 2 3 2 2 1 0 0 1convertito in base-4 è

q)k)4/:1 0 0 1 2 2 3 2 2 1 0 0 1
17218113

Quindi, per la soluzione, stiamo solo facendo questi passaggi al contrario.

"x-| "@4\:509 425 477 0@4\:17218113 / the solution
                        4\:17218113 / convert 17218113 into base-4
          509 425 477 0@            / index (@) into 509 425 477 0
       4\:                          / convert to base-4
"x-| "@                             / index (@) into "x-| "

— streetster
fonte

0

/// , 46 byte

/#/
!  x  !
//"/------//!/|  |/"x"#!--x--!#"x"

Provalo online!

— Conor O'Brien
fonte

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.