Osadzone diamenty!

26

Nie, nie to . I to nie to . To pytanie nie jest takie jak te

Napisz najkrótszy kod, aby wydrukować / zwrócić następujące dane wyjściowe:

   /\      /\      /\
  /  \    /  \    /  \
 / /\ \  / /\ \  / /\ \
/ /  \ \/ /  \ \/ /  \ \
\ \  / /\ \  / /\ \  / /
 \ \/ /  \ \/ /  \ \/ /
  \  / /\ \  / /\ \  /
   \/ /  \ \/ /  \ \/
   /\ \  / /\ \  / /\
  /  \ \/ /  \ \/ /  \
 / /\ \  / /\ \  / /\ \
/ /  \ \/ /  \ \/ /  \ \
\ \  / /\ \  / /\ \  / /
 \ \/ /  \ \/ /  \ \/ /
  \  /    \  /    \  /
   \/      \/      \/
  • Standardowe metody wejścia / wyjścia.
  • Obowiązują standardowe luki.
  • Końcowe / wiodące białe znaki są w porządku, w dowolnej ilości.
Towarzyszu SparklePony
źródło
3
Nie to, nie to, a co z tym ?
Matthew Roh

Odpowiedzi:

14

Węgiel drzewny , 28 24 23 bajtów

↗²↖↙⁴⟲P²⁴⁶↘↙↙²⟲P²⁴⁶C⁸¦⁰

Wypróbuj online! Wyjaśnienie:

↗²↖↙⁴   Draw the top left 4x4 corner
         /
        //
⟲P²⁴⁶   Rotate it three times to complete a diamond
         /\
        //\\
        \\//
         \/
↘↙↙²    Draw the top left line of the inner diamond
         /\
        //\\
        \\//
         \//
⟲P²⁴⁶   Rotate three times to complete five diamonds
C⁸¦⁰    Copy everything 8 characters to the right to complete eight diamonds

Edycja: Moja poprzednia odpowiedź służyła ‖M‖M↓do utworzenia całego diamentu poprzez odzwierciedlenie górnego rogu, ale z powodu błędu w węglu drzewnym kursor pozostawał poza pozycją. Na szczęście odkryłem inny sposób osiągnięcia tego samego efektu, który nie porusza kursorem, co oznaczało, że zapisałem bajt rysujący wewnętrzny diament. (Zajrzałem także do nakładających się operacji, ale nie byłem w stanie poprawić podejścia opartego na obracaniu / kopiowaniu).

Edycja: ↖²↗↘⁴‖M¬M¹¦³↘²‖M¬C⁸¦⁰wykonuje zadanie w 21 bajtach, ale zależy to od nowego zachowania odzwierciedlającego, więc nie wiem, czy było to możliwe przy starym kodzie.

Neil
źródło
Tak, przepraszam, to był błąd - naprawiłem go i spróbuję pchnąć jak najszybciej, ale to wciąż jest niesamowicie krótkie: O +1
tylko ASCII
@ Tylko ASCII Jeśli korzystam z TIO, jak to na mnie wpływa?
Neil
Cóż, wciąż jest buforowany, więc dopóki jest buforowany, powinno być w porządku, jeśli o to ci chodzi
tylko ASCII
@ Tylko ASCII Chcę wiedzieć, że gdy zmienia się zachowanie TIO, chciałbym móc udostępnić zaktualizowany (choć niekonkurujący) link.
Neil
Och, w takim przypadku ma już poprawkę
tylko ASCII,
7

Węgiel , 62 50 48 45 42 40 bajtów

Dzięki @Okx za zapisanie dwóch bajtów!

↙²→↘²↙↖⁴→↗⁴‖MF²C⁸¦⁰M⁸↓→↗²↓↘²M⁴→↑↗²↓↘²‖M↓

Wypróbuj online!

Wyjaśnienie:

