Eiffel Towers: Create a large “A” from “A”s

Question

Create a function which given a number of lines n, makes a bigA.

The horizontal bar of bigA must be at the middle row, or the lower of the two if n is even
Assume a monospace font for output

Output should be a string (or similar, eg character array) with clear linebreaks to break up the lines, and with correct whitespace for left-padding (you can assume \t to be 4 spaces). There can be any whitespace on the right.

Examples

n = 1

A

n = 2

 A
AAA

n = 3

  A
 AAA
A   A

n = 4

   A
  A A
 AAAAA
A     A

n = 5

    A
   A A
  AAAAA
 A     A
A       A

This is inspired by Create an "H" from smaller "H"s

May I add whitespace to the right side? Also, is trailing newline allowed? — Bubbler, Mar 23 '18 at 1:12
@Bubbler, Any whitespace on the right side is fine, no trailing newline though — Budd, Mar 23 '18 at 1:20
Are we allowed to return 2D character arrays instead of strings? (hint: it's usually recommended to allow any kind of output) — Olivier Grégoire, Mar 23 '18 at 8:26
@OlivierGrégoire Sure, as long as there is a clear break for the lines (eg an "\n" element, nested arrays) — Budd, Mar 23 '18 at 9:00

Adnan · Accepted Answer · 2018-03-23 08:13:50Z

05AB1E, 13 bytes

Code:

Ð;î¹)'A1376SΛ

Uses the 05AB1E encoding. Try it online!

Explanation:

Ð                  # Triplicate the input.
 ;î                # Compute ceiling(n / 2).
   ¹               # Push the first input again.
    )              # Wrap into an array. For input 7, this would result in:
                     [7, 7, 4, 7].
     'A            # Push the character 'A'
       1376S       # Push the array [1, 3, 7, 6]. These are the directions of the canvas.
                     This essentially translates to [↗, ↘, ↖, ←].
            Λ      # Write to canvas using the previous three parameters.

Canvas

I should probably document the canvas a little bit more (and a lot of other functions), but this basically sums it up. The canvas has different 'modes' based on the parameter types given. The canvas command has three parameters: <length> <string> <direction>.

Since the length and direction parameters are lists, it 'zips' these lists to create a set of instructions to be executed. The string parameter is just the letter A, so this is the fill character used by all instructions. The canvas interprets this as the following set of instructions (for input 7):

Draw a line of length 7 with the string A in direction ↗
Draw a line of length 7 with the string A in direction ↘
Draw a line of length 4 with the string A in direction ↖
Draw a line of length 7 with the string A in direction ←

The directions are translated in the following manner:

If nothing has been outputted, 05AB1E automatically outputs the canvas result.

Thank you very much for the canvas explanation, that's a brilliant feature :-) — Kaldo, Mar 23 '18 at 9:33
Wow. I was doubtful of nonuplicate, but it exists as all the others do. Of course we have such useless words in English xD — Quintec, Mar 26 '18 at 15:37
@KevinCruijssen Hey, apologies for all the late replies, it's been incredibly busy for me the last couple of weeks (I only managed to get 8 hours of sleep the last 72 hours haha) so I don't think I'm able to do anything right now, but feel free to add it to the tip page if you'd like. — Adnan, Nov 8 '18 at 1:25

Neil · Accepted Answer · 2018-03-23 10:02:23Z

6

Charcoal, 17 15 bytes

ＮθＰ×θAＭ⊘θ↗Ｐ^×θA

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

Ｎθ

Input n.

Ｐ×θA

Print the horizontal bar of the big A. (For even numbers, the n+1th overlaps the right side anyway.)

Ｍ⊘θ↗

Move to the top of the big A.

Ｐ^×θA

Print both sides of the big A.

edited Mar 23 '18 at 10:02

answered Mar 23 '18 at 1:15

Neil

120k9 gold badges57 silver badges230 bronze badges

Add a comment |

Bubbler · Accepted Answer · 2018-03-23 01:58:06Z

4

Python 2, 80 bytes

lambda n:'\n'.join(' '*(n+~i)+('A'+' A'[i==n/2]*n*2)[:i*2]+'A'for i in range(n))

Try it online!

Divide the desired output into the left whitespace, left A plus middle whitespace or As, and the right A. Compute the middle part using slicing on a fixed string. This allows to use the same way to generate the first line.

answered Mar 23 '18 at 1:58

Bubbler

40.1k3 gold badges73 silver badges224 bronze badges

Add a comment |

recursive · Accepted Answer · 2018-03-23 03:29:47Z

Stax, 15 bytes

┴3╬*ôP^x'┌_╓J²♫

Run and debug it

Unpacked, ungolfed, and commented, the program looks like this.

