Schatzkarte Zeichnen Bot

14

Sie organisieren eine Schatzsuche für Ihre Freunde. Um die Arbeit zu vereinfachen, möchten Sie eine Karte aller Orte zeichnen, an denen Sie die wertvollen Objekte versteckt haben.

Eingang

Jede Form der Eingabe, die eine Liste von Punkten angibt, die aus (nichtnegativen) x- und y-Koordinaten besteht, 0 0wobei die obere linke Ecke zulässig ist (Hinweis: Sie können in Ihrer Antwort auch eine 1-basierte Indexierung verwenden ). Beispiel:

1 2
3 0
0 1

Herausforderung

Ihre Funktion oder Ihr Programm sollte in der Lage sein, eine Karte zu erstellen, die jede gegebene Stelle mit einer Stelle bezeichnet, xan der sich die Markierung in Zeile y + 1 und Spalte x + 1 in der Ausgabe befindet. Nicht markierte Stellen sind mit einem gekennzeichnet . Die Karte besteht auch aus einem Rahmen, in dem die Ecken +s, die vertikalen Linien |s und die horizontalen Linien -s sind. Ihre Lösung sollte den kleinstmöglichen Frame ausgeben. Karte für das oben angegebene Eingabebeispiel:

+----+
|   x|
|x   |
| x  |
+----+

Mögliche Testfälle


"0 0"
=>
+-+
|x|
+-+

"0 10
 5 5
 10 0"
=>
+-----------+
|          x|
|           |
|           |
|           |
|           |
|     x     |
|           |
|           |
|           |
|           |
|x          |
+-----------+

""
=>
++
++

"0 0
 0 2
 2 0"
=>
+---+
|x x|
|   |
|x  |
+---+

Natürlich ist dies , was bedeutet, dass die Lösung mit der niedrigsten Byteanzahl gewinnt! Erklärungen zu Ihrer Lösung sind erwünscht.

racer290
quelle
Nicht wirklich, aber ich konnte nicht wirklich über ein anderes Eingabeformat nachdenken. Aber ich bin bereit, das zu ändern, wenn es der Herausforderung zugute kommt.
racer290
Kann es nicht quadratische Karten geben?
FrownyFrog
4
@ racer290 Ich würde vorschlagen, nur etwas zu sagen wiethe input is a list of locations (e.g. nested list, list of tuples, space & newline separated, separate inputs, ect.)
dzaima
1
Kann die Ausgabe ein 2D-Array von Zeichen sein?
Ovs
2
Kann ich eine Funktion einreichen, die die x- und y-Koordinaten als zwei separate Argumente verwendet?
ბიმო

Antworten:

7

J , 37-34 Bytes

0<@|:' x'{~((i.@]e.#.~)1+>./) ::#:

Probieren Sie es online!

                       1+>./          maximum for each coordinate + 1
             i.@]                     make an array with these dimensions filled with 0..x*y
                                      /* if the input is empty, 
                                         1+>./ is negative infinity
                                         and i.@] throws an error  */
                   #.~                mixed base conversion of input
                 e.                   replace the elements of i.@]
                                        with 1 if it's present in the
                                        converted input, 0 otherwise
           (                ) ::      if there's an error do the other thing instead
                                #:    "to binary", for empty input this returns a 0x0 matrix
0<@|:' x'{~                           index into character string, transpose and put in a box
FrownyFrog
quelle
1
Ich denke, dass die Ausgabeformatierung besser ist als die von mir vorgeschlagene;)
racer290
Warum ist das ::emptyso wortreich? Was macht es Warum kann es nicht auf 1 Byte oder so vereinfacht werden? (Ich habe keine Kenntnis von J)
Magic Octopus Urn
Ich habe es auf TIO ohne :: empty ausgeführt und es schien zu funktionieren (weiß auch nicht, J)
Quintec
Eigentlich scheint :: empty den "" Eingabefall zu handhaben
Quintec
@MagicOctopusUrn Ich kenne keinen kürzeren Weg, um ein wirklich leeres Feld auszugeben, sie sind standardmäßig 1 Zeile hoch.
FrownyFrog
4