↙²→↘²          // Draw the left half of the inner part of the first diamond.
↖⁴→↗⁴          // Draw the left half of the outer part.
‖M             // Mirror the half of the diamond to create the first full diamond.
F²C⁸¦⁰         // Copy the picture eight characters to the left twice.
               // The first copy gives us two diamonds, and the second copy of the
               // two diamonds overlaps so that the result is three diamonds.
M⁸↓→↗²↓↘²     // Move down to draw the upper inner half of the first middle diamond.
M⁴→↑↗²↓↘²     // Move right to do the same for the second middle diamond.
‖M↓           // Mirror the whole thing vertically.
Steadybox
źródło
1
Można wymienić C⁸¦⁰C⁸¦⁰z F²C⁸¦⁰¦zapisać bajt.
Okx,
@Okx Dzięki! W rzeczywistości oszczędza to dwa bajty, ponieważ działa bez trailing ¦.
Steadybox
Dla przypomnienia, niektóre aktualizacje prawdopodobnie to zepsuły, ponieważ kod nie działa już poprawnie w TIO. Odpowiedź nadal pozostaje aktualna, ponieważ działała z wersją używaną przez TIO, kiedy ta odpowiedź została opublikowana.
Steadybox
6

05AB1E , 45 44 43 bajty

Kod:

…/ \©•—‹íćCé']d₂2ó@¯çX‘¯¨•3вè8äJvy®‡«}»Â»

Wstępne wyjaśnienie:

•—‹íćCé'\]d₂2ó@¯çX‘¯¨•3вCzęść jest po prostu skompresowane wersja poniższej tablicy:

[1, 1, 1, 0, 2, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 2, 1, 1, 1, 1, 0, 1, 1, 0, 1, 0, 2, 1, 2, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 2, 1, 2, 0, 1, 0, 1, 2, 1, 2, 1, 1, 0, 1, 0, 2, 1, 2, 1, 1, 2, 1, 2, 0, 1, 0, 1, 1, 2, 1, 2, 1, 1, 2, 1, 1, 0, 1, 0, 2, 1, 2, 1, 1, 1, 1, 2, 0, 1, 0, 1, 1, 2, 1, 2]

Które indeksujemy do łańcucha …/ \. Te mapy 0 -> /, 1 -> space, 2 -> \. Następnie przetwarzamy ten ciąg za pomocą następującego programu:

8äJvy®‡«}»Â»

8ä               # Split the array into 8 pieces
  J              # Join each sub-array in the array
   vy     }      # For each string in the array
     Â           #   Bifurcate (duplicate and reverse)
      ®          #   Push the string "/ \" (which was copied using ©)
       Â         #   Bifurcate to get "\ /"
        ‡        #   Transliterate / -> \ and \ -> /
         «       #   Append to the original string
           »     # Join the entire stack on newlines
            Â    # Bifurcate
             »   # Join the stack by newlines

Wykorzystuje kodowanie 05AB1E . Wypróbuj online!

Adnan
źródło
05AB1E jest bardzo dobry w sztuce ASCII, wydaje się ...
Esolanging Fruit
4
Przekreślony czterdzieści cztery to wciąż czterdzieści cztery.
Okx,
@Okx Chyba że zastosujesz spacje niełamliwe .
Steadybox
5

PHP, 126 bajtów

<?=gzinflate(base64_decode("vY7BCQAwCAP/mSIbuJD7z1GJLbbiuz5yKCeEpDk1RUSQWm8iMiRnIyw178Qgi5hs3ceHOA86snN7ON2b/687X+7umuIC"));

Wypróbuj online!

PHP, 149 bajtów

