You must construct ASCII Pylons!

Question

_{Cross posted from my anagolf post (note: may contain spoilers, post mortem).}

Output the following text exactly.

You may have additional trailing whitespace on each line, and trailing newlines as well.
Shortest code, in bytes, wins.

                                                
                                              !"!
                                             "#$#"
                                            #$%&%$#
                                           $%&'('&%$
                                          %&'()*)('&%
                                         &'()*+,+*)('&
                                        '()*+,-.-,+*)('
                                       ()*+,-./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

@AdmBorkBork that's a space because that's the first ASCII char lol — hyperneutrino, Commented Apr 26, 2018 at 13:43
Is there a reason this isn't titled "You Must Construct ASCII Pylons!"? — mattdm, Commented Apr 27, 2018 at 16:20
@mattdm I only came here from the HNQ list to upvote this because of its title. Nicely done. — Todd Wilcox, Commented Apr 27, 2018 at 19:43

AdmBorkBork · Accepted Answer · 2018-04-26 14:05:26Z

16

PowerShell, 73 bytes

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

Try it online!

Outputs the first whitespace-only line, then loops from 46 to 0. Each iteration, outputs the corresponding number of spaces and then a -joined together char-array of the appropriate symbols, via some calculations.

answered Apr 26, 2018 at 14:05

AdmBorkBork

43.5k5 gold badges103 silver badges284 bronze badges

1

\$\begingroup\$ Can you save some calculations by treating the first line as 47 spaces followed by a space character? \$\endgroup\$
– Riking
Commented Apr 27, 2018 at 23:35
\$\begingroup\$ @Riking To do so, you'd need to special case how the char-array is created to only create one item instead of 3 or more. As a result, it's shorter to special case the spaces-only line completely separately. \$\endgroup\$
– AdmBorkBork
Commented Apr 30, 2018 at 12:49

Add a comment |

Neil · Accepted Answer · 2018-04-26 14:42:24Z

11

Charcoal, 13 bytes

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

Try it online! Link is to verbose version of code. Explanation:

 ⁴⁸             Literal 48
Ｅ               Map over implicit range
      ι  ι      Current index
        ⊗       Doubled
       ⊕        Incremented
     γ          Printable ASCII
    ✂           Slice
   ⮌            Reverse
                Implicitly print each slice on separate lines
          ‖Ｏ←   Reflect with overlap

edited Apr 26, 2018 at 14:42

answered Apr 26, 2018 at 13:54

Neil

177k12 gold badges74 silver badges281 bronze badges

5

\$\begingroup\$ The output seems wrong to me. \$\endgroup\$
– Mr. Xcoder
Commented Apr 26, 2018 at 14:01
1

\$\begingroup\$ @Mr.Xcoder Ugh, classic off-by-1 error... \$\endgroup\$
– Neil
Commented Apr 26, 2018 at 14:40

Add a comment |

lynn · Accepted Answer · 2018-04-26 14:29:15Z

8

Python 2, 73 bytes

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

Try it online! Crossposted from anarchy golf (see my submission).

Quick post-mortem analysis: xnor and dianne discovered the exact same solution. ebicochneal submitted a 71 byte solution which mitchs improved to 70 bytes. They avoid dealing with bytearray (which is long) or ''.join(map(chr,…)) (which is even longer) entirely, by keeping a "current line" variable and cleverly updating it.

edited Apr 26, 2018 at 14:29

answered Apr 26, 2018 at 14:21

lynn

69.2k11 gold badges133 silver badges283 bronze badges

Add a comment |

dzaima · Accepted Answer · 2018-04-26 16:37:42Z

Canvas, 15 14 bytes

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

Try it here!

Note that while making this I added a couple built-ins (ｃ & Ｃ) as Canvas somehow didn't have any built-ins for ASCII/unicode before...

Explanation (some characters have been replaced to look monospace):

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

Dennis · Accepted Answer · 2018-04-26 13:54:55Z

4

Jelly, 17 bytes

48ḶḤr$z0ZUŒB+32ỌY

Try it online!

answered Apr 26, 2018 at 13:54

Dennis

211k41 gold badges370 silver badges825 bronze badges

Add a comment |

Emigna · Accepted Answer · 2018-04-26 14:02:16Z

4

05AB1E, 16 bytes

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

Try it online!

answered Apr 26, 2018 at 14:02

Emigna

53k5 gold badges43 silver badges162 bronze badges

\$\begingroup\$ Ahhh... žQ was way better than žw79ŸvyžwN2*+ŸûçJ}).C \$\endgroup\$
– Magic Octopus Urn
Commented Apr 27, 2018 at 20:31

Add a comment |

dzaima · Accepted Answer · 2018-04-26 14:26:37Z

