Print A-Z and their alphabet index without using 1,2,4,6

Question

You need to print A-Z like this:

1. A
2. B
3. C
4. D
5. E
6. F
7. G
8. H
9. I
10. J
11. K
12. L
13. M
14. N
15. O
16. P
17. Q
18. R
19. S
20. T
21. U
22. V
23. W
24. X
25. Y
26. Z

But your source code cannot use 1,2,4,6.

Trailing newlines in output allowed,, but leading ones not allowed.

Standard loopholes apply, shortest code wins.

This is pretty much a duplicate of many existing restricted-source kolmogorov-complexity "print X without Y" challenges, and the ban on 1 2 4 and 6 is arbitrary and unchallenging, — pxeger, Commented Feb 28, 2021 at 11:09
In future, please use the Sandbox to get feedback on your question before posting. — pxeger, Commented Feb 28, 2021 at 11:09

pxeger · Accepted Answer · 2021-02-28 11:01:13Z

6

Zsh, 27 bytes

eval ';echo $[++i]. '{A..Z}

Try it online!

answered Feb 28, 2021 at 11:01

pxeger

24.6k4 gold badges53 silver badges141 bronze badges

Add a comment |

Arnauld · Accepted Answer · 2021-02-28 11:10:11Z

6

JavaScript (Node.js), 48 bytes

f=(n=033)=>--n?f(n)+n+`. ${Buffer([8*8|n])}
`:''

Try it online!

answered Feb 28, 2021 at 11:10

Arnauld

198k20 gold badges179 silver badges650 bronze badges

Add a comment |

xnor · Accepted Answer · 2021-02-28 11:55:48Z

6

Python 2, 44 bytes

i=8*8
while i<90:i=-~i;print`i-8*8`+'. %c'%i

Try it online!

46 bytes

i=0
while i<33-7:i=-~i;print'%d. %c'%(i,i+8*8)

Try it online!

The loop condition can also be while-~i/9-3: or while~-i/5-5 or while-i/5-~5: or while~-i-5*5: or while~-033>i.

46 bytes

i=0
exec 78/3*"i=-~i;print'%d. %c'%(i,i+8*8);"

Try it online!

46 bytes

i=8*8
while i<90:i=-~i;print'%d. %c'%(i-8*8,i)

Try it online!

46 bytes

i=0
while~i-5*5:i=~-i;print'%d. %c'%(-i,8*8-i)

Try it online!

46 bytes

i=8*8
while i<90:i=-~i;print'%d. %c'%(i&799,i)

Try it online!

47 bytes

for i in range(33-7):print"%d. %c"%(-~i,8*8-~i)

Try it online!

edited Feb 28, 2021 at 11:55

answered Feb 28, 2021 at 10:59

xnor

147k26 gold badges279 silver badges652 bronze badges

1

\$\begingroup\$ @ovs The issue is that 1's are banned \$\endgroup\$
– xnor
Commented Feb 28, 2021 at 11:26
\$\begingroup\$ Does this work for 44 bytes? \$\endgroup\$
– dingledooper
Commented Feb 28, 2021 at 11:55
\$\begingroup\$ @dingledooper Yes, I had just gotten exactly that too \$\endgroup\$
– xnor
Commented Feb 28, 2021 at 11:57

Add a comment |

Adám · Accepted Answer · 2021-02-28 10:49:31Z

5

APL (Dyalog Extended), 19 bytes (SBCS)

↑(⍳∘≢,⍥⍕¨'. '∘,¨)⎕A

Try it online!

⎕A the uppercase Alphabet

(…) apply the following tacit function:

'. '∘,¨ prepend ". " to each letter.

,⍥⍕¨ concatenate the string representation of each to the string representation of:

⍳∘≢ the ɩndices of the length of the alphabet

↑ "mix" the list of strings into a character matrix

answered Feb 28, 2021 at 10:49

Adám

31.1k3 gold badges124 silver badges287 bronze badges

Add a comment |

Cray · Accepted Answer · 2021-03-01 17:43:08Z

5

PHP, 45 40 39 38 bytes

for($c=A;$c<>AA;$c++)echo++$i,". $c
";

Try it online!

-1 thanks to Kaddath

edited Mar 1, 2021 at 17:43

answered Feb 28, 2021 at 10:49

Cray

3712 silver badges4 bronze badges

1

