이것은 실제 문제에서 비롯된 것입니다. 물론 우리는 그것을 해결했지만 너무 길고 로터리 솔루션이라는 것을 더 잘할 수 있다고 생각합니다. 그러나 내 동료 중 누구도 그것을 간결하게 작성하는 방법을 생각할 수 없습니다. 따라서 코드 골프로 표시합니다.

Excel에서 열 머리글을 표시하는 것과 같은 방식으로 음이 아닌 정수를 문자열로 변환하는 것이 목표입니다. 그러므로:

0 -> A
1 -> B
...
25 -> Z
26 -> AA
27 -> AB
...
51 -> AZ
52 -> BA
...
16,383 -> XFD

적어도 16,383까지 작동 해야하지만 그 이상도 허용됩니다 (보너스 포인트는 없음). C # 솔루션을 기대하고 있지만 코드 골프의 전통에 따라 실제 프로그래밍 언어를 환영합니다.

펄 6 ,16 14 바이트

{("A"..*)[$_]}

XFD를 넘어서도 작동합니다. Perl 6의 무한 목록 덕분에 실행 시간이 오래 걸리지 않습니다.

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

엑셀 공식 :), 36 자

=SUBSTITUTE(ADDRESS(1,A1,4),"1","")

용법:

죄송합니다, 저항 할 수 없습니다 ...

펄, 17 자

say[A..XFD]->[<>]

..운영자는 마법의 자동 증가와 같은 일을하지만, 임시 변수 및 루프에 대한 필요없이. 하지 않는 strict subs범위에의 barewords A와는 XFD문자열로 해석됩니다.

