Musisz zbudować pylony ASCII!

24

Krzyż wysłany z mojego anagolfa (uwaga: może zawierać spoilery, sekcję zwłok).

Wypisz dokładnie następujący tekst.

  • Możesz mieć dodatkowe końcowe białe znaki w każdej linii, a także końcowe nowe linie.
  • Najkrótszy kod w bajtach wygrywa.
                                                
                                              !"!
                                             "#$#"
                                            #$%&%$#
                                           $%&'('&%$
                                          %&'()*)('&%
                                         &'()*+,+*)('&
                                        '()*+,-.-,+*)('
                                       ()*+,-./0/.-,+*)(
                                      )*+,-./01210/.-,+*)
                                     *+,-./012343210/.-,+*
                                    +,-./0123456543210/.-,+
                                   ,-./01234567876543210/.-,
                                  -./0123456789:9876543210/.-
                                 ./0123456789:;<;:9876543210/.
                                /0123456789:;<=>=<;:9876543210/
                               0123456789:;<=>?@?>=<;:9876543210
                              123456789:;<=>?@ABA@?>=<;:987654321
                             23456789:;<=>?@ABCDCBA@?>=<;:98765432
                            3456789:;<=>?@ABCDEFEDCBA@?>=<;:9876543
                           456789:;<=>?@ABCDEFGHGFEDCBA@?>=<;:987654
                          56789:;<=>?@ABCDEFGHIJIHGFEDCBA@?>=<;:98765
                         6789:;<=>?@ABCDEFGHIJKLKJIHGFEDCBA@?>=<;:9876
                        789:;<=>?@ABCDEFGHIJKLMNMLKJIHGFEDCBA@?>=<;:987
                       89:;<=>?@ABCDEFGHIJKLMNOPONMLKJIHGFEDCBA@?>=<;:98
                      9:;<=>?@ABCDEFGHIJKLMNOPQRQPONMLKJIHGFEDCBA@?>=<;:9
                     :;<=>?@ABCDEFGHIJKLMNOPQRSTSRQPONMLKJIHGFEDCBA@?>=<;:
                    ;<=>?@ABCDEFGHIJKLMNOPQRSTUVUTSRQPONMLKJIHGFEDCBA@?>=<;
                   <=>?@ABCDEFGHIJKLMNOPQRSTUVWXWVUTSRQPONMLKJIHGFEDCBA@?>=<
                  =>?@ABCDEFGHIJKLMNOPQRSTUVWXYZYXWVUTSRQPONMLKJIHGFEDCBA@?>=
                 >?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?>
                ?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@?
               @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA@
              ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCBA
             BCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdcba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDCB
            CDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFEDC
           DEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFED
          EFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGFE
         FGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHGF
        GHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIHG
       HIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnoponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJIH
      IJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJI
     JKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLKJ
    KLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONMLK
   LMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONML
  MNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyzyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPONM
 NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|{zyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPON
OPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~}|{zyxwvutsrqponmlkjihgfedcba`_^]\[ZYXWVUTSRQPO
code-golf string kolmogorov-complexity Conor O'Brien
źródło
3
Czy istnieje celowa pierwsza linia tylko do białych znaków?
AdmBorkBork
9
@AdmBorkBork to spacja, ponieważ to pierwszy znak ASCII char lol
HyperNeutrino
2
@ the4kman and the <=>=<fish.
pizzapants184
4
Czy istnieje powód, który nie jest zatytułowany „Musisz zbudować pylony ASCII!”?
mattdm
3
@mattdm Przybyłem tu tylko z listy HNQ, aby głosować za tym ze względu na jego tytuł. Ładnie wykonane.
Todd Wilcox

Odpowiedzi:

4

Płótno , 15 14 bajtów

0ｃ［Ｃ²［ｊ｝¹ｍ］／││

Wypróbuj tutaj!

Zauważ, że robiąc to, dodałem kilka wbudowanych ( ｃ& Ｃ), ponieważ Canvas jakoś nie miał żadnych wbudowanych dla ASCII / Unicode przed ...

Objaśnienie (niektóre postacie zostały zastąpione, aby wyglądały w przestrzeni kosmicznej):

0c              push the charcode of "0" - 48
  {       ]     map over 1..48
   C              push the ASCII characters
    ²[ ]          repeat by the counter (0-indexed)
      j             remove the last character
        ¹m        mold to the length of the counter
           /    pad each line with spaces so it looks like a diagonal
            ││  palindromize the whole thing horizontally
dzaima
źródło
16

PowerShell , 73 bajty

' '*48;46..0|%{" "*$_+-join[char[]](($x=79-$_)..($y=$x+$j++)+(++$y)..$x)}

Wypróbuj online!

Zwraca pierwszą linię tylko do białych znaków, a następnie pętle od 46do 0. Każda iteracja wyprowadza odpowiednią liczbę spacji, a następnie -joined razem - chartablicę odpowiednich symboli, za pomocą niektórych obliczeń.

AdmBorkBork
źródło
1
Czy możesz zapisać niektóre obliczenia, traktując pierwszy wiersz jako 47 spacji, po których następuje spacja?
Riking
@Riking Aby to zrobić, musisz w specjalnym przypadku utworzyć tablicę znaków, aby utworzyć tylko jeden element zamiast 3 lub więcej. W rezultacie krótszy jest specjalny przypadek, gdy linia tylko spacje jest całkowicie osobno.
AdmBorkBork
11

Węgiel drzewny , 13 bajtów

Ｅ⁴⁸⮌✂γι⊕⊗ι‖Ｏ←

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

 ⁴⁸             Literal 48
Ｅ               Map over implicit range
      ι  ι      Current index
        ⊗       Doubled
       ⊕        Incremented
     γ          Printable ASCII
    ✂           Slice
   ⮌            Reverse
                Implicitly print each slice on separate lines
          ‖Ｏ←   Reflect with overlap
Neil
źródło
5
Wynik wydaje mi się zły.
Pan Xcoder,
1
@ Mr.Xcoder Ugh, klasyczny błąd off-by-1 ...
Neil
8

Python 2 , 73 bajty

i=48
while i:i-=1;r=range(79-i,127-i*2);print' '*i+bytearray(r+r[-2::-1])

Wypróbuj online! Skrzyżowane z anarchii golfa (patrz moje zgłoszenie ).

Szybka analiza poubojowa: Xnor i Dianne odkryli dokładnie to samo rozwiązanie . ebicochneal przedstawił 71-bajtowe rozwiązanie, które poprawiło mitch do 70 bajtów . Unikają zajmowania się bytearray(który jest długi) lub ''.join(map(chr,…))(który jest jeszcze dłuższy) całkowicie, utrzymując zmienną „linii bieżącej” i sprytnie ją aktualizując.

Lynn
źródło
4

05AB1E , 16 bajtów

48FžQNÝûN+èJ}).C

Wypróbuj online!

Emigna
źródło
Ahhh ... žQbyło o wiele lepsze niżžw79ŸvyžwN2*+ŸûçJ}).C
Magic Octopus Urn
4

Common Lisp , 110 bajtów

(dotimes(i 48)(dotimes(j 96)(princ(if(>(abs(- j 48))i)" "(code-char(+(-(* i 2)(abs(- j 48)))32)))))(princ"
"))

Wypróbuj online!

Wyjaśnienie

(dotimes(i 48)                   ;; for i from 0 up to 47
    (dotimes(j 96)               ;; for j from 0 up to 95
        (princ                   ;; print
            (if(>(abs(- j 48))i) ;; if abs(j - 48) > i
                " "              ;; print " "
                (code-char(+(-(* i 2)(abs(- j 48)))32)) ;; else print appropriate character
            )
        )
    )(princ"
") ;; print newline
)
Tylko ASCII
źródło
3

VBA, 71 bajtów

Anonimowa funkcja bezpośredniego okna VBE, która nie pobiera żadnych danych wejściowych i wyjściowych do konsoli.

For i=0To 47:?Spc(47-i);:For j=-i To i:?Chr(32-Abs(j)+2*i);:Next:?:Next
Taylor Scott
źródło
3

Rubinowy , 70 bajtów

s=[*?\s..?~]*'';48.times{|i|puts s[i,i+1].rjust(48)+s.reverse[-2*i,i]}

Wypróbuj online!

Konstruuje pełny drukowany ciąg ASCII, a następnie drukuje wymaganą liczbę znaków do przodu (wypełnionych spacjami) + jego fragmenty do tyłu.

Kirill L.
źródło
2

C (gcc), 117 bajtów

c;i;main(){for(i=0;i<48;++i){for(c=2*i-15;c<32+2*i;++c)putchar(c>31+i?c:32);for(;c>31+i;--c)putchar(c);putchar(10);}}

Wypróbuj online!

Nie golfowany:

int ch;
int row;
int main(void) {
    for (row = 0; row < 48; ++row) {
        for (ch = 2*row-15; ch < 32 + 2*row; ++ch) {
            // The first character in the row is 2*row - 15 (row is zero-indexed)
            if (ch > 31+row)
                putchar(ch);
            else
                // If the current character is not in the pyramid, mask it with a space
                putchar(' ');
        }
        for (; ch > 31+row; --ch) {
            // Finish the other side of the pyramid
            putchar(ch);
        }
        putchar('\n');
    }
}
pizzapanty184
źródło
108 bajtów
ceilingcat
2

C (gcc) , 114 113 107 bajtów

#define _(_)for(k=32;k<j;)putchar(j+_++);
f(j,k){for(j=31;++j<80;){printf("\n%*c",80-j,j);_(-31+k)_(j+~k)}}

Wypróbuj online!

101 bajtów jest możliwych przy użyciu flagi kompilatora.

Jonathan Frech
źródło
2

Perl 6 , 55 53 bajtów

say ' 'x 47-$_,chrs 32+2*$_ X-(-$_..$_)>>.abs for ^48

Wypróbuj online!

nwellnhof
źródło
2

T-SQL, 153 bajty

DECLARE @ INT=33,@t CHAR(95)=''a:PRINT @t;
SET @t=LEFT(STUFF(STUFF(@t,63-@/2,2,''),46,0,CHAR(@-1)+CHAR(@)+CHAR(@+1)+CHAR(@)),33+@/2)
SET @+=2IF @<128GOTO a

Zwroty są tylko do wyświetlenia.

Wypróbowałem kilka pomysłów, w tym pętlę do wstępnego skonstruowania pełnego łańcucha (163 znaki) i zagnieżdżoną pętlę do zbudowania go w locie (168 znaków), ale okazało się, że jest najkrótszy.

Zasadniczo w każdej pętli wciskam 4 nowe znaki w środek ciągu, a następnie odcinam dodatki z obu końców, używając funkcji SQLSTUFF() .

Sformatowane i wyjaśnione:

DECLARE @ INT=33,                      --Using a single counter for both rows and CHAR
        @t CHAR(95)=''                 --a non-null CHAR field will pre-fill with spaces
a:                                     --GOTO loop, shorter than a WHILE
    PRINT @t                           --duh
    SET @t = LEFT(                     --lops off the character at the end
            STUFF(                     --crams 4 new characters in the middle
            STUFF(@t, 63-@/2, 2, '')   --snips out a space and the leading character
                 ,46, 0, CHAR(@-1) + CHAR(@) + CHAR(@+1) + CHAR(@))
                 ,33 + @/2)            --rest of the LEFT()
    SET @+=2
IF @<128 GOTO a
BradC
źródło
2

J , 47 44 bajtów

(,.~}:@|."1)(1+i.48)([|.@{.}.)"0 1 u:31+i.96

Wypróbuj online!

Dzięki Conor O'Brien za szablon! Dziękujemy FrownyFrog za wskazanie nieprawidłowego rozwiązania.

Galen Iwanow
źródło
1
Być może można to łatwiej modyfikować: Wypróbuj online!
Conor O'Brien,
@ Conor O'Brien - Dziękuję za szablon, zaktualizowałem link.
Galen Iwanow
Drukuje dodatkową linię u góry.
FrownyFrog
@FrownyFrog Och, dopiero teraz widzę, że dozwolone są tylko końcowe znaki nowej linii, a nie wiodące. Spróbuję to naprawić.
Galen Iwanow
@FrownyFrog - Naprawiono i lekko grał w golfa.
Galen Iwanow
2

Ruby, 59 bajtów

48.times{|i|-47.upto(i){|c|putc~c<i ?32-c.abs+2*i:32};puts}

Przeniesiony z mojej odpowiedzi na anagolu.

histocrat
źródło
2

Japt -R, 18 lat 15 bajtów

14 bajtów, jeśli dozwolona jest dodatkowa wiodąca nowa linia.

#0õ_odH+ZÉ ¬êÃû

Sprawdź to

Wyjaśnienie

#0                  :48
  õ                 :Range [1,48]
   _         Ã      :Pass each Z through a function
    o               :  Range [0,Z)
      H+ZÉ          :    To each add 32+Z-1
     d              :    Get the character at that codepoint
           ¬        :  Join to a string
            ê       :  Palinrdomise
              û     :Centre pad each element to the length of the longest element
                    :Implicitly join with newlines and output
Kudłaty
źródło
2

J ,  40 37  32 bajty

40 wypowiedzi u:30+2>.(+:@i.@(2&+)(-*(>+:))"0 _|@i:)47dzięki + Galen Iwanow i + Conor O'Brien za pomysły w swoich rozwiązaniach

37 zawiera echo echo u:32+|.(~.(>:*+:@[-])"0 _])|i:47

echo u:32+|.(~.(>:*[+-)"{])|i:47

zawierające wskazówki @FrownyFrog z komentarzy

TIO

jayprich
źródło
Nie sądzę, żeby wyrażenia były poprawnymi przesłaniami.
LyricLy
@LyricLy, opinia wydaje się być różna, ponieważ widzę kolejną odpowiedź J w tej formie .. w każdym razie dzięki za nakłonienie mnie do golenia kolejnych 8 bajtów .. teraz mam miejsce, aby dodać „echo”: mam nadzieję, że jesteś szczęśliwy
:)
"0 _→"{
FrownyFrog
+:@[-]→[+-
FrownyFrog
piękne .. dzięki za te porady @FrownyFrog
jayprich 28.04.18
2

Perl 5 , 77 75 69 bajtów

map{say$"x(47-$_),(@a=map chr$_+32,$_..$_*2),reverse@a[0..@a-2]}0..47

Wypróbuj online!

Xcali
źródło
1

Python 2 , 98 88 bajtów

-1 bajt dzięki @ Mr.Xcoder

i=32
exec"print''.join(chr(i+i-32-abs(j))for j in range(32-i,i-31)).center(95);i+=1;"*48

Wypróbuj online!

Dead Possum
źródło
-i+32=> 32-ii możesz użyć ' '*(79-i)zamiast .center(95)do zapisywania bajtów.
Pan Xcoder,
@ Mr.Xcoder dzięki! ' '*(79-i)+tak naprawdę nie oszczędza bajtów: D
Dead Possum
1

Rubinowy , 78 bajtów

s=*32;48.times{puts (s.map(&:chr)*'').center 95;c=*s[0]+1;s=c+s.map{|x|x+2}+c}

Wypróbuj online!

Pełny program Nie golfowany:

s=*32;                              # s is an array of integers
48.times{                           # Repeat 48 times:
  puts (s.map(&:chr)*'').center 95; # Turn each int to a char, join, center, and print
  c = *s[0] + 1;                    # c is a singleton array. It will bookend the next line
  s = c + s.map{|x|x+2} + c         # Add 2 to each element of s before adding the bookends
}
benj2240
źródło
1

Yabasic , 80 bajtów

Anonimowa funkcja yabasic, która nie pobiera żadnych danych wejściowych i wyjściowych do konsoli

For i=0To 47
For j=i To 47?" ";Next
For j=-i To i?Chr$(32-Abs(j)+2*i);Next
?Next

Wypróbuj online!

Taylor Scott
źródło
1

uBASIC , 95 bajtów

0ForI=0To47
1ForJ=ITo47:?" ";:NextJ
2ForK=-1*IToI:?Left$(Chr$(32-Abs(K)+2*I),1);:NextK
3?:NextI

Wypróbuj online!

Taylor Scott
źródło
1

MY-BASIC , 97 bajtów

Anonimowa odpowiedź MY-BASIC, która nie pobiera danych wejściowych i wyjściowych do konsoli

For i=0 To 47
For j=i To 47
Print" "
Next
For j=-i To i
Print Chr(32-Abs(j)+2*i)
Next
Print;
Next

Wypróbuj online!

-1 bajt dzięki Jonathan Frech

Taylor Scott
źródło
1
Print " "-> Print" ".
Jonathan Frech,
@JonathanFrech - przepraszam, że źle zapisałem twoje imię
Taylor Scott
1

Gol> <> , 29 bajtów

`0FaLssLF:P|LF:M|`/L-R` lRo|;

Wypróbuj online!

Jak to działa

`0FaLssLF:P|LF:M|`/L-R` lRo|;

`0F                        |;  Repeat the following 48 times and halt...
   a                           Push 10 (\n)
    Lss                        Push L(loop counter) + 32
       LF:P|                   Repeat "Clone the top and increment" L times
            LF:M|              Repeat "Clone the top and decrement" L times
                 `/L-R`        Push 32 (space) 47-L times (space is significant)
                        lRo    Print everything as char, from the top,
                               until the stack is empty
Bubbler
źródło
1

Tcl , 129 122 118 117 bajtów

time {incr i;set j -48;set a {};time {set a $a[format %c [expr abs([incr j])>=$i?32:$i*2-abs($j)+30]]} 96;puts $a} 48

Wypróbuj online!

Wyjaśnienie

time { # for i from 0 up to 47
    incr i
    set j -48
    set a {}
    time { # for j from -48 up to 47
        # add next character to a
        set a $a[format %c [expr abs([incr j])>$i?32:$i*2-abs($j)+32]]
    } 96
    puts $a # print a
} 48
Tylko ASCII
źródło
1

C (gcc) 199 bajtów

#include<stdio.h>
int i,j=32,k=32,l=49;int main(){while(k<127){for(i=0;i<l;++i)printf(" ");for(i=j;i<k;++i)printf("%c",i);printf("%c",k);for(i=k-1;i>=j;--i)printf("%c",i);printf("\n");j++;k+=2;l--;}}

Wypróbuj online!

Dziękujemy Picardowi i PunPun1000 za całą pomoc

Jonathan Landrum
źródło
@ Picard Usunąłem spacje. Mógłbym dodatkowo zminimalizować za pomocą globalnej zmiennej iteratora.
Jonathan Landrum
@ Picard Edytowałem to na swoim telefonie; nie zdawałem sobie sprawy, że zostawiłem pusty wiersz.
Jonathan Landrum
1
Po przecinkach w wywołaniach printf nie ma spacji, a nazwy zmiennych można skrócić do jednej litery. Byłoby również miło, gdybyś mógł dołączyć link TIO i rzeczywistą liczbę bajtów. Oto link do twojego obecnego kodu TIO
PunPun1000,
ok, nacisnąłem to trochę bardziej, myślę, że musiałbym zmienić algorytm, aby go bardziej zmniejszyć
Jonathan Landrum
1

Haskell, 102 bajty

main=putStr$do
i<-[48,47..0]
let l=replicate i 32++[79-i..126-i*2]
map toEnum$l++tail(reverse l)++[10]

Rzeczy, których próbowałem, nie były krótsze:

  • Wyrażanie wszystkiego w kategoriach literałów postaci i succlub w predcelu uratowaniamap toEnum .
  • Pisanie w dół zakresu zamiast używania reverse.
Kevin Reid
źródło