JavaScript (ES6), 150 Byte

Nimmt die Eingabe als Liste mit 1-indizierten Koordinaten im [x,y]Format. Gibt eine Zeichenfolge zurück.

a=>(g=w=>y<h?' |-+x'[4*a.some(a=>a+''==[x,y])|2*(-~y%h<2)|++x%w<2]+[`
`[x=x<w?x:+!++y]]+g(w):'')((M=i=>Math.max(2,...a.map(a=>a[i]+2)))(x=y=0),h=M(1))

Probieren Sie es online!

Arnauld
quelle
4

Haskell , 127 123 Bytes

Dies definiert den Operator, (!)der eine Liste von x- Koordinaten und eine Liste der entsprechenden y- Koordinaten nimmt:

x!y|l<-'+':('-'<$m x)++"+"=unlines$l:['|':[last$' ':['x'|(i,j)`elem`zip x y]|i<-m x]++"|"|j<-m y]++[l];m x=[1..maximum$0:x]

Probieren Sie es online!

Ungolfed / Erklärung

Die Hilfsfunktion merwartet eine Liste und gibt Indizes (1-basiert) bis zum Maximum zurück. Wenn die Liste leer ist, gibt sie Folgendes zurück []:

m x | null x    = []
    | otherwise = [1 .. maximum x]

Der eigentliche Operator (!)ist nur ein Listenverständnis, das alle Koordinaten durchläuft und ein oder ein xZeichen auswählt, das mit Zeilenumbrüchen verbunden wird:

x ! y
  -- construct the top and bottom line
  | l <- "+" ++ replicate (maximum (0:x)) '-' ++ "+"
  -- join the list-comprehension with new-lines
  = unlines $ 
  -- prepend the top line
      [l]
  -- the actual map:
    -- begin the line with | and add the correct chars for each coordinate
      ++ [ "|" ++ [ if (i,j) `elem` zip x y then 'x' else ' '
    -- "loop" over all x-coordinates
                 | i <- m x
                 ]
    -- end the line with a |
           ++ "|"
    -- "loop" over all y-coordinates
         | j <- m y
         ]
  -- append the bottom line
      ++ [l]
ბიმო
quelle
3

Canvas , 22 Byte

ø╶{X;┤╋}l|*eL┤-×+e:└∔∔

Probieren Sie es hier aus!

Nimmt 1-indizierte Eingaben auf.

Schließlich entschied ich mich, einen Fehler zu beheben, der mich schon seit Ewigkeiten nervt, und spielte diesen auf 21 Bytes herunter .

Erklärung (halb-ASCII-fähig für Monospace):

ø╶{X;┤╋}l|*eL┤-×+e:└++  full program, implicitly outputting ToS at the end
ø                       push an empty Canvas - the map
 ╶{    }                for each array in the input array
   X                      push "X"
    ;┤                    and push the two coordinates separately on the stack
      ╋                   and overlap the "X" there in the map
        l               get the vertical length of the map
         |*             repeat "|" vertically that many times
           e            encase the map in two of those vertical bars
            L           get the horizontal length of the map
             ┤          subtract 2 (leave place for the "+"es)
              -×        repeat "-" that many times
                +e      encase that line in "+"es
                  :└    push a copy of that below the map
                    ++  and join the 3 items vertically
dzaima
quelle
3

Python 2 , 151 140 138 Bytes

-2 Bytes dank Jo King.

Die Eingabe ist 1-indiziert.

m=input()
w,h=map(max,zip((0,0),*m))
b=['+'+'-'*w+'+']
M=b+['|'+' '*w+'|']*h+b
for x,y in m:M[y]=M[y][:x]+'x'+M[y][x+1:]
print'\n'.join(M)

Probieren Sie es online!

ovs
quelle
Ich vermute, dass Sie eine 1-basierte Indizierung verwenden. Bitte hinterlassen Sie in Ihrer Antwort einen Hinweis dazu, wie in der Challenge angegeben.
racer290
2

Kohle , 37 Bytes