4

SOGL V0.12, 16 15 bytes

'½{ ~Δf⌡kFm}⁰¼╥

Try it Here!

edited Apr 26, 2018 at 14:26

answered Apr 26, 2018 at 13:54

dzaima

20.3k2 gold badges41 silver badges75 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

3

VBA, 71 bytes

An anonymous VBE immediate window function that takes no input and outputs to the console.

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

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Apr 26, 2018 at 19:35

Taylor Raine

8,7462 gold badges27 silver badges51 bronze badges

Add a comment |

ASCII-only · Accepted Answer · 2018-04-27 00:11:40Z

Common Lisp, 110 bytes

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

Try it online!

Explanation

(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
)

Kirill L. · Accepted Answer · 2018-04-27 09:12:14Z

3

Ruby, 70 bytes

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

Try it online!

Constructs the full printable ASCII string and then prints the required number of forward (padded with spaces) + backward slices of it.

answered Apr 27, 2018 at 9:12

Kirill L.

14.1k2 gold badges16 silver badges50 bronze badges

Add a comment |

hyperneutrino · Accepted Answer · 2018-04-26 13:51:09Z

2

Jelly, 24 bytes

48RrḤ’$$ịØṖŒBṭ"48RU⁶ẋ$¤Y

Try it online!

answered Apr 26, 2018 at 13:51

hyperneutrino♦

42.6k5 gold badges68 silver badges224 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

2

C (gcc), 117 bytes

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);}}

Try it online!

Ungolfed:

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');
    }
}

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Apr 26, 2018 at 14:41

pizzapants184

3,53815 silver badges18 bronze badges

\$\begingroup\$ 108 bytes \$\endgroup\$
– ceilingcat
Commented Dec 22, 2018 at 18:48

Add a comment |

Jonathan Frech · Accepted Answer · 2018-04-26 15:23:59Z

2

C (gcc), 114 113 107 bytes

#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)}}

Try it online!

101 bytes are possible using a compiler flag.

edited Apr 26, 2018 at 15:23

answered Apr 26, 2018 at 15:15

Jonathan Frech

7,3411 gold badge22 silver badges44 bronze badges

Add a comment |

nwellnhof · Accepted Answer · 2018-04-26 16:10:09Z

2

Perl 6, 55 53 bytes

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

Try it online!

edited Apr 26, 2018 at 16:10

answered Apr 26, 2018 at 15:04

nwellnhof

10.6k1 gold badge19 silver badges38 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

T-SQL, 153 bytes

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

Returns are for display only.

I tried several ideas, including a loop to preconstruct the full string (163 characters), and a nested loop to build it on the fly (168 characters), but this ended up being the shortest.

Basically, each loop I'm cramming 4 new characters into the center of the string, then trimming off the extras from both ends, using the SQL STUFF() function.

Formatted and explained:

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

Galen Ivanov · Accepted Answer · 2018-04-27 07:17:01Z

2

J, 47 44 bytes

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

Try it online!

Thanks to Conor O'Brien for the template! Thanks to FrownyFrog for indicating the invalid solution.

edited Apr 27, 2018 at 7:17

answered Apr 26, 2018 at 19:01

Galen Ivanov

21.2k3 gold badges24 silver badges61 bronze badges

1

\$\begingroup\$ Perhaps this is more easily modifiable: Try it online! \$\endgroup\$
– Conor O'Brien
Commented Apr 26, 2018 at 19:10
\$\begingroup\$ @Conor O'Brien - Thank you for the template, I've updated the link. \$\endgroup\$
– Galen Ivanov
Commented Apr 27, 2018 at 6:13
\$\begingroup\$ Prints an extra line at the top. \$\endgroup\$
– FrownyFrog
Commented Apr 27, 2018 at 6:48
\$\begingroup\$ @FrownyFrog Oh, it's only now that I see that only trailing newlines are permitted, not leading. I'll try to fix it. \$\endgroup\$
– Galen Ivanov
Commented Apr 27, 2018 at 6:57
\$\begingroup\$ @FrownyFrog - Fixed and slightly golfed. \$\endgroup\$
– Galen Ivanov
Commented Apr 27, 2018 at 7:17

Add a comment |

histocrat · Accepted Answer · 2018-04-27 20:22:13Z

2

Ruby, 59 bytes

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

Cross-posted from my answer on anagol.

answered Apr 27, 2018 at 20:22

histocrat

22.3k4 gold badges38 silver badges80 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

Japt `-R`, 18 15 bytes

14 bytes if an additional leading newline is allowed.

#0õ_odH+ZÉ ¬êÃû

Test it

Explanation

#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

jayprich · Accepted Answer · 2018-04-28 15:27:15Z

2

