Given a number, program must return the alphabet letter correspondent

Question

The program

Given a number, program must return the alphabet letter correspondent.

Rules

• The challenge here is to make it as short as possible, everyone knows it is a very easy program to do.
• The number is not zero-based, it means 1 is A, 2 is B, 3 is C and so it goes...
• Any language will be accepted.

Answer 1

DC - 6 characters

Full program including input and output.

?64+af

save to file and run with $ dc file

Answer 2

APL (4)

(Full program)

⎕⌷⎕A

Explanation:

⎕ (user input) ⌷ (index) ⎕A (alphabet)

(They're supposed to be boxes, it's not an encoding problem.)

Answer 3

Brainfuck, 107 bytes

>,----------[>++++++[-<------>],----------]<[<]>>[<--[->++++++++++<]>>]+++++++[-<+++++++++>]<-.>++++++++++.

Answer 4

brainfuck, 64 56 50 bytes

Thanks to Dorian for saving 3 bytes and inspiring 3 more

,>,[<+[-<+>[-<]>>]<[<++<-]>++>>]<<+++[->+++++<]>+.

Try it online!

How it works

,>, Gets input
   [ if a two digit number
    <+[-<+>[-<]>>] Gets modulo 2 of first number plus 1
                  <[<++<-] Sets the fives cell to 2 if the first number is a 2
                          >++ Adds another 2 to the fives cell
                             >>]  Moves to cell after ones cell
                                <<+++ Adds 3 to fives cell
                                     [->+++++<] Multiply the fives cell by 5 and add it to the ones cell
                                               >+.  Add one and print

Answer 5

Befunge-93, 7 6 bytes

"&++,@

Try it online!

Takes advantage of the extra spaces at the end of a wrapping string literal by adding two spaces (32*2 = 64) to the inputted number to turn it into the corresponding alphabetic character. Funnily enough, if we use a implementation that doesn’t include the wrapping spaces, we can do "&+.@ to add the @ (64) to the number instead.

Answer 6

R, 11 characters

LETTERS[x]

Usage:

LETTERS[21]
[1] "U"

Answer 7

TI-Basic, 34 bytes

sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",Ans,1

This is as short as it gets...

Answer 8

PHP, 17 bytes

<?=chr(64+$argn);

Run s pipe with -F

Answer 9

MATL, 4 bytes (Non-competing)

64+c

Try it online!

Because, why not. Takes input implicitly, pushes 64 and adds it to the input number. Finally it converts the number to its ASCII-equivalent using c.

Answer 10

Pyth - 5 3 Bytes

@Gt

Saved two bytes thanks to ovs

Completely forgot about t and implicit Q

Explanation:

@    Index
 G   in alphabet of
  t  one less than
   Q Input (implicitly added to solve arity)

Answer 11

Ly, 6 bytes

n8:*+o

Try it online!

Answer 12

Husk, 4 bytes

c+64

Try it online!

Boring, but probably optimal. Adds 64 to the given number and converts it to ASCII. !¡→'A is cuter (awww, the exclamation marks are friends!) but one byte longer.

Answer 13

Hexagony, 10 Bytes

Try it online!