( 이 답변은 익명의 사용자 가 기존 답변을 수정 한 것으로 제안 되었습니다 . 별도의 답변이 필요하다고 생각하고 답변 을 받았습니다 . 답변 을 받는 것이 공정하지 않기 때문에 저는 ' 커뮤니티 위키로 만들었습니다. )

C, 53 자

망치로 골프를 치는 것과 같습니다.

char b[4],*p=b+3;f(i){i<0||(*--p=i%26+65,f(i/26-1));}

일반 버전 :

char b[4];
char *p = b+3;
void f(int i) {
    if (i >= 0) {
        --p;
        *p = i%26 + 65;
        f(i/26-1);
    }
}

사용법은 다음과 같습니다.

int main(int argc, char *argv[])
{
    f(atoi(argv[1]));
    printf("%s\n", p);
    return 0;
}

하스켈, 48

f=(!!)(sequence=<<(tail$iterate(['A'..'Z']:)[]))

덜 골프 :

f n = (concatMap sequence $ tail $ iterate (['A'..'Z'] :) []) !! n

설명

Haskell의 결합기 sequence는 작업 목록을 가져 와서 수행하여 각 작업의 결과를 목록으로 반환합니다. 예를 들면 다음과 같습니다.

sequence [getChar, getChar, getChar]

다음과 같습니다.

do
    a <- getChar
    b <- getChar
    c <- getChar
    return [a,b,c]

Haskell에서 액션은 값처럼 취급되며 >>=(바인드)와 return프리미티브를 사용하여 서로 붙어 있습니다 . Monad 인스턴스 를 사용하여 이러한 연산자를 구현하는 경우 모든 유형은 "조치"가 될 수 있습니다 .

또한 목록 유형에는 모나드 인스턴스가 있습니다. 예를 들면 다음과 같습니다.

do
    a <- [1,2,3]
    b <- [4,5,6]
    return (a,b)

이것은 같습니다 [(1,4),(1,5),(1,6),(2,4),(2,5),(2,6),(3,4),(3,5),(3,6)]. 목록 이해가 놀랍도록 비슷한 점에 주목하십시오.

[(a,b) | a <- [1,2,3], b <- [4,5,6]]

리스트는 일종의 "조치"이기 때문에리스트 sequence와 함께 사용할 수 있습니다 . 위와 같이 표현할 수 있습니다 :

sequence [[1,2,3],[4,5,6]]

따라서, sequence우리에게 무료로 조합을 제공합니다!

따라서 목록을 작성하려면 다음을 수행하십시오.

["A","B"..."Z","AA","AB"]

전달할 목록을 작성하면됩니다. sequence

[['A'..'Z'],['A'..'Z','A'..'Z'],...]

그런 다음 목록 concatMap에 모두 적용 sequence하고 결과 목록을 연결하는 데 사용하십시오. 우연히도 목록에 concatMap대한 =<<기능이므로 목록 모나드를 사용하면 여기에서 몇 문자를 면도 할 수 있습니다.

펄, 26 자

$x='A';map$x++,1..<>;say$x

루비, 35 자

e=->n{a=?A;n.times{a.next!};a}

용법:

puts e[16383]   # XFD

참고 : 재귀를 사용하는 더 짧은 버전 (30 자)도 있습니다.

    e=->n{n<1??A:e[n-1].next}

그러나이 함수를 사용하면 루비 인터프리터에 따라 많은 수의 스택 크기를 늘려야 할 수 있습니다.

그루비, 47

m={it<0?'':m(((int)it/26)-1)+('A'..'Z')[it%26]}

[0:'A',1:'B',25:'Z',
        26:'AA',
        27:'AB',
        51:'AZ',
        52:'BA',
        16383:'XFD'].collect {k,v-> assert v == m(k);m(k) }

파이썬 45 51

f=lambda i:i>=0and f(i/26-1)+chr(65+i%26)or''

스칼라, 62 자

def f(i:Int):String=if(i<0)""else f((i/26)-1)+(i%26+65).toChar

용법:

println(f(16383))

보고:

XFD

Simply scala 에서 시도해 볼 수 있습니다 . 함수를 복사하여 붙여넣고 f(some integer)결과를 보는 데 사용 하십시오.

Excel VBA, 31 바이트

셀에서 입력 [A1]을 받고 VBE 즉시 창으로 출력하는 익명 VBE 즉시 창 기능

?Replace([Address(1,A1,4)],1,"")

자바 스크립트 (Node.js) , 50 바이트

f=_=>_<0?'':f(_/26-1)+String.fromCharCode(_%26+65)

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

많은 사람들이 이것에 대답하기 시작한 것을보고 나는 또한 대답했다.

노트 :

이것은 기본적으로 JS 덕분에 줄어든 Java의 @kevinCruijssen의 답변에서 벗어난 것입니다.

PHP, 30 바이트

for($c=A;$argn--;)$c++;echo$c;

`-nr '을 사용하여 파이프로 실행하거나 온라인으로 시도하십시오 .

VBA / VB6 / VBScript (비 엑셀), 73 바이트

Function s(i):While i:i=i-1:s=Chr(i Mod 26+65)&s:i=i\26:Wend:End Function

전화 s(16383)가 돌아옵니다 XFC.

자바 스크립트, 147 바이트

나는 비슷한 문제가 있었다. 이것이 솔루션의 골프입니다. 엑셀 열은 bijective base-26 입니다.

n=>{f=Math.floor;m=Math.max;x=m(0,f((n-24)/676));y=m(0,f(n/26-x*26));return String.fromCharCode(...[x,y,n+1-x*676-y*26].filter(d=>d).map(d=>d+64))}

1 개의 지표를 사용하지 않고 확장 :

function getColName(colNum){ // example: 16384 => "XFD"
    let mostSig = Math.max(0, Math.floor((colNum - 26 - 1)/26**2));
    let midSig = Math.max(0, Math.floor((colNum - mostSig*26**2 - 1)/26));
    let leastSig = colNum - mostSig*26**2 - midSig*26;

    return String.fromCharCode(...[mostSig,midSig,leastSig].filter(d=>d).map(d=>d+64));
}

Java, 57 바이트 (재귀)

String f(int n){return n<0?"":f(n/26-1)+(char)(n%26+65);}

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

설명:

String f(int n){        // Recursive method with integer parameter and String return-type
  return n<0?           //  If `n` is negative:
    ""                  //   Return an empty String
   :                    //  Else:
    f(n/26-1)           //   Recursive call with `n` integer-divided by 26, minus 1
    +(char)(n%26+65);}  //   And append `n%26+65` as character

Java 10, 62 바이트 (반복)

n->{var r="";for(;n>=0;n=n/26-1)r=(char)(n%26+65)+r;return r;}

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

설명:

n->{                      // Method with integer parameter and String return-type
  var r="";               //  Result-String, starting empty
  for(;n>=0;              //  Loop as long as `n` is not negative
      n=n/26-1)           //    After every iteration: divide `n` by 26, and subtract 1
    r=(char)(n%26+65)+r;  //   Prepend `n%26+65` as character to the result-String
  return r;}              //  Return the result-String

넷째 (gforth) , 59 바이트

: f dup 0< if drop else 26 /mod 1- recurse 65 + emit then ;

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

설명

dup 0<            \ duplicate the top of the stack and check if negative
if drop           \ if negative, drop the top of the stack
else              \ otherwise
   26 /mod        \ divide by 26 and get the quotient and remainder
   1- recurse     \ subtract one from quotient and recurse on result
   65 + emit      \ add 65 to remainder and output ascii char
then              \ exit if statement

R , 65 바이트

많은 이전 답변과 마찬가지로 재귀 답변.

function(n,u=LETTERS[n%%26+1])"if"(n<=25,u,paste0(g(n%/%26-1),u))

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

파워 쉘, 68 바이트

param($n)for(;$n-ge0;$n=($n-$r)/26-1){$s=[char](($r=$n%26)+65)+$s}$s

대체 재귀 버전, 68 바이트 :

filter g{if($_-ge0){(($_-($r=$_%26))/26-1|f)+[char]($r+65)}else{''}}

테스트 스크립트 :

$f = {

param($n)for(;$n-ge0;$n=($n-$r)/26-1){$s=[char](($r=$n%26)+65)+$s}$s

}

filter g{if($_-ge0){(($_-($r=$_%26))/26-1|f)+[char]($r+65)}else{''}}


@(
    ,(0 , "A")
    ,(1 , "B")
    ,(25 , "Z")
    ,(26 , "AA")
    ,(27 , "AB")
    ,(51 , "AZ")
    ,(52 , "BA")
    ,(676 , "ZA")
    ,(702 , "AAA")
    ,(16383 , "XFD")
) | % {
    $n, $expected = $_
    $result = &$f $n
    # $result = $n|g      # Alternative
    "$($result-eq$expected): $result"
}

산출:

True: A
True: B
True: Z
True: AA
True: AB
True: AZ
True: BA
True: ZA
True: AAA
True: XFD

참고 : Powershell은 div운영자를 제공하지 않습니다 .

하스켈, 48

나는 다른 하스켈 항목을 이길 수 있다고 생각했지만 아아 ...

f(-1)=""
f n=f(div n 26-1)++[toEnum$mod n 26+65]

나는이 문자에서 몇 가지 문자를 면도 할 수 있다고 확신하지만 Haskell에서 거의 1 년 동안 코딩하지 않았으므로 매우 녹슬 었습니다.

우아하다고 부르는 것이 아닙니다.

Jq 1.5 , 71 바이트

[range(1;4)as$l|[65+range(26)]|implode/""|combinations($l)]|map(add)[N]

의 입력이 필요 N합니다. 예 :

def N:16383;

넓히는:

[                       # create array with
   range(1;4) as $l     #  for each length 1,2,3
 | [65+range(26)]       #   list of ordinal values A-Z
 | implode/""           #   converted to list of strings ["A", "B", ...]
 | combinations($l)     #   generate combinations of length $l
]
| map(add)[N]           # return specified element as a string

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

> <> , 29 바이트

!v:2d*%:"A"+@-2d*,1-:0(?!
$<o

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

아이콘 , 58 바이트

procedure f(n);return(n<0&"")|f(n/26-1)||char(65+n%26);end

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