J, 40 37 32 bytes

40 expression u:30+2>.(+:@i.@(2&+)(-*(>+:))"0 _|@i:)47 thanks to +Galen Ivanov & +Conor O'Brien for the ideas in their solutions

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

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

incorporating @FrownyFrog tips from comments

TIO

edited Apr 28, 2018 at 15:27

answered Apr 26, 2018 at 23:29

jayprich

4212 silver badges8 bronze badges

\$\begingroup\$ I don't think expressions are valid submissions. \$\endgroup\$
– LyricLy
Commented Apr 26, 2018 at 23:59
\$\begingroup\$ @LyricLy , opinion seems to vary as I do see another J answer in this form .. anyway thanks for prodding me to shave another 8 bytes .. now I have room to add "echo " : hope you're happy : ) \$\endgroup\$
– jayprich
Commented Apr 27, 2018 at 13:46
\$\begingroup\$ "0 _ → "{ \$\endgroup\$
– FrownyFrog
Commented Apr 27, 2018 at 22:22
\$\begingroup\$ +:@[-] → [+- \$\endgroup\$
– FrownyFrog
Commented Apr 27, 2018 at 22:38
\$\begingroup\$ beautiful .. thanks for these tips @FrownyFrog \$\endgroup\$
– jayprich
Commented Apr 28, 2018 at 15:12

Add a comment |

Xcali · Accepted Answer · 2018-04-30 18:42:19Z

2

Perl 5, 77 75 69 bytes

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

Try it online!

edited Apr 30, 2018 at 18:42

answered Apr 26, 2018 at 15:15

Xcali

16.2k2 gold badges15 silver badges39 bronze badges

Add a comment |

Arnauld · Accepted Answer · 2018-04-26 14:14:28Z

1

JavaScript (Node.js), 95 bytes

f=(x=y=0)=>y<48?[`
`[x]]+Buffer([x<48-y|x>48+y?32:x<48?x+y*2-16:80-x+y*2])+f(++x%96?x:+!++y):''

Try it online!

answered Apr 26, 2018 at 14:14

Arnauld

198k20 gold badges179 silver badges650 bronze badges

Add a comment |

Dead Possum · Accepted Answer · 2018-04-26 14:27:17Z

1

Python 2, 98 88 bytes

-1 byte thanks to @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

Try it online!

edited Apr 26, 2018 at 14:27

answered Apr 26, 2018 at 14:06

Dead Possum

3,43413 silver badges25 bronze badges

\$\begingroup\$ -i+32 => 32-i and you might use ' '*(79-i) instead of .center(95) to save bytes. \$\endgroup\$
– Mr. Xcoder
Commented Apr 26, 2018 at 14:19
\$\begingroup\$ @Mr.Xcoder thanks! ' '*(79-i)+ doesn't really save bytes :D \$\endgroup\$
– Dead Possum
Commented Apr 26, 2018 at 14:28

Add a comment |

benj2240 · Accepted Answer · 2018-04-26 15:53:28Z

Ruby, 78 bytes

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

Try it online!

Full program. Ungolfed:

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
}

Taylor Raine · Accepted Answer · 2018-04-26 19:30:37Z

1

Yabasic, 80 bytes

An anonymous yabasic function that takes no input and outputs to the console

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

Try it online!

answered Apr 26, 2018 at 19:30

Taylor Raine

8,7462 gold badges27 silver badges51 bronze badges

Add a comment |

Taylor Raine · Accepted Answer · 2018-04-26 19:47:27Z

1

uBASIC, 95 bytes

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

Try it online!

answered Apr 26, 2018 at 19:47

Taylor Raine

8,7462 gold badges27 silver badges51 bronze badges

Add a comment |

Jonathan Frech · Accepted Answer · 2018-04-26 20:07:41Z

1

MY-BASIC, 97 bytes

An anonymous MY-BASIC response that takes no input and outputs to the Console

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

Try it online!

-1 byte thanks to Jonathan Frech

edited Apr 26, 2018 at 20:07

Jonathan Frech

7,3411 gold badge22 silver badges44 bronze badges

answered Apr 26, 2018 at 19:49

Taylor Raine

8,7462 gold badges27 silver badges51 bronze badges

1

\$\begingroup\$ Print " " -> Print" ". \$\endgroup\$
– Jonathan Frech
Commented Apr 26, 2018 at 19:53
\$\begingroup\$ @JonathanFrech - whoops sorry I mispelled your name \$\endgroup\$
– Taylor Raine
Commented Apr 30, 2018 at 22:37

Add a comment |

Luis Mendo · Accepted Answer · 2018-04-26 22:02:08Z

1

MATL, 18 bytes

48:"@@Zv30++Xhc3Zu

Try it online!

answered Apr 26, 2018 at 22:02

Luis Mendo

105k9 gold badges135 silver badges372 bronze badges

Add a comment |

Bubbler · Accepted Answer · 2018-04-27 04:29:55Z

Gol><>, 29 bytes

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

Try it online!

How it works

`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

sergiol · Accepted Answer · 2018-04-27 18:24:15Z

1

Tcl, 129 122 118 117 bytes

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

Try it online!

Explanation

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

edited Apr 27, 2018 at 18:24

sergiol

3,4461 gold badge15 silver badges31 bronze badges

answered Apr 27, 2018 at 0:09

ASCII-only

5,14921 silver badges43 bronze badges

Add a comment |

Jonathan E. Landrum · Accepted Answer · 2018-04-27 20:12:59Z

1

C (gcc) 199 bytes

#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--;}}

Try it online!

Thanks to Picard and PunPun1000 for all of the help

edited Apr 27, 2018 at 20:12

answered Apr 26, 2018 at 21:30

Jonathan E. Landrum

1115 bronze badges

\$\begingroup\$ @Picard I removed the spaces. I could further minify with a global iterator variable. \$\endgroup\$
– Jonathan E. Landrum
Commented Apr 27, 2018 at 0:59
\$\begingroup\$ @Picard I edited it on my phone; didn't realize I'd left a blank line. \$\endgroup\$
– Jonathan E. Landrum
Commented Apr 27, 2018 at 16:59
1

\$\begingroup\$ There's unnecessary spaces in the printf calls after the commas, and the variable names can be shortened down to one letter. Also it would be nice if you could include a TIO link and the actual byte count. Here's the link for your current code TIO \$\endgroup\$
– PunPun1000
Commented Apr 27, 2018 at 19:55
\$\begingroup\$ ok, i've squeezed it a bit more, i think i'd have to change the algorithm to shrink it further \$\endgroup\$
– Jonathan E. Landrum
Commented Apr 27, 2018 at 20:05

Add a comment |

Stack Exchange Network

You must construct ASCII Pylons!

34 Answers 34

PowerShell, 73 bytes

Charcoal, 13 bytes

Python 2, 73 bytes

Canvas, 15 14 bytes

Jelly, 17 bytes

05AB1E, 16 bytes

SOGL V0.12, 16 15 bytes

VBA, 71 bytes

Common Lisp, 110 bytes

Explanation

Ruby, 70 bytes

Jelly, 24 bytes

C (gcc), 117 bytes

C (gcc), 114 113 107 bytes

Perl 6, 55 53 bytes

T-SQL, 153 bytes

J, 47 44 bytes

Ruby, 59 bytes

Japt `-R`, 18 15 bytes

Explanation

J, 40 37 32 bytes

Perl 5, 77 75 69 bytes

JavaScript (Node.js), 95 bytes

Python 2, 98 88 bytes

Ruby, 78 bytes

Yabasic, 80 bytes

uBASIC, 95 bytes

MY-BASIC, 97 bytes

MATL, 18 bytes

Gol><>, 29 bytes

How it works

Tcl, 129 122 118 117 bytes

Explanation

C (gcc) 199 bytes

Your Answer

Not the answer you're looking for? Browse other questions tagged
code-golf
string
kolmogorov-complexity
or ask your own question.

Hot Network Questions

You must construct ASCII Pylons!

34 Answers 34

PowerShell, 73 bytes

Charcoal, 13 bytes

Python 2, 73 bytes

Canvas, 15 14 bytes

Jelly, 17 bytes

05AB1E, 16 bytes

SOGL V0.12, 16 15 bytes

VBA, 71 bytes

Common Lisp, 110 bytes

Explanation

Ruby, 70 bytes

Jelly, 24 bytes

C (gcc), 117 bytes

C (gcc), 114 113 107 bytes

Perl 6, 55 53 bytes

T-SQL, 153 bytes

J, 47 44 bytes

Ruby, 59 bytes

Japt -R, 18 15 bytes

Explanation

J, 40 37 32 bytes

Perl 5, 77 75 69 bytes

JavaScript (Node.js), 95 bytes

Python 2, 98 88 bytes

Ruby, 78 bytes

Yabasic, 80 bytes

uBASIC, 95 bytes

MY-BASIC, 97 bytes

MATL, 18 bytes

Gol><>, 29 bytes

How it works

Tcl, 129 122 118 117 bytes

Explanation

C (gcc) 199 bytes

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged code-golfstringkolmogorov-complexity or ask your own question.

Related

Hot Network Questions

Japt `-R`, 18 15 bytes

Not the answer you're looking for? Browse other questions tagged
code-golf
string
kolmogorov-complexity
or ask your own question.