≔E²⁺²⌈Eθ§λιηB⊟⮌η⊟ηFθ«J⊟⮌ι⊟ιx

Probieren Sie es online! Link ist eine ausführliche Version des Codes. 1-indiziert. Erläuterung:

¿¬LθUR²+«

Sonderfall Leereingabe durch Zeichnen eines 2x2 Rechtecks ​​von +s.

≔E²⁺²⌈Eθ§λιη

Transponieren Sie die Eingabe, nehmen Sie das Maximum jeder Spalte (jetzt Zeile) und addieren Sie 2, um die Boxgröße in Charcoal-Koordinaten zu erhalten.

B⊟⮌η⊟η

Zeichne die Schachtel.

Fθ«

Schleife über jede Koordinate.

J⊟⮌ι⊟ι

Springe zu seiner Position.

x

Markiere mit einem Kreuz.

Neil
quelle
Scheint bei leerer Eingabe zu scheitern: tio.run/…
wastl
@wastl Danke, ich habe eine Problemumgehung gefunden.
Neil
2

Stax , 32 31 24 Bytes

╩╠ee%╙æM■↓^⌐╧ΩΓ¡c¥èf¢○ [

Führen Sie es aus und debuggen Sie es

Nimmt 0-basierte Indizes als Array von [y, x]Paaren.

Erläuterung:

zs'X&|<cM%'-*'+|S]s{'||Smn++m Unpacked program, implicit input
zs                            Tuck empty array under input
  'X                          Push "X"
    &                         Assign element at all indices (create map)
                                As the indexing arrays are an array of arrays, treat them as a path to navigate a multidimensional array.
                                Extend array if needed.
     |<                       Left-align all to the length of the longest.
       cM%                    Copy, transpose, length (width)
          '-*                 Repeat "-"
             '+|S             Surround with "+"
                 ]s           Make a singleton and tuck it below the map
                   {    m     Map:
                    '||S        Surround with "|"
                         n++  Surround with the above/below border (built above)
                            m Map:
                                Implicit output
wastl
quelle
1
Schön gemacht. Sie können aus der |SSurround-Anweisung und einer nachgestellten Kurzform etwas mehr Kilometer herausholen. ( m) Surround nimmt aund bvom Stapel und produziert b+a+b. Und Sie können manstelle des Finales verwenden |J, um die Zeilen zu durchlaufen und eine Ausgabe zu erstellen. Zum Beispiel
rekursiver
1
Eine weitere Sache: Sie können ersetzen z]n+H%mit cM%. Dies ist das Teil, das die Kartenbreite erhält, aber einen Sonderfall für leere Karten hat. Wenn Sie die Karte vor dem Vermessen transponieren, verschwindet der Sonderfall.
rekursiver
@recursive Ich hatte nach etwas wie Surround gesucht, aber ich habe nach den falschen Schlüsselwörtern gesucht
wastl
Wie würden Sie diese Operation natürlich nennen? Ich kann es den Dokumenten hinzufügen, damit die nächste Person es finden kann.
rekursiver
@recursive Ich erinnere mich nicht, was es war, und ich würde es jetzt natürlich Surround nennen
wastl
2

R , 133 125 122 Bytes

