17

Excel'de, sütunlar A-Z, AA,AB,AZ,BA,..,BZvb. Arasında değişir . Aslında her biri sayıları temsil eder, ancak alfabe dizeleri olarak kodlanır.

Bu meydan okumada size bir dizi alfabe verilecek ve karşılık gelen sütunu hesaplamanız gerekir.

Bazı testler:

'A' 1 değerini döndürür (yani ilk sütun olduğu anlamına gelir)

'B' 2 değerini döndürür

'Z' 26 döndürür

'AA' 27 döndürür

'AB' 28 değerini döndürür

'AZ' 52 döndürür

'ZZ' 702 değerini döndürüyor

'AAA' 703 değerini döndürür

Büyük harflerin yalnızca verileceğini varsayabilirsiniz.

En kısa bayt kazanır.

İyi şanslar!

code-golf math

— K Bölünmüş X
kaynak

Yani ... 26 alfabesi ile mi?

— Jo King

1

Tamamen 26 değil çünkü sıfır yok.

— J.Doe

@ J.Doe Ah, sanırım haklısın. Z

— Jo King

Ters meydan okuma .

— user202729

6

@JoKing Bijective temel .

— user202729

9

Perl 6 , 17 bayt

{:26[.ords X-64]}

Çevrimiçi deneyin!

Her bir bayt değerinden 64 çıkartan ve taban 26'dan bir Zsonraki sütuna taşarak dönüştüren anonim kod bloğu .

— Jo King
kaynak

7

Google E-Tablolar, 21 bayt

(formül sonucu değerlendirir, A1 hücresinden girdi alır)