m       map over [1 .. input] using rest of the program, output each result
'A      "A" literal
xhi=    is the iteration index equal to (integer) half the input?
65*     multiply by 65 (character code of "A")
]i*     repeat that character (" " or  "A") i times
+       concat to initial "A"
x)      left pad to the original input
|p      palindromize (concatenate the reverse minus the last character)

Run this one

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

4

JavaScript (ES6), 77 bytes

This source code has a rectangle shape! Oh wait ... wrong challenge :-/

f=(n,k=n>>1,p='A')=>--n?f(n,k,' '+p)+`
${p}${(k-n?' ':'A').repeat(n*2-1)}A`:p

Try it online!

edited Jun 17 '20 at 9:04

Community♦

1

answered Mar 23 '18 at 14:41

Arnauld

148k14 gold badges150 silver badges535 bronze badges

Add a comment |

Radek · Accepted Answer · 2018-03-23 22:10:19Z

4

Python 3.6, 79 bytes or 73 bytes

Using f-strings to align horizontal parts of the letter:

lambda n:'\n'.join(f"{'A'+' A'[i==n//2]*2*i:>{n+i}}"[:-1]+'A'for i in range(n))

With \b used to delete one A (possibly cheating):

lambda n:'\n'.join(f"{'A'+' A'[i==n//2]*2*i:>{n+i}}\bA"for i in range(n))

answered Mar 23 '18 at 22:10

Radek

1714 bronze badges

Add a comment |

Galen Ivanov · Accepted Answer · 2018-03-23 10:31:42Z

J, 65 bytes