\$\begingroup\$ The new line can be a "literal" new line in the string like this to save 1 byte \$\endgroup\$
– Kaddath
Commented Mar 1, 2021 at 10:30
\$\begingroup\$ Didn't know about that, thanks! \$\endgroup\$
– Cray
Commented Mar 1, 2021 at 17:43

Add a comment |

ovs · Accepted Answer · 2021-02-28 10:50:24Z

3

05AB1E, 9 bytes

Auā'.«sø»

Try it online!

A          # push the lowercase alphabet
 u         # convert to uppercase
  ā        # push the range [1 .. len(alphabet)]
   '.«    '# append '.' to each number
      s    # swap to the alphabet
       ø   # zip both lists => [['1.', 'A'], ..., ['26.', 'Z']]
        »  # join each inner list by spaces and the outer list by newlines

answered Feb 28, 2021 at 10:50

ovs

60.6k3 gold badges47 silver badges161 bronze badges

Add a comment |

Neil · Accepted Answer · 2021-02-28 10:55:04Z

3

Charcoal, 9 bytes

Ｅα⁺⁺⊕κ. ι

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

 α          Predefined variable uppercase alphabet
Ｅ           Map over characters
     κ      Current index (0-indexed)
    ⊕       Incremented
      .     Literal string `. `
        ι   Current character
  ⁺⁺        All concatenated
            Implicitly print on separate lines

answered Feb 28, 2021 at 10:55

Neil

177k12 gold badges74 silver badges281 bronze badges

Add a comment |

ovs · Accepted Answer · 2021-02-28 11:51:24Z

3

Perl 5.10, 22 bytes

say++$..". $_"for A..Z

Try it online!

answered Feb 28, 2021 at 11:51

ovs

60.6k3 gold badges47 silver badges161 bronze badges

Add a comment |

Kirill L. · Accepted Answer · 2021-02-28 12:33:45Z

3

R, 33 bytes

write.table(LETTERS,,,F,". ",c=F)

Try it online!

answered Feb 28, 2021 at 12:33

Kirill L.

14.1k2 gold badges16 silver badges50 bronze badges

Add a comment |

Razetime · Accepted Answer · 2021-02-28 11:36:03Z

2

Canvas, 8 bytes

Ｚ｛²Ｏ. ｏｏ

Try it here!, alternate version

The only reason this is shorter than charcoal is because it's got a 1-indexed iteration count.

Explanation