A({/'+;?/@

Expanded:

  A ( {
 / ' + ;
? / @ . .
 . . . .
  . . .

This honestly took me way longer than it should have, as it's just 2 simple reflections.

---

The simplest version for this problem is only 2 bytes longer

  A ( {
 . . . .
? ' + ; @
 . . . .
  . . .

Answer 14

PowerShell, 19 18 bytes

-1 byte thanks to @mazzy lol
I don't think it'll get much shorter than this.

[char](64+"$args")

Try it online!

Takes input from a command line argument.

Answer 15

Powershell 6, 17 bytes

('@'..'Z')[$args]

Answer 16

J, 7 characters

a.{~64+

Usage:

   a.{~64+1
A

Answer 17

Perl, 20 characters

chr(($ARGV[0] + 64))

Verification :

risk@skynet:~/perl$ for x in {1..26}; do perl ./ord.pl $x; done;
ABCDEFGHIJKLMNOPQRSTUVWXYZrisk@skynet:~/perl$

Answer 18

Tcl, 30 bytes

puts [expr [scan $argv %c]-64]

Try it online!

Answer 19

BrainFuck, 66

,>,----------[<[->++++++++++<]++++++[>+++++++<-]>>]++++[<++++>-]<.

Answer 20

Jelly, 3 bytes

ịØA

Try it online!

Answer 21

SmileBASIC, 18 bytes

INPUT N?CHR$(N+64)

Answer 22

Java 8, 15 bytes (as lambda function)

n->(char)(n+64)

Try it online.

Java 8, 84 bytes (as full program)

interface M{static void main(String[]a){System.out.printf("%c",new Byte(a[0])+64);}}

Try it online.

Answer 23

Haskell, 11 bytes

(['@'..]!!)

Try it online! This anonymous function indexes into the string "@ABCDEFG ...".

Answer 24

Python 3, 91 bytes

Just for fun, the Rube Goldberg equivalent

print(chr(sum((ord(j)-ord('0'))*10**i for i,j in enumerate(reversed(input())))+ord('A')-1))

Try it online!

Answer 25

Fortran (GFortran), 30 bytes

READ*,I
PRINT*,ACHAR(I+64)
END

My entry in the good ol' Fortran.

Try it online!

Answer 26

FORTH 16 BYTES

: n 64 + EMIT ;

OUTPUT:

8 N
8 N H ok
5 N
5 N E ok
12 N
12 N L ok
12 N
12 N L ok
15 N
15 N O ok
23 N
23 N W ok
15 N
15 N O ok
18 N
18 N R ok
12 N
12 N L ok
4 N
4 N D ok

Answer 27

Tcl, 31 bytes

puts [format %c [incr argv 64]]

Try it online!

Answer 28

Japt, 2 bytes

dI

Try it or test all numbers

Answer 29

Classic ASP (14 bytes):

<%=Chr(c+64)%>

Expects c to hold the character number.

Answer 30

C# 4,50KB (196 characters)

My first time here =)

using System; namespace W { class P { static void Main(string[] args) {
            Console.WriteLine(" abcdefghijklmnopqrstuvwxyz".ToCharArray()[int.Parse(Console.ReadLine())]);
        }
    }
}

Answer 31

Haskell, 38 bytes

main = putChar $ ('a':['a'..'z']) !! c

Where c is the number.

Answer 32

C#, 87

class P{static void Main(string[]a){System.Console.Write((char)(int.Parse(a[0])+64));}}

Complete program (not some (part of a) "function" expecting foo to be bar to work), accepts command line parameter: foo.exe 1 prints A, foo.exe 16 prints P

C#, 10

When I make the same assumptions as, for example, the 'code-golfers' that posted the VSCript Classic ASP, Python, Burlesque, Ruby, C solutions we can get it down to 10:

(char)x+64

"Assuming x is magically initialized / passed in / on the stack / whatever excuse" and the contest doesn't explicitly require me to print it, just "return" it (which most of the above solutions don't do, either).

Answer 33

q/k (7)

As partially applied composition:

10h$64+

Answer 34

Ruby 1.9 (10)

(x+64).chr

Reading from STDIN and printing to STDOUT:

$><<(gets.to_i+64).chr

Answer 35

Burlesque (6 characters)

Assuming the number is already on the stack:

64.+L[

(see here in action.).

Does the usual: Add 64, convert to character based on ASCII value.

If number is supplied as a string via stdin to stdout (10 characters):

ri64.+L[sh

Alternative version without using ASCII value conversion:

'@'Zr@\/!!

Answer 36

Python 2, 9 bytes

chr(64+x)

Or, reading from stdin and printing to stdout: 21

print chr(64+input())

Answer 37

GolfScript, 7

64+]''+

Commentary

64    # corresponds to '@' in ASCII (65 is 'A')
+]    # add the input to 64. ']' is used for ASCII.
''+   # the conversion process

1 corresponds to A

26 corresponds to Z

Answer 38

Javascript, 25 chars

String.fromCharCode(66-x);

PHP, 22 chars

echo chr(66-$argv[0])

Answer 39

PHP 442

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

function testInputForAlphabetCharacter($input){
    for($index = 0; $index < count($alphabet); $i = $i + 1){
        if($alphabet[$index] == $input){
            echo($index);
        }
    }
}


$input = $_GET['input'];
testInputForAlphabetCharacter($input);