=column(indirect(A1&2

— user202729
kaynak

Bunun biraz daha az golf edilmiş bir versiyonunu yayınlamak üzere.

— ATaco

1

Ayrıca Google E-Tablolar'da yerleşik COLUMN'a dayanmayan bir çözümüm var, bir göz atın. (ayrıca, daha fazla çaba harcadığım çözümün daha az dikkat çekmesi beni kötü hissettiriyor ... oylama ile ilgili tipik bir sorun, özellikle de zorluk HNQ'da olduğunda.)

— user202729 22:18

6

R , 48 43 bayt

-Giuseppe sayesinde aynı mantığı kullanarak -5 bayt, ancak ncharçağrıyı ortadan kaldıran bir program olarak .

for(i in utf8ToInt(scan(,"")))F=F*26+i-64;F

Çevrimiçi deneyin!

— J.Doe
kaynak

4

Java (JDK) , 39 bayt

s->s.chars().reduce(0,(a,b)->a*26+b%32)

Çevrimiçi deneyin!

— Olivier Grégoire
kaynak

Hangi java platformu bunu destekliyor?

— Syed Hamza Hassan

@SyedHamzaHassan Java 8 veya daha fazlası.

— Olivier Grégoire

3

Python 2 , 52 45 bayt

t=0
for c in input():t=26*t+ord(c)%64
print t

Çevrimiçi deneyin!

— Chas Kahve
kaynak

3

05AB1E , 6 bayt

Çžx-₂β

Çevrimiçi deneyin!

— Okx
kaynak

Meraktan, neden žxsadece kullanmak yerine 64?

— Kevin Cruijssen

Bilmiyorum, sanırım daha hoş görünüyordu?

— Okx

3

Haskell , 38 34 31 bayt

foldl(\o->(o*26-64+).fromEnum)0

Çevrimiçi deneyin!

— ovs
kaynak

3

PHP, 41 38 bayt

-3 Jo King sayesinde.

for($c=A;$c!=$argn;$i++)$c++;echo$i+1;

boru olarak çalıştırmak -nr

tekli çıktı, 34 bayt:

1<?for($c=A;$c!=$argn;$c++)echo 1;

PHP 7.1 gerektirir. dosyaya kaydet, boru olarak çalıştır -nF.

— Titus
kaynak

@JoKing Evet, yapılabilir: sandbox.onlinephpfunctions.com/code/…

— Ismael Miguel

@Rogem kontrol kodugolf.meta.stackexchange.com/questions/2424/…

— Titus

@Titus Alright then

2

Jöle , 7 bayt

ØAiⱮḅ26

Çevrimiçi deneyin!

— Outgolfer Erik
kaynak

2

APL (NARS), 11 karakter, 22 bayt

{+/26⊥⎕A⍳⍵}

Ölçek

  f←{+/26⊥⎕A⍳⍵} 
  f¨'A' 'AA' 'AAA'
1 27 703 
  f¨'AB' 'ZZ' 'Z'
28 702 26

— RosLuP
kaynak

2

C (gcc) , 46 , 43 bayt

a;f(int*s){for(a=0;*s;)a=*s++%64+a*26;s=a;}

Çevrimiçi deneyin!

Degolf

a; f(int*s)
{  for(a=0;*s;) // Loop through s, which is a null-terminated string.
       a=*s++%64 + a*26; // Multiply accumulated value by 26, and add current char modulo 64 to it.
   s=a;} // Return the accumulated value.

1

JavaScript (Node.js) , 48 bayt

f=([h,...t],p=0)=>h?f(t,p*26+parseInt(h,36)-9):p

Çevrimiçi deneyin!

— TSH
kaynak

1

.map()bir 1 bayt kısa . Kullanmak Buffer() başka bir bayt kaydeder .

— Arnauld

@ Arnauld'un önerilerini genişleterek 38 bayt .

— Shaggy

1

Google E-Tablolar, 100 bayt

(formül sonucu değerlendirir, A1 hücresinden girdi alır)

=sum(arrayformula(
  (
    code(
      mid(A1,row(indirect("1:"&len(A1))),1)
    )-64
  )*26^row(indirect("1:"&len(A1)))/26

Tüm alanlar yalnızca netlik için eklenmiştir.

Not .

Çoğaltmasını kaldırmak mümkün mü bilmiyorum row(indirect("1:"&len(A1)).
Google E-Tablolar'ın bir decimalişlevi olmasına rağmen , harf çevirisi çok fazla bayt alır.

— user202729
kaynak

1

APL + WIN, 12 bayt

Endeks kaynağı 1.

26⊥¯65+⎕av⍳⎕

Çevrimiçi deneyin! Dyalog Classic'in izniyle

Açıklama:

⎕av⍳⎕ Prompts for input and gets Ascii integer value for each character

¯65+ subtracts 65 to give integers 1-26 for A-Z

26⊥ converts resulting vector from base 26 to single integer

— Graham
kaynak

1

Java (JDK) , 92 bayt

static int m(String v){int x=0;for(int i=0;i<v.length();i++)x=x*26+v.charAt(i)-64;return x;}

Çevrimiçi deneyin!

Çıktı

A = 1

B = 2

Z = 26

AA = 27

AB = 28

AZ = 52

ZZ = 702

Aaa = 703

— Syed Hamza Hassan
kaynak

Java golf uzmanı değilim, ancak baskı yerine geri dönerek, döngüler için basitleştirerek, boşluğu kaldırarak ve pve ndeğişkenlerden kurtularak bunu önemli ölçüde azaltabilirsiniz. 92 bayt! .

— Jo King

Harika .......

— Syed Hamza Hassan

1

static7 bayt kazanmak için kaldırabilirsiniz . Ayrıca bu fonksiyonu daha fazla bayt için lambda yapabilirsiniz. Ayrıca özyinelemeli sürümün bayt kaydedebileceğini düşünüyorum. Her durumda, benim 39 bayt çözümüm .

— Olivier Grégoire

Bu harika.

— Syed Hamza Hassan

1

MATL , 11 bayt

0w"26*@+64-

Çevrimiçi deneyin!

— Giuseppe
kaynak

1

Kotlin , 36 bayt

{it.fold(0){o,n->o*26+n.toInt()-64}}

Çevrimiçi deneyin!

— ovs
kaynak

1

Ruby , 18 bayt

->s{[*?A..s].size}

Çevrimiçi deneyin!

— GB
kaynak

1

J , 11 bayt

26#.64|3&u:

Çevrimiçi deneyin!

Nasıl çalışır

26#.64|3&u:  Monadic verb. Input: a string.
       3&u:  Convert each character to Unicode codepoint
    64|      Modulo 64; maps A -> 1, ... Z -> 26
26#.         Interpret as base-26 digits and convert to single integer

— bubbler
kaynak

1

Japt `-h`, 10 bayt

åÈ*26+InYc

Dene

Veya bayraksız. Girdiyi karakter dizisi olarak alabilirsek ilk bayt kaldırılabilir.

¬®c aIÃì26

Dene

açıklama

åÈ             :Cumulatively reduce by passing each character at Y through a function, with an initial total of 0
  *26          :  Multiply current total by 26
     -I        :  Subtract 64
       n       :   Subtracted from
        Yc     :    The codepoint of Y
               :Implicitly output the last element of the resulting array

— kaba tüylü
kaynak

0

Ruby `-nl` , 39 bayt

p$_.chars.reduce(0){|x,y|26*x+y.ord-64}

Çevrimiçi deneyin!

— Kirill L.
kaynak

0

APL (Dyalog Klasik) , 11 bayt

⎕A∘⍳⊥⍨26⍴⍨≢

Çevrimiçi deneyin!

— Galen Ivanov
kaynak

0

J , 20 bayt

[:(#.~26$~#)32|a.i.]

Çevrimiçi deneyin!

Açıklama:

 [:(#.~26$~#)32|a.i.] 
                  i.    - indices 
                    ]   - of the characters of the input
                a.      - in the alphabet
             32|        - mod 32
 [:(        )           - apply the following code to the above
         $~             - create a list of (left and right arguments exchanged) 
       26               - the number 26
           #            - repeated the length of the input times
    #.~                 - to base (26)

— Galen Ivanov
kaynak

0

Kömür , 10 bayt

Ｉ↨²⁶ＥＳ⊕⌕αι

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama:

     Ｓ      Input string
    Ｅ       Map over characters
         ι  Current character
        α   Uppercase alphabet
       ⌕    Find index
      ⊕     Increment
  ²⁶        Literal 26
 ↨          Base conversion
Ｉ           Cast to string
            Implicitly print

— Neil
kaynak

0

Önde 22 bayt

>jvi'@-\26l
^~>O@ ~+*<

Çevrimiçi deneyin!

— salyangoz_
kaynak

0

MBASIC , 84 bayt

1 INPUT S$:L=LEN(S$):FOR I=1 TO L:V=ASC(MID$(S$,I,1))-64:T=T+26^(L-I)*V:NEXT:PRINT T

Çıktı:

? AZ
 52

? ZZ
 702

? AAA
 703

— wooshinyobject
kaynak

0

x86 makine kodu, 19 bayt

00000000: 31c0 8b19 83e3 3f41 b21a f7e2 01d8 3831  1.....?A......81
00000010: 75f0 c3                                  u..

Montaj:

section .text
	global func
func:				;this function uses fastcall conventions
	xor eax, eax		;reset eax to 0
	loop:
		;ebx=*ecx%64
		mov ebx, [ecx]	;ecx is 1st arg to this func (in fastcall conventions)
		and ebx, 63	;because 64 is a pwr of 2,n%64=n&(64-1)

		;ecx++		get next char in str by incrementing ptr
		inc ecx
		
		;eax=eax*26
		mov dl, 26	;using an 8bit reg is less bytes
		mul edx
		
		;eax+=ebx //(eax=(*ecx%64)+(eax*26))
		add eax, ebx

		;if(*ecx!='\0')goto loop
		cmp byte [ecx], dh ;dh==0
		jne loop
	ret			;return value is in eax

Çevrimiçi deneyin!

— Logern
kaynak

0

Kotlin , 29 bayt

{it.fold(0){a,v->v-'@'+a*26}}

Çevrimiçi deneyin!

Açıklaması

val column: (String) -> Int = {  // String in, Int out
    it.fold(0) { a, v ->  // acc, value
        v - '@'  // distance of char from @ (A=1 etc.)
                + a * 26
    }
}

— salyangoz_
kaynak

Bir dize verildiğinde, karşılık geldiği sütun sayısını hesaplayın

Perl 6 , 17 bayt

Google E-Tablolar, 21 bayt

R , 48 43 bayt

Java (JDK) , 39 bayt

Python 2 , 52 45 bayt

05AB1E , 6 bayt

Haskell , 38 34 31 bayt

PHP, 41 38 bayt

Jöle , 7 bayt

APL (NARS), 11 karakter, 22 bayt

C (gcc) , 46 , 43 bayt

Degolf

JavaScript (Node.js) , 48 bayt

Google E-Tablolar, 100 bayt

APL + WIN, 12 bayt

Java (JDK) , 92 bayt

MATL , 11 bayt

Kotlin , 36 bayt

Ruby , 18 bayt

J , 11 bayt

Nasıl çalışır

Japt -h, 10 bayt

açıklama

Ruby -nl , 39 bayt

APL (Dyalog Klasik) , 11 bayt

J , 20 bayt

Açıklama:

Kömür , 10 bayt

Önde 22 bayt

MBASIC , 84 bayt

x86 makine kodu, 19 bayt

Kotlin , 29 bayt

Açıklaması

Japt `-h`, 10 bayt

Ruby `-nl` , 39 bayt