チャレンジ

この課題では、数字を入力として使用し、アルファベットの対応する文字を出力する必要があります。逆も同様です。（1 <=> A、2 <=> B）など。

1 -> A
2 -> B
...
26 -> Z

A -> 1
B -> 2
...
Z -> 26

ルール

• これはcode-golfなので、バイト単位の最短コードが優先されます。
• 入力のみから大文字のいずれかからなるであろうAとZ、または整数1に26含め。
• 末尾の空白（スペースと改行）は許可されます。

実際には、7バイト

ú' +ûEí

オンラインでお試しください！

説明：

ú' +ûEí
ú' +     lowercase English alphabet, prepend space
    û    uppercase
     E   element (pushes the nth letter if input is an integer, leaves stack alone otherwise)
      í  index (pushes index of input if input is a string, leaves stack alone otherwise)

小文字が許容される場合、これは6バイトです。

ú' +Eí

オンラインでお試しください！

Pure Bash、51

残りの回答のほとんどは、何らかの条件を使用しています。これは、条件を完全に省き、代わりに適切に構築されたbash-brace-expansion配列にインデックスを付けるbase-36の数値として入力を扱います：

a=(_ {A..I} {1..26} {J..Z} {A..Z})
echo ${a[36#$1]}

イデオネ。

アーラン、26バイト

f([X])->X-64;f(X)->[X+64].

Erlangの文字列の振る舞いが役立つ数少ない時間の1つ。

Python 2、38バイト

lambda x:x>''and 64^ord(x)or chr(64^x)

Ideoneでテストします。

Python 3、43バイト

lambda x:x!=str(x)and chr(64|x)or ord(x)^64

このソリューションの興味深い点は、OR、ビットごとのOR |、論理OR or、ビットごとのXOR ^および論理XORのすべての感覚を取り入れていること!=です...

2sable、9 8バイト

コード：

.bAu¹kr,

説明：

.b        # Convert 1 -> A, 2 -> B, etc.
  A       # Push the alphabet.
   u      # Convert it to uppercase.
    ¹k    # Find the index of the letter in the alphabet.
      r   # Reverse the stack.
       ,  # Pop and print with a newline.

CP-1252エンコードを使用します。オンラインでお試しください！。

Ruby、47 39 + nフラグ= 40バイト 33 34 31バイト

匿名関数。@KarlNapfのPythonソリューションのような例外処理トリックを使用します。

@manatworkから-3バイト

オンラインで試す

->i{(64+i).chr rescue i.ord-64}

オリジナルのフルプログラムバージョン n40バイトフラグとSTDINからの読み取りを含む：

puts$_!~/\d/?$_.ord-64:(64+$_.to_i).chr

チェダー、 34 32バイト

@LeakyNunのおかげで2バイト節約

n->"%s"%n==n?n.ord()-64:@"(n+64)

文字列か数字かを確認する方法がもっと短いといいのですが。

オンラインでお試しください！または テストスイート

説明

n ->                // func with arg `n`
    "%s"%n==n ?     // if n is string... (see below)
       n.ord() - 64  // return code point - 64
    :               // else...
    @"(n+64)         // chr(n+64)

"%s"%n==n文字列かどうかを簡単な方法でチェックします。"%s"は文字列形式であり、%例えば"a %s c" % "b"でフォーマットできます"a b c"。%s文字列であることを指定します%s。数字が渡された場合、として残ります。

Mathematica 54 41バイト

LegionMammal978からの13バイトを節約する絶対に賢い提案があります。

If[#>0,FromLetterNumber,,LetterNumber]@#&

If[#>0,FromLetterNumber,,LetterNumber]入力するFromLetterNumberかLetterNumber、入力するかを決定するという唯一の目的を果たします。

#>0入力#が数値の場合に満たされ、その場合FromLetterNumberは選択されます。

ただし、文字の#>0場合#は真でも偽でもないため、LetterNumber代わりに選択されます。

If[#>0,FromLetterNumber,,LetterNumber]@#&["d"]

4

If[#>0,FromLetterNumber,,LetterNumber]@#&[4]

d

MathematicaではFromLetterNumber、LetterNumber他のアルファベットでも動作します。これには、あと数バイトしか必要ありません。

If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[4, "Greek"]
If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[4, "Russian"]
If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[4, "Romanian"]

δ
г
B

If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[δ, "Greek"]
If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[г, "Russian"]
If[# > 0, FromLetterNumber, , LetterNumber][#, #2] &[b, "Romanian"]

4
4
4

Haskell、54バイト

f s|s<"A"=[['@'..]!!read s]|1<2=show$fromEnum(s!!0)-64

使用例：map f ["1","26","A","Z"]->["A","Z","1","26"]。

Haskellの厳密な型システムは、ここで本当に苦痛です。さらに、すべての短い文字< - >のようなint型の関数chrとは、ord私は手でそれをしなければならないので、インポートする必要があります。文字-> intの場合、たとえば、変換する必要がありますString-> Char（経由!!0）-> Integer（経由fromEnum）-> String（経由show）。

C、55バイト

i;f(char*s){i=atol(s);printf(i?"%c":"%d",64^(i?i:*s));}

Perl 6、25バイト

{+$_??chr $_+64!!.ord-64}

説明：

# bare block lambda with implicit parameter of ｢$_｣
{
    +$_         # is the input numeric
  ??
    chr $_ + 64 # if it is add 64 and get the character
  !!
    $_.ord - 64 # otherwise get the ordinal and subtract 64
}

例：

say ('A'..'Z').map: {+$_??chr $_+64!!.ord-64}
# (1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26)

say (1..26).map: {+$_??chr $_+64!!.ord-64}
# (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)

C＃、32バイト

n=>(n^=64)>26?(object)(char)n:n;

にキャストしFunc<int, object>ます。

入力：char暗黙的に変換するintため、int（1-26）またはchar（ 'A'-Z'）で呼び出すことができます。

出力：a charまたはint。

PHP、49 41 40バイト

<?=+($i=$argv[1])?chr($i+64):ord($i)-64;

私はis_numeric右に良い選択肢があるとは思わない？

これはコマンドラインから実行されます（$argv[1]最初に指定された変数です）

おかげで：

@insertusernamehere：ゴルフされた8バイト。交換is_numeric($i=$argv[1])して0<($i=$argv[1])いるので.This作品(int)"randomLetter" == 0。

@manatwork：1バイト削減。交換してください0<と+。この場合に発生するのは、+シグナルが「Z」（または任意の文字）を0にキャストすることです。これにより、falseになります。そのため、どの文字も常に偽であり、数字は常に真です。

Python 2、61バイト

i=raw_input()
try:o=chr(int(i)+64)
except:o=ord(i)-64
print o

はい、私はPython 3に切り替えることができました input

PowerShell v2 +、42バイト

param($n)([char](64+$n),(+$n-64))[$n-ge65]

入力を$n（整数または明示的なcharとして）受け取り、疑似3進数を使用して配列の2つの要素から選択します。条件は$n-ge65（つまり、入力ASCII A以上）です。その場合、単純に入力をintとしてキャストし、減算し64ます。それ以外の場合、64入力整数に追加し、それをとしてキャストし[char]ます。いずれの場合も、結果はパイプラインに残り、印刷は暗黙的に行われます。

例

PS C:\Tools\Scripts\golfing> ([char[]](65..90)|%{.\alphabet-to-number.ps1 $_})-join','
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26

PS C:\Tools\Scripts\golfing> (1..26|%{.\alphabet-to-number.ps1 $_})-join','
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

Befunge-98 *、19バイト

&:39*\`'@\j;+,@;-.@

質問があなたが受け取ると言ったので、私はこれが数字26または文字AZを意味1-26するA-Zと仮定した。ほとんどの解釈は代替コードの入力に苦労する&ため、26の場合は26、「Z」の場合は90などの値を使用して入力する方が簡単です。~です。

擬似コード

int c = get stdin
push the value of 27
bool is_number =  27 > c
push the value of `@` (64)
if is_number == 1
   jump to adding 64 to c //putting it the ASCII range
   print as ASCII
   end
else
   jump to subtracting 64 from c //putting it in the numerical range
   print as number
   end

テストする（Windows） ここでください！

*これは技術的にUnefunge-98です。これは1次元しか使用しないためですが、その名前はなじみがないかもしれません。

Befunge 93、144の90 66 54 36 19バイト

これが許可されているかどうかは100％確かではありませんが、Aを65、Bを66などと入力することが許可されている場合、（[私の]便宜上）：

&:"@"`"@"\#. #-_+,@

それ以外の場合、36バイトで：

~:0\"A"-`#v_88*-.@
**~28*++,@>68*-52

（提案をしてくれたtngreeneに感謝します！）

~:0\567+*-`#v_88*-.>$28*+,@
52**\28*++,@>~:0`!#^_\68*-

（再配置により12バイトを節約してくれたSp3000に感謝します！）

~:0\567+*-`#v_88*-.>$82*+,@
            >~:0`!#^_\68*-52**\28*++,@


v                   >$28*+,@
             >~:0`!#^_\68*-52**\28*++,@
>~:0\567+*-`#^_88*-.@


v                    >$28*+,@
~           >11g~:0`!|
1                    >\68*-52**\28*++,@
1
p           
>011g567+*-`|
            >11g88*-.@

ゴルフをしていない：

v                       >$ 28* + , @
                 >~:0 `!|
                        >\ 68* - 52* * \ 28* + + , @
>~:0\ 5 67+ * - `|
                 >88* - . @

これは私の初めてのBefungeプログラムであり、これをさらにゴルフする必要性を感じています。どんな助けも大歓迎です。

ここで Befungeコードをテストできます。

Brainfuck、445キャラクター

ゴルフのコードよりも概念の証明。署名なし、ラップなしのBrainfuckが必要です。

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

コメント付き

,[>+>+<<-] Firstly Duplicate it across two buffers
>[<+>-] Move the second buffer back to the first buffer
>>++[->++++++<]>[-<<<+++++>>>] Establish 60 in the second buffer
<<<<
Compare Buffers 1 and 2
[->-<]
>
[ If there's still data in buffer 2
, Write the value in the units column to buffer two
<
++++
[->------------<] Subtract 12 from the units buffer
++++
[->>------------<<] Subtract 12 from the tens buffer
[-<<++++++++++>>] Multiply buffer three by ten into buffer 1
>
[-<+>] Add the units
>
[-<<++++++++++>>] Add the tens
>++ Add 65 to the buffer
[->++++++<]>+
[-<+++++>]
<- Actually we need 64 because A is 1
[-<<<+>>>] Add 64 to the first buffer
<<<
. Print the new letter
> Move to blank buffer
]
>
[ Otherwise we're a letter
[-<+<+>>] Copy it back over the first two buffers
>++ Write 64 to the buffer
[->++++++<]>+
[-<+++++>]
<-
[-<<->>] Subtract 64 from the letter
<<[->+>+<<]
>>>++++++++++< Copy pasted Division step x = current buffer y = 10 rest of the buffers are conveniently blank

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

Java、104 98 97 83 54 53 51 50 30バイト

x->(x^=64)>64?(char)x+"":x+"";

テストプログラム：

IntFunction<String> f = x -> (x ^= 64) > 64 ? (char) x + "" : x + "";
out.println(f.apply('A')); // 1
out.println(f.apply('Z')); // 26
out.println((f.apply(1))); // A
out.println((f.apply(26))); //Z

フーリエ、30バイト

I~F<64{1}{F+64a}F>64{1}{F-64o}

オンラインでお試しください！

R、73バイト

f=function(x){L=LETTERS;if(is.numeric(x)){i=L[(x)]}else{i=which(L==x)};i}

MATL、10バイト

6WZ~t42>?c

説明：

6W              % 2**6 = 64, but golfier looking
  Z~            % bit-wise XOR with input
    t42>?       % if result is greater than 42
         c      % convert it to a character 
                % else, don't

オンラインでお試しください！数値入力付き。
オンラインでお試しください！アルファベット入力付き。

Python 3、49 48 53 50バイト

どういうわけか、バイトカウントを間違えました; _; おかげダフグレニー

isalpha より短い isnumeric

lambda x:x.isalpha()and ord(x)-64or chr(int(x)+64)

入力を文字列として受け取ります。文字または数字の場合があります

Java、61バイト

int f(char c){return c^64;}char f(int i){return(char)(i^64);}

Ungolf'd：

int f(char c) {
    return c^64;
}

char f(int i) {
    return (char) (i^64);
}

呼び出しf('A')再同調、最初の関数呼び出しint1。呼び出しf(1)を返す、第二の機能呼び出し、char「A」を。

Javascript 86 77 66 60バイト

i=>typeof i<'s'?String.fromCharCode(i+64):i.charCodeAt(0)-64

• 矢印関数の使用に関するコメントの後に7バイトを保存しました
• @manatworkで示されているように、リターン/ブラケットを削除して、さらに11バイトを節約しました。
• @manatworkのおかげでさらに6バイト節約しました

ASM：10バイト

3C 40 77 04 2C 40 EB 02 04 40

説明：これは、求められていることを正確に行うプログラムのアセンブルされた表現です。いくつかのディレクティブが必要なため、完全に機能するわけではありませんが、アセンブリプログラムのコードセグメントに追加されれば動作するはずです。ALレジスタで入力を受信し、その文字がASCIIコード値から40hを引くと、数字だけが残ります（つまり、B = 42h、42h-40h = 2h）。入力が数値の場合、40hを追加することで逆の手順を実行します。結果はALレジスタに残ります。以下はアセンブリソースコードです

cmp al,40h
ja letter_to_number
sub al,40h
jmp continue
letter_to_number: add ax,40h
continue:

また、他のすべての答えをマシンコードに変換すると、私のものが最小になると確信しています。

Excel、33バイト

=IFERROR(CHAR(A1+64),CODE(A1)-64)

Brachylog、10バイト

;.L∧Ṇi₁pL∧

オンラインでお試しください！

このコアはわずか4バイトですが、そのバージョンのI / Oは正気より少し小さくなっています。

Japt、11 バイト

;BbU Ī´UgB

それを試してみてください

;BbU Ī´UgB     :Implicit input of integer or string U
;B              :Uppercase alphabet
  bU            :0-based index of U (-1 if not found)
     Ä          :Add 1
      ª         :Logical OR with
       ´U       :Decrement U
         gB     :Index into the uppercase alphabet