$s=strtr("000
111
222
333
444
555
  \ 22 /  
   \\33/   ",["   /\   ","  /  \  "," / /\ \ ","/ /  \ \\","\ \  / /"," \ \/ / "]);echo"$s
".strrev($s);

Wypróbuj online!

Jörg Hülsermann
źródło
3

JavaScript, 232 bajty

_=>(a=`3868683
2/274/274/272
1/18172/18172/18171
/1/27191/27191/2717
7172/18172/18172/1/
17191/27191/27191/1
272/18172/18172/2
391/27191/27193`.replace(/\d/g,n=>n>6?['\\','/\\','\\/'][n-7]:' 
'.repeat(n)))+`
`+[...a].reverse().join``

Wypróbuj online!

const f = _=>(a=`3868683
2/274/274/272
1/18172/18172/18171
/1/27191/27191/2717
7172/18172/18172/1/
17191/27191/27191/1
272/18172/18172/2
391/27191/27193`.replace(/\d/g,n=>n>6?['\\','/\\','\\/'][n-7]:' '.repeat(n)))+`
`+[...a].reverse().join``

console.log(`
${f()}
`)

powelles
źródło
Mam 126 bajtowe rozwiązanie poniżej. :)
Steve Bennett
3

Ruby, 99 97 bajtów

400.times{|i|print (23<x=i%25)?$/:" /  \\   "[(x^y=i/25)&4^x+y&1^(x-2&4&y-2>y/6%2*x/2%11*4?2:0)]}

Wyjaśnienie

Każdy kwadrat 4x4 zawiera tylko spacje i /lub \. Rysujemy je, aby uzyskać ogólny wzór diamentu. Aby uniknąć częściowych wzorów na granicach, niektóre kwadraty 2x2 należy pozostawić puste, jak poniżej.

.. /\ .... /\ .... /\ ..
../  \..../  \..../  \..
 / /\ \  / /\ \  / /\ \
/ /  \ \/ /  \ \/ /  \ \
\ \  / /\ \  / /\ \  / /
 \ \/ /  \ \/ /  \ \/ /
..\  / /\ \  / /\ \  /..
.. \/ /  \ \/ /  \ \/ ..
.. /\ \  / /\ \  / /\ ..
../  \ \/ /  \ \/ /  \..
 / /\ \  / /\ \  / /\ \
/ /  \ \/ /  \ \/ /  \ \
\ \  / /\ \  / /\ \  / /
 \ \/ /  \ \/ /  \ \/ /
..\  /....\  /....\  /..
.. \/ .... \/ .... \/ ..

Wersja bez golfa - zmodyfikowana, aby wydrukować powyższe, aby pomóc w wyjaśnieniu

400.times{|i|print (23<x=i%25)?$/:     #Calculate x. If last column, print a newline else
  " /..\\ .."[(x^y=i/25)&4^x+y&1^      #If (x^y)&4==4, use x+y&1 to select between space and /. If (x^y)&4==0 select between \ and space.
  (x-2&4&y-2>y/6%2*x/2%11*4?2:0)]      #If x-2&4&y-2==4, and we are on the 2 character wide border (y/6%2*x/2%11==0), XOR with 2 to print .
}
Level River St
źródło
2

Pyth - 106 98 96 92 bajtów

V16V24J%t+NH8K%+_2-NH8=Y&&&>H1>N1<N14<H22p?|q2J&&Y!%J4?<1%H4J!J\/?|q2K&&Y!%K4?<1%H4!KK\\d)pb

Spróbuj

Maria
źródło
1

C #, 608 bajtów

void q(){Action<string>a=Console.Write;Func<int,int,string>b=(c,d)=>new string(' ',c)+(d<1?"/\\":d<2?"/  \\":d<3?"/ /\\ \\":d<4?"/ /  \\ \\":d<5?"\\ \\  / /":d<6?"\\ \\/ /":d<7?"\\  /":"\\/");Action e=()=>a(b(0,4)+b(0,4)+b(0,4)+"\n"+b(1,5)+b(2,5)+b(2,5)+"\n");Action f=()=>a(b(1,2)+b(2,2)+b(2,2)+"\n");Action g=()=>a(b(0,3)+b(0,3)+b(0,3)+"\n");a(b(3,0)+b(6,0)+b(6,0)+"\n"+b(2,1)+b(4,1)+b(4,1)+"\n");f();g();e();a("  \\  / /\\ \\  / /\\ \\  /\n"+"   \\/ /  \\ \\/ /  \\ \\/\n"+"   /\\ \\  / /\\ \\  / /\\\n"+"  /  \\ \\/ /  \\ \\/ /  \\\n");f();g();e();a(b(2,6)+b(4,6)+b(4,6)+"\n"+b(3,7)+b(6,7)+b(6,7)+"\n");}
LiefdeWen
źródło
Nie to, że chcę to dłużej robić, ale wygląda na to, że brakuje using System;. Jestem też całkiem pewien, że możesz bardziej zagrać w golfa, ale nie spędziłem zbyt wiele czasu, szukając 100% pewności.
TheLethalCoder
Jest dłuższy niż wynik, więc po prostu System.Console.WriteLine(@"...");pobije moją odpowiedź o jakieś 200 bajtów.
LiefdeWen
1

C #, 382 291 bajtów

_=>string.Format(@"{5}{5}{5}
{2}{2}{2}
{0}{0}{0}
{1}{1}{1}
\ \ {0}{0} / /
 \ \{1}{1}/ /
  \ {0}{0} /
   \{1}{1}/
   /\ \ {0} / /\
  /  \ \{1}/ /  \
 {0}{0}{0}
{1}{1}{1}
\ \ {0}{0} / /
 \ \{1}{1}/ /
{4}{4}{4}
{3}{3}{3}",@" / /\ \ ",@"/ /  \ \",@"  /  \  ",@"   \/   ",@"  \  /  ",@"   /\   ");
TheLethalCoder
źródło
1

JavaScript 126 bajtów

for(c=r=a='';r<16;c++>22&&(r++,c=0,a+=`
`))C=c%22>1&&r%14>1,q=[1,,C&&r&2,,,,C&&~r&2,,1],a+=q[c+5+r&7]?'/':q[r-c+20&7]?'\\':' '

Ponieważ jest to teraz dość nieczytelne, podstawowe wyjaśnienie:

  • kafelkujemy spację od lewej do prawej strony
  • rysujemy to w zasadzie 6 ukośnych linii, które powtarzają się co 8 znaków: 2 linie ciągłe i 4 „przerywane” (dwa znaki, a następnie dwie spacje ...)
  • chodzi o C=...to, aby ograniczyć rysowanie niektórych linii do obwiedni
  • aby zaoszczędzić wiele znaków, celowo dodajemy liczby, aby wyrażenia dla linii w górę i w dół były bardzo podobne
  • następnie umieść same wyrażenia w rzadkiej tablicy [1,,C&&...] , na którą patrzymy. Jeśli istnieje prawdziwa wartość, narysujemy odpowiedni znak.

-

for(c=r=a='';r<16;c++>22&&(r++,c=0,a+=`
`))                 // basic grid tiling
C=c%22>1&&r%14>1,   // are we not near the edges
q=[1,               // a solid line that always draws
,                   // a line that never draws
C&&r&2,             // a line that draws if not near the edge, and if on the correct "dash" (r&2)
,,,
C&&~r&2,            // if not near the edge, and on the opposite "dash" (~r&2)
,1                  // the opposite diagonal line that always draws
],
a+=q[c+5+r&7]?'/' // compute which upward line we're on, check whether to draw it
:q[r-c+20&7]?'\\' // do the same for the downward line
:' '                // otherwise draw a space

Może to wyjaśnienie nie pomogło. :)

Wypróbuj online: https://codepen.io/stevebennett/pen/WjgMpY

Mam nadzieję, że otrzymałem prawidłowy wynik:

   /\      /\      /\   
  /  \    /  \    /  \  
 / /\ \  / /\ \  / /\ \ 
/ /  \ \/ /  \ \/ /  \ \
\ \  / /\ \  / /\ \  / /
 \ \/ /  \ \/ /  \ \/ / 
  \  / /\ \  / /\ \  /  
   \/ /  \ \/ /  \ \/   
   /\ \  / /\ \  / /\   
  /  \ \/ /  \ \/ /  \  
 / /\ \  / /\ \  / /\ \ 
/ /  \ \/ /  \ \/ /  \ \
\ \  / /\ \  / /\ \  / /
 \ \/ /  \ \/ /  \ \/ / 
  \  /    \  /    \  /  
   \/      \/      \/   

Historia

130

for(c=r=a='';r<16;c++>22&&(r++,c=0,a+=`
`))C=c%22>1&&r%14>1,q=[1,,C&&r&2,,,,C&&~r&2,,1],a+=q[(c+5+r)%8]?'/':q[(r-c+20)%8]?'\\':' '

133

for(c=r=a='';r<16;c++>22&&(r++,c=0,a+=`
`))C=c%22>1,q=[1,,C&&r&2&&r<14,,,,C&&~r&2&&r>1,,1],a+=q[(c+5+r)%8]?'/':q[(r-c+20)%8]?'\\':' '

137

for(c=r=a='';r<16;c++==23&&(r++,c=0,a+=`
`))C=c<22&&c>1,q=[1,,C&&r&2&&r<14,,,,C&&~r&2&&r>1,,1],a+=q[(c+5+r)%8]?'/':q[(r-c+20)%8]?'\\':' '

155

for(c=r=a='';r<16;c++==23&&(r++,c=0,a+=`
`))Z=(C=c<22&&c>1)&&~r&2&&r>1,Y=C&&r&2&&r<14,B=(c-r+12)%8,A=(c+5+r)%8,q=[1,,Y,,,,Z,,1],a+=q[A]?'/':q[8-B]?'\\':' '

Historia: 172

for(c=r=a='';r<16;c++==23&&(r++,c=0,a+='\n'))a+=(Z=(C=c<22&&c>1)&&~r&2&&r>3,Y=C&&r&2&&r<12,B=(c-r+16)%8,A=(c+r)%8,A==3||A==5&&Y||A==1&&Z?'/':B==4||B==2&&Y||B==6&&Z?'\\':' ')
Steve Bennett
źródło
1

Płótno , 18 bajtów

4/2/33╋╬2/77╋╬:91╋

Wypróbuj tutaj!

Wyjaśnienie:

4/           push a diagonal of length 4
  2/         push a diagonal of length 2
    33╋      insert that at [3;3] in the 1st diagonal
                    /
                   / 
                  / /
                 / / 
╬            quad-palindromize with 0 overlap
 2/77╋       insert a 2-long diagonal in the bottom-right corner
                    /\   
                   /  \  
                  / /\ \ 
                 / /  \ \
                 \ \  / /
                  \ \/ / 
                   \  / /
                    \/ / 
      ╬      quad-palindromize with 0 overlap, creating most of the output
                    /\      /\   
                   /  \    /  \  
                  / /\ \  / /\ \ 
                 / /  \ \/ /  \ \
                 \ \  / /\ \  / /
                  \ \/ /  \ \/ / 
                   \  / /\ \  /  
                    \/ /  \ \/   
                    /\ \  / /\   
                   /  \ \/ /  \  
                  / /\ \  / /\ \ 
                 / /  \ \/ /  \ \
                 \ \  / /\ \  / /
                  \ \/ /  \ \/ / 
                   \  /    \  /  
                    \/      \/   
       :91╋  overlap self on [9;1]
dzaima
źródło
0

Retina , 214 bajtów


F/\E/\E/\¶B/B\BB/B\FAD D¶F\/ C C¶FD D /\¶BC CAF\B/BB\B/¶F\/E\/E\/
F
B 
E
BBB
D
/\ \B/
C
/B\ \/
B
  
A
 /  \¶ / /\ \  / /\ \  / /\ \¶/ /  \ \/ /  \ \/ /  \ \¶\ \  / /\ \  / /\ \  / /¶ \ \/ /  \ \/ /  \ \/ /¶  \  / 

Wypróbuj online!

ovs
źródło