Z{²O. oo
Z{       loop over the alphabet
  ²O     output the iteration number
    . o  output ". "
       o output the current letter

edited Feb 28, 2021 at 11:36

answered Feb 28, 2021 at 11:22

Razetime

27.4k3 gold badges29 silver badges72 bronze badges

Add a comment |

mazzy · Accepted Answer · 2021-02-28 11:40:59Z

2

PowerShell, 25 bytes

'A'..'Z'|%{++$i;"$i. $_"}

Try it online!

answered Feb 28, 2021 at 11:40

mazzy

7,1652 gold badges12 silver badges22 bronze badges

Add a comment |

Caleb Fuller · Accepted Answer · 2021-02-28 11:54:47Z

2

BASIC, 41 bytes

for i=!0 to 33-7:?i,". ",chr$(8*8+i):next

Try it online!

answered Feb 28, 2021 at 11:54

Caleb Fuller

3811 silver badge5 bronze badges

Add a comment |

Neil · Accepted Answer · 2023-11-24 16:38:56Z

2

Retina 0.8.2, 49 29 28 bytes

T`@L`_o
}`$
Z
.
$.`. $&¶
A`@

Try it online! Explanation:

T`@L`_o
}`$
Z

Generate the uppercase alphabet prefixed by @. This works by feeding in Zs and transliterating a step backwards each time until the transformation becomes idempotent.

.
$.`. $&¶

Prefix each character with its 0-based index and . , and split each character on to its own line.

A`@

Delete the @ entry.

edited Nov 24, 2023 at 16:38

answered Feb 28, 2021 at 11:24

Neil

177k12 gold badges74 silver badges281 bronze badges

\$\begingroup\$ You have a 1 that snuck in \$\endgroup\$
– xnor
Commented Feb 28, 2021 at 11:25
\$\begingroup\$ @xnor Luckily Retina 0.8.2 gives me an alternate way of referring to that capture group! \$\endgroup\$
– Neil
Commented Feb 28, 2021 at 11:28

Add a comment |

Wasif · Accepted Answer · 2021-02-28 10:39:40Z

1

PowerShell, 41 bytes

(8-7)..(33-7)|%{"$($_). "+[char]($_+8*8)}

Try it online!

answered Feb 28, 2021 at 10:39

Wasif

12.4k1 gold badge18 silver badges47 bronze badges

Add a comment |

Wasif · Accepted Answer · 2021-02-28 10:56:18Z

1

Python 3, 52 50 bytes

for x in range(8-7,33-6):print(f"{x}.",chr(x+8*8))

Try it online!

edited Feb 28, 2021 at 10:56

answered Feb 28, 2021 at 10:44

Wasif

12.4k1 gold badge18 silver badges47 bronze badges

\$\begingroup\$ 50 bytes \$\endgroup\$
– ovs
Commented Feb 28, 2021 at 10:55
\$\begingroup\$ @ovs thanks for that! \$\endgroup\$
– Wasif
Commented Feb 28, 2021 at 10:56
\$\begingroup\$ 46 bytes \$\endgroup\$
– Jiří
Commented Mar 1, 2021 at 16:23

Add a comment |

Neil · Accepted Answer · 2021-02-28 11:08:31Z

1

Retina, 27 bytes


3*9*@
Y`@`L_
L$`.
$.>`. $&

Try it online! Explanation:


3*9*@

Insert 27 @s. (Best I can do since I can't use 2 or 6.)

Y`@`L_

Replace each @ with subsequent uppercase letters, but delete the last one.

L$`.

Match each letter.

$.>`. $&

For each letter, output its 1-indexed index, . , then the letter.

answered Feb 28, 2021 at 11:08

Neil

177k12 gold badges74 silver badges281 bronze badges

Add a comment |

lyxal · Accepted Answer · 2021-02-28 11:12:45Z

1

Vyxal, `j`, 10 bytes

αɾkAZƛı. j

Try it Online!

edited Feb 28, 2021 at 11:12

answered Feb 28, 2021 at 11:04

lyxal

34.3k2 gold badges64 silver badges141 bronze badges

Add a comment |

Kamil Drakari · Accepted Answer · 2021-02-28 17:17:33Z

Japt, 12 bytes

;B£[YÄLSXR]q

Try it online!

Straightforward, though I feel like there's still room for improvement.

Explanation:

;B£[YÄLSXR]q    #
;               # Store the uppercase alphabet in B
 B£             # Replace each character in B with the following:
   [      ]     #  Make an array containing:
    YÄ          #   The 0-based index of the character + 1 (i.e. 1-based index)
      L         #   Period
       S        #   Space
        X       #   The original character
         R      #   A newline
           q    #  Join the array into a string with no separator
                # Implicitly output the resulting string

smitop · Accepted Answer · 2021-02-28 21:53:00Z

1

Rust, 56 bytes

||for(i,x)in(9..).zip('A'..'['){print!("{}. {}
",i-8,x)}

answered Feb 28, 2021 at 21:53

smitop

1515 bronze badges

Add a comment |

caird coinheringaahin g · Accepted Answer · 2021-02-28 22:17:47Z

1

Jelly, 10 9 bytes

ØAĖj€⁾. Y

Try it online!

How it works

ØAĖj€⁾. Y - Main link. Takes no arguments
ØA        - Yield the uppercase alphabet and set as the left and right arguments
  Ė       - Enumerate
   j€⁾.   - Join each pair with ". "
        Y - Join with newlines and output

edited Feb 28, 2021 at 22:17

answered Feb 28, 2021 at 11:25

caird coinheringaahin g♦

50.3k11 gold badges128 silver badges354 bronze badges

\$\begingroup\$ Ė saves 1 over Jż. \$\endgroup\$
– Jonathan Allan
Commented Feb 28, 2021 at 22:15
\$\begingroup\$ @JonathanAllan Very nice! \$\endgroup\$
– caird coinheringaahin g ♦
Commented Feb 28, 2021 at 22:17

Add a comment |

Unmitigated · Accepted Answer · 2021-02-28 23:04:07Z

1

Java, 62 bytes

$->{for(char c='@';++c<'[';)System.out.println(c-'@'+". "+c);}

Try it online!

Java, 95 bytes

$->java.util.stream.IntStream.range('A','[').forEach(i->System.out.println(i-'@'+". "+(char)i))

Try it online!

answered Feb 28, 2021 at 23:04

Unmitigated

2,8391 gold badge5 silver badges14 bronze badges

Add a comment |

J. А. del Rio - слава СССР · Accepted Answer · 2021-02-28 23:35:59Z

1

Lua (55 bytes)

for i=7%3,33-7 do print(i..". "..(8*8+i..""):char())end

answered Feb 28, 2021 at 23:35

J. А. del Rio - слава СССР

3393 silver badges6 bronze badges

Add a comment |

Wasif · Accepted Answer · 2021-03-01 08:42:42Z

1

Javascript (Browser console), 58 bytes

for(i=0;i<35-9;)alert(++i+". "+String.fromCharCode(i+8*8))

-2 bytes thanks to @expressjs123 -3 bytes thanks to @tsh

edited Mar 1, 2021 at 8:42

answered Feb 28, 2021 at 10:47

Wasif

12.4k1 gold badge18 silver badges47 bronze badges

\$\begingroup\$ 67 bytes: for(i=8-7;i<35-8;i++)console.log(i+". "+String.fromCharCode(i+8*8)) \$\endgroup\$
– user100690
Commented Feb 28, 2021 at 11:17
\$\begingroup\$ 64 bytes: for(i=0;i<35-9;)console.log(++i+". "+String.fromCharCode(i+8*8)) \$\endgroup\$
– tsh
Commented Mar 1, 2021 at 8:40
\$\begingroup\$ @tsh thanks for it \$\endgroup\$
– Wasif
Commented Mar 1, 2021 at 8:42
\$\begingroup\$ @expressjs123 thanks for it \$\endgroup\$
– Wasif
Commented Mar 1, 2021 at 8:43

Add a comment |

user100947user100947 · Accepted Answer · 2021-03-01 12:14:01Z

1

Bash, 41 bytes

echo {A..Z}|tr ' ' '
'|nl -s". " -w$[8-7]

Try it online!

answered Mar 1, 2021 at 12:14

user100947

Add a comment |

MarcMush · Accepted Answer · 2023-11-24 11:27:07Z

1

Julia 1.0, ³⁷ 35 bytes

'A':'Z'.|>i->print("$(i-'@'). $i
")

Try it online!

edited Nov 24, 2023 at 11:27

answered Mar 1, 2021 at 14:27

MarcMush

6,63513 silver badges17 bronze badges

Add a comment |

Shaggy · Accepted Answer · 2023-11-27 15:06:38Z

1

Japt `-R`, 11 bytes

;B¬ËiSiLiEÄ

Test it

answered Nov 27, 2023 at 15:06

Shaggy

43.5k4 gold badges36 silver badges94 bronze badges

\$\begingroup\$ Nice. The closest I got without ; was 13 26Ç°Ä+". {ZdI \$\endgroup\$
– noodle person
Commented Nov 27, 2023 at 18:29
\$\begingroup\$ @noodleman, 12 bytes \$\endgroup\$
– Shaggy
Commented Nov 28, 2023 at 22:28
\$\begingroup\$ Ooh, clever! I've lost all my epic Japt skillz already >:( \$\endgroup\$
– noodle person
Commented Nov 28, 2023 at 22:45

Add a comment |

William Martens · Accepted Answer · 2021-02-28 11:26:49Z

0

C

main() { for(int i='A',j=0;i<='Z';j++,printf("%d. %c\n",j,i),i++);}

If for some, this wouldn't work:

#include <stdio.h>
void main() { for(int i='A',j=0;i<='Z';j++,printf("%d. %c\n",j,i),i++);}

edited Feb 28, 2021 at 11:26

answered Feb 28, 2021 at 11:20

William Martens

1338 bronze badges

1

\$\begingroup\$ using void main will give a warning, but allow you to omit return 0. \$\endgroup\$
– Razetime
Commented Feb 28, 2021 at 11:23
1

\$\begingroup\$ You're not allowed to use 1, but you can use j=0 and ++j instead. \$\endgroup\$
– Neil
Commented Feb 28, 2021 at 11:26
1

\$\begingroup\$ Why not remove the spaces? Also you can change i<='Z' to i<'[' and put the j++ and i++ inside the printf call, and remove the =0 because j will be initialised to 0 implicitly \$\endgroup\$
– pxeger
Commented Feb 28, 2021 at 17:20
1

\$\begingroup\$ @pxeger I know it will as a global, but not as a local surely? \$\endgroup\$
– Neil
Commented Mar 2, 2021 at 0:59
1

\$\begingroup\$ @Neil I'm not a C expert so I'm not sure, but it seems to work on GCC - Try it online! \$\endgroup\$
– pxeger
Commented Mar 2, 2021 at 10:00

| Show 4 more comments

anotherOne · Accepted Answer · 2021-02-28 11:37:04Z

0

C (gcc), 50 bytes

main(i){for(;i<3*9;printf("%d. %c\n",i++,i+8*8));}

Try it online!

f(i){for(i=0;++i<3*9;printf("%d. %c\n",i,i+8*8));}

Try it online!

edited Feb 28, 2021 at 11:37

answered Feb 28, 2021 at 11:30

anotherOne

1,0916 silver badges13 bronze badges

Add a comment |

Noodle9 · Accepted Answer · 2021-02-28 11:41:11Z

0

C (gcc), 50 bytes

f(i){for(i=0;++i<033;)printf("%d. %c\n",i,i+'@');}

Try it online!

edited Feb 28, 2021 at 11:41

answered Feb 28, 2021 at 11:30

Noodle9

20.3k3 gold badges21 silver badges46 bronze badges

\$\begingroup\$ You are missing the space after the dot and you can save 1 byte with f(i) \$\endgroup\$
– anotherOne
Commented Feb 28, 2021 at 11:38
1

\$\begingroup\$ @SheikYerbouti Fixed, thanks! :) \$\endgroup\$
– Noodle9
Commented Feb 28, 2021 at 11:41

Add a comment |

Razetime · Accepted Answer · 2021-02-28 11:52:19Z

0

Stax, ⁹ 8 bytes

τ┌Z*µ╝╘Q

Run and debug it

edited Feb 28, 2021 at 11:52

answered Feb 28, 2021 at 11:43

Razetime

27.4k3 gold badges29 silver badges72 bronze badges

Add a comment |

Stack Exchange Network

Print A-Z and their alphabet index without using 1,2,4,6

34 Answers 34

Zsh, 27 bytes

JavaScript (Node.js), 48 bytes

Python 2, 44 bytes

APL (Dyalog Extended), 19 bytes (SBCS)

PHP, 45 40 39 38 bytes

05AB1E, 9 bytes

Charcoal, 9 bytes

Perl 5.10, 22 bytes

R, 33 bytes

Canvas, 8 bytes

Explanation

PowerShell, 25 bytes

BASIC, 41 bytes

Retina 0.8.2, 49 29 28 bytes

PowerShell, 41 bytes

Python 3, 52 50 bytes

Retina, 27 bytes

Vyxal, `j`, 10 bytes

Japt, 12 bytes

Rust, 56 bytes

Jelly, 10 9 bytes

How it works

Java, 62 bytes

Java, 95 bytes

Lua (55 bytes)

Javascript (Browser console), 58 bytes

Bash, 41 bytes

Julia 1.0, ³⁷ 35 bytes

Japt `-R`, 11 bytes

C

C (gcc), 50 bytes

C (gcc), 50 bytes

Stax, ⁹ 8 bytes

Your Answer

Linked

Hot Network Questions

Print A-Z and their alphabet index without using 1,2,4,6

34 Answers 34

Zsh, 27 bytes

JavaScript (Node.js), 48 bytes

Python 2, 44 bytes

APL (Dyalog Extended), 19 bytes (SBCS)

PHP, 45 40 39 38 bytes

05AB1E, 9 bytes

Charcoal, 9 bytes

Perl 5.10, 22 bytes

R, 33 bytes

Canvas, 8 bytes

Explanation

PowerShell, 25 bytes

BASIC, 41 bytes

Retina 0.8.2, 49 29 28 bytes

PowerShell, 41 bytes

Python 3, 52 50 bytes

Retina, 27 bytes

Vyxal, j, 10 bytes

Japt, 12 bytes

Rust, 56 bytes

Jelly, 10 9 bytes

How it works

Java, 62 bytes

Java, 95 bytes

Lua (55 bytes)

Javascript (Browser console), 58 bytes

Bash, 41 bytes

Julia 1.0, 37 35 bytes

Japt -R, 11 bytes

C

C (gcc), 50 bytes

C (gcc), 50 bytes

Stax, 9 8 bytes

Your Answer

Sign up or log in

Post as a guest

Linked

Related

Hot Network Questions

Vyxal, `j`, 10 bytes

Julia 1.0, ³⁷ 35 bytes

Japt `-R`, 11 bytes

Stax, ⁹ 8 bytes