f=:3 :''' A''{~1(([:(<@;]+i.@+:)<.@-:)y)}([:(}:@|."1,.])=/~@i.)y'

Try it online!

It can be reduced by approx. 12 bytes by simply making the verb tacit, but I have problems doing it.

Explanation:

3 : '...' denotes an explicit one-liner verb

y is the argument

=/~@i. creates an identity matrix with size the argument

([:(}:@|."1,.]) prepends the identity matrix with its mirror copy with last elements of each row dropped.

    ]a =. ([:(}:@|."1,.])=/~@i.) 4
0 0 0 1 0 0 0
0 0 1 0 1 0 0
0 1 0 0 0 1 0
1 0 0 0 0 0 1

1(...)}(...) changes to 1 the positions in its right argument, selected by the left one

([:(<@;]+i.@+:)<.@-:) - prepares the selection by doing the following:

               <.@-: - halves the argument and finds the floor (finds the row number)
    <@;              - box the row, followed by a list of columns:  
        ]+i.@+:      - a list form the argumnt to the doubled row number

    ([:(<@;]+i.@+:)<.@-:) 4
┌───────────┐
│┌─┬───────┐│
││2│2 3 4 5││
│└─┴───────┘│
└───────────┘

    1(([:(<@;]+i.@+:)<.@-:) 4)}a
0 0 0 1 0 0 0
0 0 1 0 1 0 0
0 1 1 1 1 1 0
1 0 0 0 0 0 1

' A'{~ renders a space in the places of 0 and 'A' where there is 1

    ' A'{~1(([:(<@;]+i.@+:)<.@-:) 4)}a
   A   
  A A  
 AAAAA 
A     A

hakr14 · Accepted Answer · 2018-03-26 16:39:07Z

3

Canvas, 17 13 bytes

A×／╶½A×╶»╵：╋│

Try it here!

-4 bytes thanks to dzaima!

edited Mar 26 '18 at 16:39

answered Mar 23 '18 at 16:42

hakr14

2,4516 silver badges12 bronze badges

Add a comment |

Olivier Grégoire · Accepted Answer · 2020-04-03 09:40:56Z

3

Java (JDK), 121 bytes

n->{var a=new char[n][n+n-1];for(int c=n*n,r,q;c-->0;a[r=c%n][q=c/n]=a[r][n+n-q-2]+=r==n/2&q>=r|r==n+~q?65:32);return a;}

Try it online!

Credits

-3 bytes thanks to ceilingcat

edited Apr 3 '20 at 9:40

answered Mar 23 '18 at 8:51

Olivier Grégoire

12.6k3 gold badges26 silver badges50 bronze badges

Add a comment |

Kirill L. · Accepted Answer · 2018-03-23 12:38:36Z

2

Ruby, 66 bytes

->n{(0...n).map{|i|(s=(i==n/2??A:?\s)*2*i+?A)[0]=?A;?\s*(n+~i)+s}}

Try it online!

Returns as array of lines

answered Mar 23 '18 at 12:38

Kirill L.

9,7541 gold badge11 silver badges37 bronze badges

Add a comment |

dzaima · Accepted Answer · 2018-03-23 20:01:23Z

2

SOGL V0.12, 12 bytes

 A*:╚╥≤.»I:ž

Try it Here!

Explanation:

 A*           repeat "A" input times
   :          duplicate it
    ╚         create a "/" diagonal of one of the copies of As
     ╥        palindromize it horizontally
      ≤       get the other copy of the "A"s on top
       .»I:   push floor(input/2)+1 twice
           ž  and at those coordinates in the palindromized diagonals place in the row of As

edited Mar 23 '18 at 20:01

answered Mar 23 '18 at 7:24

dzaima

19.9k2 gold badges35 silver badges72 bronze badges

Add a comment |

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

Japt `-R`, 20 19 bytes

Çç" A"gZ¶Uz¹i'A êÃû

Try it

Explanation

                        :Implicit input of integer U
Ç                       :Create the range [0,U) and pass each Z through a function
         Uz             :  Floor divide U by 2
       Z¶               :  Test for equality with Z (true=1, false=0)
  " A"g                 :  Get the character in the string " A" at that index
 ç                      :  Repeat Z times
           ¹            :  (Closes a few nested methods)
            i'A         :  Prepend an "A"
                ê       :  Palindromise
                 Ã      :End function
                  û     :Centre pad each element to the length of the longest element
                        :Implicitly join with newlines and output

Alternative

(In the hope that it might help me spot some savings!)

Æ'AúXÄ" A"gX¶Uz¹êÃû

Another alternate that's a byte longer: ç h'AUz)¬íp ®i'A êÃû — ETHproductions, Mar 23 '18 at 15:19
@ETHproductions Replace p with ² and it's also 19 bytes. — Shaggy, Mar 23 '18 at 17:51

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

Javascript, 124 bytes

A fairly naive solution, gave it a shot to practice js skills.

for(i=-1,p=" ".repeat(n-1)+"A ";++i<n;console.log(i-~~(n/2)?p:p.slice(0,i)+"A".repeat(n)),p=p.slice(1,n)+" "+p.slice(n-1)){}

Unpacked

for(
 //create the first line
 i=-1, p=" ".repeat(n-1)+"A "; 
 ++i<n;
 console.log( 
 //if we are not at the bar
      i-~~(n/2)?
 //otherwise, use the modified previous line
      p
 //slice the start of the previous line and add As
      :p.slice(0,i)+"A".repeat(n)), 
 //add a space in between the previous line and remove padding on each side
 p=p.slice(1,n)+" "+p.slice(n-1)){}

Asone Tuhid · Accepted Answer · 2018-03-23 12:20:58Z

1

Ruby, 73 bytes

->n{(0...n).map{|i|(?A.ljust(i*2,i==n/2??A:' ')+(i>0??A:'')).center n*2}}

Try it online!

answered Mar 23 '18 at 12:20

Asone Tuhid

2,1825 silver badges22 bronze badges

Add a comment |

dylnan · Accepted Answer · 2018-03-23 15:45:00Z

Jelly, 23 20 19 18 bytes

=þ`o\L‘HĊƲ¦UŒBị⁾A

Try it online!

=þ` creates an identity matrix of size n.

L‘HĊƲ finds the row index of the horizontal bar with ¦ picking that row out and applying o\ to it which creates the bar.

U reverses each row so we don't have an upside down "A" and ŒB (palindromize; vectorizes) makes the second half of the "A".

ị⁾A (with a space that is getting trimmed in the formatting) replaces 0s with spaces and 1s with As.

Razvan Socol · Accepted Answer · 2018-03-24 06:06:56Z

T-SQL, 182 177 bytes

DECLARE @n INT=5DECLARE @ INT=0a:DECLARE @s VARCHAR(9)=STR(POWER(10,@),@n)PRINT REPLACE(REPLACE(@s+REVERSE(LEFT(@s,@n-1)),'1','A'),'0',IIF(@=@n/2,'A',' '))SET @+=1IF @<@n GOTO a

First version (with 182 bytes):

DECLARE @n INT=5DECLARE @ INT=0WHILE @<@n BEGIN DECLARE @s VARCHAR(9)=STR(POWER(10,@),@n)PRINT REPLACE(REPLACE(@s+REVERSE(LEFT(@s,@n-1)),'1','A'),'0',IIF(@=@n/2,'A',' '))SET @+=1 END

The version above works up to @n=9.

Here is another version, which works up to @n=23, but has 2 extra bytes:

DECLARE @n INT=5DECLARE @ INT=0WHILE @<@n BEGIN DECLARE @s VARCHAR(23)=STR(POWER(10.,@),@n)PRINT REPLACE(REPLACE(@s+REVERSE(LEFT(@s,@n-1)),'1','A'),'0',IIF(@=@n/2,'A',' '))SET @+=1 END

Ungolfed:

DECLARE @n INT=5

DECLARE @i INT=0
WHILE @i<@n BEGIN
    DECLARE @s VARCHAR(9)=STR(POWER(10,@i),@n)
    PRINT REPLACE(REPLACE(@s+REVERSE(LEFT(@s,@n-1)),'1','A'),'0',IIF(@i=@n/2,'A',' '))
    SET @i+=1
END

Radek · Accepted Answer · 2018-03-25 13:15:16Z

1

Haskell, 98 97 95 bytes and 109 bytes

Two very different approaches. First (95 bytes):

c!n=([1..n]>>c)++"A"
f n=unlines[" "!(n-x)++drop 3([" "!(abs$n`div`2-x+1)!!0]!(2*x))|x<-[1..n]]

and second (109 bytes):

m True='A'
m _=' '
g n=unlines[[m(abs(n-j)==l||l==q&&elem j[q+1..q+n])|j<-[1..2*n]]|l<-[0..n-1],q<-[n`div`2]]

~~Try them here!~~; ~~Try modified version here!~~

Try third version here!

edited Mar 25 '18 at 13:15

answered Mar 24 '18 at 13:28

Radek

1714 bronze badges

\$\begingroup\$ Welcome to PPCG! You can save a byte on your first approach by defining l as infix operator. \$\endgroup\$ – Laikoni Mar 25 '18 at 1:44
\$\begingroup\$ m True='A' an be shortened to m b|b='A'. \$\endgroup\$ – Laikoni Mar 25 '18 at 1:47
\$\begingroup\$ It turned out that even two bytes could be saved. Thanks! :) \$\endgroup\$ – Radek Mar 25 '18 at 13:16

Add a comment |

Dead Possum · Accepted Answer · 2018-03-26 11:48:17Z

1

Python 2, 70 bytes or 65 bytes

List of strings is acceptable result, as @Budd stated in comments.

lambda n:['%*sA\n'%(n+i,('A'+i*2*' A'[i==n/2])[:-1])for i in range(n)]

Try it online!

Seemingly cheaty solution, using \b. It looks funky in TIO, in console it does the job.

lambda n:['%*s\bA\n'%(n+i,'A'+i*2*' A'[i==n/2])for i in range(n)]

Try it online!

edited Mar 26 '18 at 11:48

answered Mar 26 '18 at 11:24

Dead Possum

3,29610 silver badges25 bronze badges

Add a comment |

Ton Hospel · Accepted Answer · 2018-03-24 00:00:58Z

0

Perl 5 `-n`, 57 bytes

#!/usr/bin/perl -n
say$"x-$_.uc(A x($n+$_&-2?1:$n*2)|$"x2x$n++.A)for 1-$_..0

Try it online!

answered Mar 24 '18 at 0:00

Ton Hospel

14.5k1 gold badge18 silver badges45 bronze badges

Add a comment |

Rick Rongen · Accepted Answer · 2018-04-26 09:25:20Z

0

Python 3, 93, 88 bytes

lambda n:'\n'.join(f"{'A'+(x>0)*('A '[x!=n//2]*(x*2-1)+'A'):^{n*2-1}}"for x in range(n))

Try it online!

-3 by @ovs using f-string

edited Apr 26 '18 at 9:25

answered Mar 23 '18 at 10:21

Rick Rongen

2331 silver badge6 bronze badges

Add a comment |

Eiffel Towers: Create a large “A” from “A”s

Examples

n = 1

n = 2

n = 3

n = 4

n = 5

20 Answers 20

05AB1E, 13 bytes

Code:

Explanation:

Canvas

Charcoal, 17 15 bytes

Python 2, 80 bytes

Stax, 15 bytes

JavaScript (ES6), 77 bytes

Python 3.6, 79 bytes or 73 bytes

J, 65 bytes

Explanation:

Canvas, 17 13 bytes

Java (JDK), 121 bytes

Credits

Ruby, 66 bytes

SOGL V0.12, 12 bytes

Japt -R, 20 19 bytes

Explanation

Alternative

Javascript, 124 bytes

Ruby, 73 bytes

Jelly, 23 20 19 18 bytes

T-SQL, 182 177 bytes

Haskell, 98 97 95 bytes and 109 bytes

Python 2, 70 bytes or 65 bytes

Perl 5 -n, 57 bytes

Python 3, 93, 88 bytes

Your Answer

Sign up or log in

Post as a guest

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

Linked

Related

Hot Network Questions

Japt `-R`, 20 19 bytes

Perl 5 `-n`, 57 bytes