function(m)cat(z<-c("+",rep("-",u<-max(m[,1])),"+","
"),rbind("|",`[<-`(matrix(" ",u,max(m[,2])),m,"x"),"|","
"),z,sep="")

Probieren Sie es online!

1-indiziert. Nimmt eine Matrix als Argument. 8 Bytes dank digEmAll, 3 dank Giuseppe! Erklärung (frühere Version des Codes):

function(m){                           #x and y are the 1st and 2nd col of m
s=matrix(32,u<-max(m[,1]),max(m[,2]))  #s (treasure map) has dim max(x), max(y) 
s[m]=120                               #place the X's on the map
cat(                                   #print:
    z<-c("+",rep("-",u),"+","\n"),     #the top line
    intToUtf8(rbind(124,s,124,13)),    #the map
    z,                                 #the bottom line.
    sep="")
}
JayCe
quelle
Wenn Sie normale Zeichen anstelle von UTF - 8 - Codes verwenden , speichern Sie 8 Zeichen: tio.run/##ZU7NDoIwDL7zFEu9tKEzDONF4UkMhzmGchgYNhKC@uwIaozRpG36/...
digEmAll
122 Bytes, indem Sie [<-direkt verwenden, um die Klammern zu entfernen.
Giuseppe
@ Giuseppe in der Tat! Ich wusste, dass es einen Weg geben musste.
JayCe
1

Koordinaten des Formats [y, x]

JavaScript (Node.js) , 191 184 Byte

c=f=a=>{a.map(([y,x])=>(c[M<++y?M=y:y]=c[y]||[])[m<++x?m=x:x]="x",M=m=0)
m++
M++
s=""
for(i=0;i<=M;s+=`
`,i++)for(j=0;j<=m;j++)s+=(c[i]||0)[j]||(j%m?i%M?" ":"-":i%M?"|":"+") 
return s}

Probieren Sie es online!

DanielIndie
quelle
Ich glaube, Sie haben versehentlich die x- und y-Koordinaten vertauscht.
racer290
@ racer290 könntest du genauer sein?
DanielIndie
Bei der Suche nach Ihrer Lösung stellte ich fest, dass das Ändern der x-Koordinate in den Testfällen zu einer Änderung der vertikalen Richtung der Koordinate führte. Ich vermute, der Bug ist in der ersten Reihe ( a.map(([y,x]))
racer290
Aber x ist der richtige Parameter, wie die Testfälle zeigen
DanielIndie
2
Also nimmst du in deiner Lösung zuerst die y-Koordinate? Ich denke, es wäre besser, in Ihrer Antwort eine Notiz darüber zu hinterlassen.
racer290
1

JavaScript, 180 Byte

F = 

s=>s.map(([x,y])=>(t[y]=t[Y<y?Y=y:y]||[])[X<x?X=x:x]='x',t=[X=Y=0])&&[...t,0].map((_,y)=>[...Array(X+2)].map((_,x)=>[(t[y]||0)[x]||' ',...'-|+'][!(y%~Y)+2*!(x%~X)]).join``).join`
`


console.log(F([[1,11],[6,6],[11,1]]))

l4m2
quelle
1

Java 10, 238 223 Bytes

c->{var r="";int w=0,h=0,x,y;for(var l:c){w=(x=l.get(0))>w?x:w;h=(y=l.get(1))>h?y:h;}for(w++,h++,x=-1;++x<=w;r+="\n")for(y=-1;++y<=h;)r+=x%w+y%h<1?"+":x%w<1?"-":y%h<1?"|":(c+"").contains("["+x+", "+y+"]")?"x":" ";return r;}

1-indizierte Koordinaten.

Probieren Sie es online aus.

Erläuterung:

c->{                      // Method with 2D Lists as parameter and String return-type
  var r="";               //  Result-String, starting empty
  int w=0,h=0,            //  Width and height, starting at 0
      x,y;                //  Temp x,y coordinates
  for(var l:c){           //  Loop over the Inner Lists containing the coordinates
    w=(x=l.get(0))>w?x:w; //   Determine width based on max x-coordinate
    h=(y=l.get(1))>h?y:h;}//   Determine height based on max y-coordinate
  for(w++,h++,            //  Increase both the width and height by 1
      x=-1;++x<=w;        //  Loop `x` in the range [0, width]
      r+="\n")            //    After every iteration: append a new-line to the result
    for(y=-1;++y<=h;)     //   Inner loop `y` in the range [0, height]
      r+=                 //    Append the following character to the result-String:
        x%w+y%h<1?        //    If it's one of the corners:
          "+"             //     Append "+"
        :x%w<1?           //    Else-if it's the top or bottom row:
          "-"             //     Append "-"
        :y%h<1?           //    Else-if it's the right or left column:
          "|"             //     Append "|"
        :(c+"").contains("["+x+", "+y+"]")? 
                          //    Else-if the current `x,y` is part of the input-coordinates
          "x"             //     Append "x"
        :                 //    Else:
          " ";            //     Append " "
  return r;}              //  Return the result-String
Kevin Cruijssen
quelle
rwhxy; lcwxlgetw? xw; hylgeth? yh; forwhxxwr. foryyhrxwyh? xwyhcxy? xr.
Magic Octopus Urn
@MagicOctopusUrn Wofür benennen Sie alle Variablen und get/ oder for? : S XD
Kevin Cruijssen
1

C (gcc) , 246 234 Bytes

Danke an ceilingcat für den Vorschlag.

Nullindexiert. Die Funktion erstellt eine Liste mit Koordinaten und Puffern, ermittelt die maximalen x- und y-Werte, füllt den Puffer mit Leerzeichen, generiert den Frame und zeichnet dann die X-Werte.

f(int*a,char*c){int*b=a,x,y=x=-1,i=0;for(;~*b;*++b>y?y=*b:0,++b)*b>x?x=*b:0;for(x+=4,y+=3,memset(c,32,x*y);++i<x;c[i]=c[y*x-i]=45);for(i=0;i<y;c[x*++i-1]=10*(i<=y))c[x*i]=c[x*i+x-2]=i&&y/i?124:43;for(b=a;~*b;b+=2)c[*b+1-~b[1]*x]='x';}

Probieren Sie es online!

ErikF
quelle
Bug in unterster Reihe 235 Bytes
behoben
1

05AB1E , 44 42 Bytes

ζεZ}>`UX'-×'+.ø©,F'|NVXF¹YN‚.å„ xè}'|J,}®,

Probieren Sie es online!


 ζεZ}>`                                     # Push the max of X and Y to the stack +1.
       UX                                   # Store the max X.
         '-×'+.ø©,                          # Print the top border.
                  F                     }   # From 0 to Y...
                   '|                       # Push left border.
                     NV                     # Store current Y in Y.
                       XF          }        # From 0 to X...
                         ¹                  # Push input.
                          YN‚               # Group current X and Y.
                             .å             # Exists in original input ? 1 : 0
                               „ xè         # Exists ? 'X' : ' '
                                    '|J,    # Right border, join, print.
                                         ®, # Print bottom border.

X und Y können vertauscht sein, wussten nicht, ob das überhaupt von Bedeutung ist.


Ich glaube, ich habe das in weniger Bytes, aber wir werden sehen ... Nein.

ζεZ}>`D'-×'+.øUð×'|.øs.D)X.ø©svy>`s®sUXès'xsǝXǝ}
Magische Kraken-Urne
quelle
1
Es ist nicht viel, aber man kann 1 Byte speichern , indem die ersten Wechsel Fzu Lv, entfernen NVund ändern Yzu y. 41 Bytes
Kevin Cruijssen
1
Wie von @Emigna im Chat erwähnt , εZ}kann das sein €à.
Kevin Cruijssen
Ich hasse es, dies auf dem Handy zu bearbeiten.
Magic Octopus Urn
1
@ KevinCruijssen Ývnicht Lv, aber trotzdem eine gute Bearbeitung :).
Magic Octopus Urn
Ah, du hast recht. Ývstatt Lv. Mein Fehler.
Kevin Cruijssen
0

C (gcc) , 229 220 216 Bytes

-9 bytes dank ceilingcat .

Nullindexiert. Nimmt Koordinaten als Liste von Zahlen, wobei gerade Zahlen X und ungerade Zahlen Y sind.

X,Y,i,j,k,x,z;f(l,n)int*l;{for(X=Y=0,i=n*=2;i--;X=fmax(l[i],X))Y=fmax(l[i--],Y);n&&X++-Y++;for(--i;i++<Y;puts(""))for(j=-1;j<=X;z=i<0|i==Y,putchar(j++<0|j>X?z?43:'|':x?z?45:32:'x'))for(x=k=n;k--;)x*=l[k--]-i|l[k]-j;}

Probieren Sie es online!

Gastropner
quelle
@ceilingcat Prost!
Gastropner
Schlagen Sie for(n&&X++-Y++;i<=Y;i+=puts(""))anstelle vonn&&X++-Y++;for(--i;i++<Y;puts(""))
ceilingcat vor