Diagonal Alphabet

Question

Given no input, your task is to generate the following:

a
 b
  c
   d
    e
     f
      g
       h
        i
         j
          k
           l
            m
             n
              o
               p
                q
                 r
                  s
                   t
                    u
                     v
                      w
                       x
                        y
                         z

Nonvisually, your task is to generate each letter in the alphabet, with spaces before it equal to its position in the alphabet minus one.

If you print this, it must appear like the above. Extraneous whitespace that does not affect appearance, as well as a trailing newline, is allowed. You can use all lowercase, or all uppercase.

You may also return this from a function as per usual rules, either as a string with newlines, or a list of strings.

This is code-golf, so shortest answer in bytes wins!

Answer 1

Batch, 187 114 bytes

@set s=
@for %%p in (a b c d e f g h i j k l m n o p q r s t u v w x y z)do @call:e %%p
:e
@echo(%s%%1
@set s= %s%

Answer 2

tcl, 54 47

time {puts [format %[incr i]c [expr $i+96]]} 26

demo

Answer 3

vim 14+16=30 keystrokes

16 keystrokes if you have alpha in nrformats already (I mean, who hasn't?), 30 otherwise.

:set nf=alpha<cr>
ia<esc>
qqYp<c-a>I <esc>q
24@q

Angle brackets denote single characters, e.g. <c-a> is ctrl+a (increment). Actual newlines only for clarity. Seriously, set nf+=alpha is really neat, and it's a feature I've missed in a few specific cases when programming.

Answer 4

Rexx (Regina), 41 37 bytes

do i=1 to 26
  say right(d2c(96+i),i)
end

Try it online!

Answer 5

SimpleTemplate, 66 42 bytes

This simply loops through all characters and outputs them one by one, with newlines and spaces.

{@forfrom"a"to"z"}{@echolV,_}{@setV V," "}

This abuses the automatic variable _ and the automatic flattening of echoed arrays and automatic newline with echol.

Ungolfed: (produces invalid results due to whitespace)

{@for chr from "a" to "z"}
    {@echo indentation, chr, "\n"}
    {@// will create an array like: [[[..., " "], " "], " "]}
    {@set indentation indentation, " "}
{@/}{@// automatically added after the code}

---

---

Old version:

There's a repeat function, but I couldn't use it because it's broken.
But this works too.

{@for_ from"a"to"z"}{@incz}{@callstr_repeat intos" ",z}{@echols,_}

---

Ungolfed: (produces incorrect results due to whitespace added)

{@set z 0}{@//removes warning}
{@for chr from "A" to "Z"}
    {@inc spaces by 1}
    {@call str_repeat into indentation " ", spaces}
    {@echo indentation, chr, "\n"}
{@/}{@// automatically added after the code}

Answer 6

Retina, 93 bytes

aAbBc¶3d¶4e¶5f¶6g¶7h¶8i¶9jA0kA1lA2mA3nA4oA5pA6qA7rA8sA9tB0uB1vB2wB3xB4yB5z
B
¶2
A
¶1
\d+
$* 

Try it online!

Answer 7

Noether, 52 bytes

"abcdefghijklmnopqrstuvwyxz"~aL(" "i*Pai/P"
"Pi1+~i)

Try it here!

Pushes the alphabet and loops through it, increasing the number of spaces before the character by one each time.

---

A non competing solution for 26 24 bytes is:

26(" "i*P0Ai/P"
"Pi1+~i)

Try it here!

Answer 8

Swift 3, 75 bytes

for i in 0..<26{print(String(repeating:" ",count:i)+String(i+10,radix:36))}

Answer 9

Groovy, 40 38 bytes

i=0;("a".."z").each{println" "*++i+it}

Previous solution:

0.upto(25){println" "*it+("a".."z")[it]}

iis used to store the number of spaces that must be printed before each letter. The program iterates through the range "a".."z" (the alphabet), printing each letter with i spaces before it and increments i inline.

Answer 10

Common Lisp, SBCL, 70 bytes

(dotimes(i 26)(format t"~v@t~a
"i(aref"abcdefghijklmnopqrstuvwxyz"i)))

Looping through letters of alphabet and outputting accurate number of spaces before each letter.

another 70 bytes solution:

(format t"~{~26<~a~#@t~>
~}"(coerce"abcdefghijklmnopqrstuvwxyz"'list))

looping through letters and justifying to 26 columns, where word to justify is letter+accurate number of spaces.

building alphabet list using code-char would make it 76 bytes:

(format t"~{~26<~a~#@t~>
~}"(loop as i from 97 to 122 collect(code-char i)))

Answer 11

dc, 53 52 bytes

0si[32Plj1+dsjli>S]sS[0sjlid0<S1+dsi64+dPAP90>M]dsMx

Try it online!

Uppercase because checking that we're below character 90 (Z) is one fewer byte than checking that we're below character 122 (z). Otherwise pretty straightforward: one macro to print spaces and another to call the spacing macro, print the letter, and print a newline.

-1 byte because I forgot to golf my 10 into an A.

Answer 12

Pyth, 9 bytes

m+*;xGddG

Try it online!

The other Pyth approach is golfier because it uses enumerated map, which is 1 byte shorter. I just wanted to post a solution with regular map m, that happens to use the same variable, d as the built-in space. That may be inconvenient, because you cannot refer to the space with d. However, I did a work-around with ;, which gets the global value of the innermost lambda variable.

This returns a list of lines. In order to join them by newlines, we just need to add j in front of the whole code (the link contains the j for readability).

Explanation

jm+*;xGddG  - Full program.

 m       G  - Map over the alphabet with a variable d.
  +         - Add:
   *          - The multiplication of:
     xGd        - The index of the current letter in the alphabet (0-indexed) and
    ;           - Space (which is the global value of d, the innermost lambda 
variable).
        d     - The current letter.
j           - Optional: Join by newlines.

Answer 13

QBasic, 54 bytes

SCREEN 12
FOR x=1TO 26
LOCATE x,x
?CHR$(x+96)
NEXT

Explanation

SCREEN 12       Set the screen mode to something that can actially handle > 20 chars on a line
FOR x=1TO 26    Loop from 1 to 26
LOCATE x,x      Set the cursior to the screen position x,x, starting at 1,1 on the top left.
?CHR$(x+96)  Print the current letter of the alphabet
NEXT

Answer 14

C#, 82 bytes

var b="";for(int i=0;i<=25;i++){var a=(char)(97+i);b+=new string(' ',i)+a+"\r\n";}

Try it online!

Answer 15

C++ (gcc), 73 bytes

As unnamed generic lambda, requires a stream as parameter (like std::cout)

[](auto&O){for(char c=96;++c<123;O<<c<<'\n')for(char w=c-96;--w;O<<' ');}

Try it online!

Answer 16

Recursiva, 16 15 bytes

{)"P+*-O}97' '}

Try it online!

Explanation:

{)"P+*-O}97' '}
{                - For each
 )               - lower-case alphabet yield 'abc...z'
  "              - Iteration command begin
   P             - Print
    +            - concatenate
     *-O}97' '   - Appropriate number of spaces
              }  - current alphabet (iterate)          

Answer 17

Pushy, 10 bytes

`a\x26`:"h32}

Where \x26 represents the literal byte 0x26.

Try it online!

`a\x26`         \ Push 'a' and 26
       :        \ Pop 26, loop that many times:
        "       \   Print the stack
         h      \   Increment the letter
          32}   \   Prepend a space

Answer 18

AWK, 40 bytes

BEGIN{for(;i<26;)printf"%"++i"c\n",i+96}

Try it online!

I didn't see an AWK solution, so here we go. Straightforward implementation, so more golfing may be possible.

Answer 19

Sincalr ZX81/Timex TS1000/1500 BASIC, ~45 tokenized BASIC bytes

 1 FOR I=CODE "A" TO CODE "Z"
 2 PRINT TAB (I-CODE "A");CHR$ I
 3 NEXT I

Some notes; without adding in more bytes to the listing, the standard output to the screen is 32 x 22 only, so when the screen fills, you will need to press C, and the keyword CONT will appear. You will then see the rest of the alphabet.

For those who want to see the Alphabet without having to manually enter CONT each time the last row is hit in the text area, this solution does it for you:

 1 FOR I=CODE "A" TO CODE "Z"
 2 PRINT AT CODE "+",I-CODE "A";CHR$ I
 3 SCROLL
 4 NEXT I

This version costs another 9 tokenized bytes though.

Answer 20

Pyth, 12 bytes

Fb26p*\ b@Gb

There's probably some way I can shave off a couple bytes, but I'm not quite sure yet.

Explanation:

Fb26p*\ b@Gb |
Fb26         | for b in range(26):
    p        |     print(
     *\ b    |           " "*b
         @Gb |                +G[b]

Note: G is initialized to "abcdefghijklmnopqrstuvwxyz"

Answer 21

MY-BASIC, 62 bytes

Anonymous function that takes no input and outputs to the console.

For i=0 To 25
For j=1 To i
Print" "
Next
Print Chr(65+I);
Next

Try it online!

Answer 22

Visual Basic .NET (Mono), 98 bytes

Declared Subroutine that that takes no input and outputs to the console.

Module M
Sub Main
Dim I
For I=0To 25
Console.WriteLine(Space(i)+Chr(65+I))
Next
End Sub
End Module

Try it online!

Answer 23

Momema, 51 bytes

m01*0w1-9 32 1+*1-1w0w=*1-9+97*0-9 10 0+1*0m=+-26*0

Try it online!

Explanation:

                                                              #  a = 0
m   0        #  label m0: jump past label m0 (no-op)          #  do {
1   *0       #            [1] = [0]                           #    b = a
w   1        #  label w0: jump past label w1                  #    while b != 0 {
-9  32       #            print chr 32                        #      print ' '
1   +*1-1    #            [1] = [1] - 1                       #      b -= 1
w   0        #  label w1: jump past label w0 (no-op)          #    [end-of-loop jump point]
w   =*1      #  label w2: jump past label w((2 + !![1]) % 3)  #    }
-9  +97*0    #            print chr 97 + [0]                  #    print chr(97 + a)
-9  10       #            print chr 10                        #    print '\n'
0   +1*0     #            [0] = [0] + 1                       #    a += 1
m   =+-26*0  #  label m1: jump past label m((1 + !![0]) % 2)  #  } while a != 0

Answer 24

Python 3, 74 64 63 Bytes

Saved ten bytes thanks to Caird

Saved one byte thanks to Stephen

Changed format to one-liner

Yes there are several Python 2 answers but how about one with Python 3?

for b in'abcdefghijklmnopqrstuvwxyz':print(' '*(ord(b)-97)+b)

First it makes a list of the alphabet then prints each letter but with n (Index of the value) spaces.

Answer 25

Japt -R, 7 bytes

;C¬ËiEç

Try it online!

Answer 26

Java (OpenJDK 8), 58 bytes

a->{for(char b=96;b++<122;a+=' ')System.out.println(a+b);}

Try it online!

I had no idea that you could make a for loop with a char variable... but here ya go! I’m pretty proud of my solution here, it may be my most golfed submission to date!

Answer 27

Add++, 43 36 bytes

D,f,@:^,32$yVVL97+
D,g,,26RBF€{f}
$g

Try it online!

Super suboptimal because I don't know what I'm doing

Answer 28

Python 2, 56 bytes

a=map(chr,range(65,91))
for i in a:print' '*a.index(i)+i

Answer 29

CJam, 13 bytes

26{_S*\'a+N}/

Try it online!

Explanation

26{        }/  for i in [0..25]:
    S*           puts ' ' * i
   _  \'a+       puts 'a' + i
          N      puts '\n'

Answer 30

PHP, 72 68 67 Bytes

Try it online!

Try it online (after @Titus review)

Try it online, last review. @Titus Strikes Back

Code, recursive function

function f($v=26){$v&&print str_pad("",$v).chr($v+96)." 
".f($v-1);}

Explanation

function f($v=26){
    $v&&print           # if $v not zero then print
    str_pad("",$v)     # pad spaces $v times
    .chr($v+96)     # concat the character at 96+$v 
    ."                 # concat a linebreak 
    ".f($v-1);          # call the function 
}