도전

이 도전에서는 숫자를 입력으로 받아 알파벳의 해당 문자를 출력해야하며 그 반대도 마찬가지입니다. (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í

온라인으로 사용해보십시오!

순수한 배쉬, 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의 문자열 동작이 유용한 몇 가지 시간 중 하나입니다.

파이썬 2, 38 바이트

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

Ideone에서 테스트하십시오 .

파이썬 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 인코딩을 사용합니다 . 온라인으로 사용해보십시오! .

루비, 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경우 true 또는 false가 아니며 대신 선택됩니다.#LetterNumber

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

4

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

디

매스 매 티카에서, 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

하스켈, 54 바이트

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

사용 예 : map f ["1","26","A","Z"]-> ["A","Z","1","26"].

하스켈의 엄격한 타입 시스템은 여기서 진짜 고통입니다. 또한 모든 짧은 문자 <-> 같은 INT 기능 chr그리고 ord내가 손으로 할 필요가 있으므로, 가져 오기가 필요합니다. 문자-> int 경우, 예를 들어 String-> Char(via !!0)-> Integer(via fromEnum)-> String(via show) 로 변환해야합니다 .

C, 55 바이트

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

펄 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]첫 번째 변수입니다)

덕분에 :

@insertusername 여기 : 골프 8 바이트. 교체 is_numeric($i=$argv[1])로 0<($i=$argv[1]).This하기 때문에 작동합니다 (int)"randomLetter" == 0.

@manatwork : 1 바이트로 줄어 듭니다. 교체 0<와 함께 +. 이 경우에 발생하는 + 신호는 "Z"(또는 모든 문자)를 0으로 변환합니다. 이는 잘못된 결과입니다. 따라서 모든 문자는 항상 거짓이며 숫자는 항상 참입니다.

파이썬 2, 61 바이트

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

예, 파이썬 3으로 전환 할 수 있습니다. input

PowerShell v2 +, 42 바이트

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

입력 $n(정수 또는 명시 적 문자)을 취하고 의사 삼항을 사용하여 배열의 두 요소 중에서 선택합니다. 조건부 $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;+,@;-.@

질문에 당신이 a 1-26또는 a를받을 것이라고 말했기 때문에 A-Z이것은 26 또는 문자 AZ를 의미한다고 가정합니다. 대부분의 해석은 대체 코드를 입력하는 데 어려움을 겪기 때문에 &26과 26 또는 90과 'Z'와 같은 값 을 사용 하고 입력 하는 것이 더 쉽습니다 ~.

의사 코드

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

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

자바, 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

온라인으로 사용해보십시오! 숫자 입력.
온라인으로 사용해보십시오! 알파벳 입력.

파이썬 3, 49 48 53 50 바이트

어떻게 든 바이트 수가 잘못되었습니다 ._; 고마워요 dahuglenny

isalpha 보다 짧다 isnumeric

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

문자 또는 숫자가 될 수있는 문자열로 입력을받습니다.

자바, 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')은 첫 번째 함수를 호출하고 1을 재조정합니다 int. 호출 f(1)하면 두 번째 함수가 호출되고 char"A"가 반환 됩니다.

자바 스크립트 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