Yang ini berasal dari masalah kehidupan nyata. Kami menyelesaikannya, tentu saja, tetapi tetap terasa seperti itu bisa dilakukan lebih baik, bahwa itu solusi yang terlalu panjang dan bundaran. Namun tidak ada kolega saya yang bisa memikirkan cara penulisan yang lebih ringkas. Karenanya saya menyajikannya sebagai kode-golf.

Tujuannya adalah untuk mengkonversi bilangan bulat negatif ke string dengan cara yang sama seperti Excel menyajikan tajuk kolomnya. Demikian:

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

Itu harus bekerja setidaknya hingga 16.383, tetapi di luar juga dapat diterima (tidak ada poin bonus sekalipun). Saya sangat menantikan solusi C #, tetapi, sesuai tradisi kode-golf, semua bahasa pemrograman yang nyata diterima.

Perl 6 ,16 14 byte

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

Bekerja bahkan di luar XFD. Berkat daftar tak terbatas di Perl 6, ini tidak memakan waktu lama (dan setengah) untuk dieksekusi.

Cobalah online!

Formula Excel :), 36 karakter

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

Pemakaian:

Maaf, tidak bisa menahan ...

Perl, 17 karakter

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

The ..Operator melakukan hal yang sama dengan ajaib auto-increment, tapi tanpa perlu untuk variabel sementara dan loop. Kecuali strict subsdalam ruang lingkup, kata pengantar Adan XFDdiartikan sebagai string.

( Jawaban ini disarankan oleh pengguna anonim sebagai pengeditan untuk jawaban yang ada . Saya merasa layak untuk menjadi jawaban yang terpisah, dan menjadikannya sebagai jawaban. Karena tidak adil bagi saya untuk mendapatkan perwakilan dari itu, saya ' telah membuatnya menjadi Wiki Komunitas. )

C, 53 karakter

Ini seperti bermain golf dengan palu ...

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

Versi normal:

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

Dan penggunaannya seperti itu:

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

Haskell, 48

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

Kurang bermain golf:

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

Penjelasan

sequenceCombinator Haskell mengambil daftar tindakan dan melakukannya, mengembalikan hasil setiap tindakan dalam daftar. Sebagai contoh:

sequence [getChar, getChar, getChar]

setara dengan:

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

Di Haskell, tindakan diperlakukan seperti nilai, dan direkatkan menggunakan >>=(bind) dan returnprimitif. Jenis apa pun dapat menjadi "tindakan" jika menerapkan operator ini dengan memiliki instance Monad .

Kebetulan, tipe daftar memiliki instance monad. Sebagai contoh:

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

Ini sama dengan [(1,4),(1,5),(1,6),(2,4),(2,5),(2,6),(3,4),(3,5),(3,6)]. Perhatikan bagaimana pemahaman daftar sangat mirip:

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

Karena daftar adalah jenis "tindakan", kita dapat menggunakan sequencedaftar. Di atas dapat dinyatakan sebagai:

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

Jadi, sequenceberi kami kombinasi gratis!

Jadi, untuk membangun daftar:

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

Saya hanya perlu membuat daftar untuk lolos sequence

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

Kemudian gunakan concatMapuntuk keduanya berlaku sequenceuntuk daftar, dan menggabungkan daftar yang dihasilkan. Secara kebetulan, concatMapini adalah =<<fungsi untuk daftar, jadi daftar monad memungkinkan saya mencukur beberapa karakter di sini juga.

Perl, 26 karakter

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

Ruby, 35 karakter

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

Pemakaian:

puts e[16383]   # XFD

Catatan: Ada juga versi yang lebih pendek (30 karakter) menggunakan rekursi.

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

Tetapi menggunakan fungsi ini Anda mungkin harus menambah ukuran tumpukan untuk jumlah besar tergantung pada penerjemah ruby ​​Anda.

Groovy, 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) }

Python 45 51

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

Scala, 62 karakter

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

Pemakaian:

println(f(16383))

pengembalian:

XFD

Anda dapat mencoba ini di Cukup scala . Salin dan tempel fungsi dan gunakan f(some integer)untuk melihat hasilnya.

Excel VBA, 31 Bytes

Fungsi jendela langsung VBE anonim yang mengambil input dari sel [A1]dan output ke jendela langsung VBE

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

JavaScript (Node.js) , 50 byte

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

Cobalah online!

Melihat bahwa banyak orang mulai menjawab ini, saya juga menjawab.

Catatan :

Ini pada dasarnya adalah rip off dari jawaban @ kevinCruijssen di Jawa yang dipersingkat berkat JS ini.

PHP, 30 byte

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

Jalankan sebagai pipa dengan `-nr 'atau coba online .

VBA / VB6 / VBScript (non-Excel), 73 byte

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

Panggilan s(16383)akan kembali XFC.

Javascript, 147 byte

Saya punya masalah serupa. Ini adalah golf solusinya. Kolom Excel adalah 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))}

Diperluas, kecuali menggunakan 1-indeks:

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 byte (rekursif)

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

Cobalah online.

Penjelasan:

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 byte (berulang)

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

Cobalah online.

Penjelasan:

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

Keempat (gforth) , 59 byte

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

Cobalah online!

Penjelasan

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 byte

Jawaban rekursif seperti banyak jawaban sebelumnya.

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

Cobalah online!

Powershell, 68 byte

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

Versi rekursif alternatif, 68 byte:

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

Skrip uji:

$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"
}

Keluaran:

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

Catatan: Powershell tidak menyediakan divoperator.

Haskell, 48

Saya benar-benar berpikir bahwa saya akan dapat mengalahkan entri Haskell lainnya, tetapi sayangnya ...

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

Saya yakin mungkin untuk mencukur beberapa karakter dari ini, tapi saya belum kode di Haskell selama hampir satu tahun, jadi saya cukup berkarat.

Bukan apa yang Anda sebut elegan.

Jq 1,5 , 71 byte

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

Mengharapkan masukan dalam N. misalnya

def N:16383;

Diperluas:

[                       # 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

Cobalah online!

> <> , 29 byte

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

Cobalah online!

Ikon , 58 byte

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

Cobalah online!