17

W programie Excel kolumny mają zakres od A-Z, AA,AB,AZ,BA,..,BZ i tak dalej. W rzeczywistości każdy z nich oznacza cyfry, ale są raczej kodowane jako ciągi alfabetu.

W tym wyzwaniu otrzymasz ciąg alfabetów i musisz obliczyć odpowiednią kolumnę.

Niektóre testy:

„A” zwraca 1 (co oznacza, że jest to pierwsza kolumna)

„B” zwraca 2

„Z” zwraca 26

„AA” zwraca 27

„AB” zwraca 28

„AZ” zwraca 52

„ZZ” zwraca 702

„AAA” zwraca 703

Możesz założyć, że wielkie litery będą podawane tylko.

Najkrótsze bajty wygrywają.

Powodzenia!

code-golf math

— K Split X
źródło

Więc ... baza 26 z alfabetem?

— Jo King,

1

To nie jest całkiem podstawowa 26, ponieważ nie ma zera.

— J.Doe,

@ J.Doe Ah, chyba masz rację. Nie zauważyłem, ponieważ moje rozwiązanie i tak automatycznie traktowane jest Zjako 10

— Jo King,

Odwrotne wyzwanie .

— user202729,

6

@JoKing Bijective base .

— user202729,

9

Perl 6 , 17 bajtów

{:26[.ords X-64]}

Wypróbuj online!

Anonimowy blok kodu, który odejmuje 64 od każdej wartości bajtu i konwertuje z podstawy 26 z Zprzepełnieniem do następnej kolumny.

— Jo King
źródło

7

Arkusze Google, 21 bajtów

(formuła ocenia wynik, pobiera dane z komórki A1)

=column(indirect(A1&2

— użytkownik202729
źródło

Właśnie zamierzam opublikować nieco mniej golfową wersję tego.

— ATaco,

1

Mam również rozwiązanie w Arkuszach Google, które nie polega na wbudowanym COLUMN, sprawdź to. (poza tym czuję się źle, że rozwiązanie, na które wkładam więcej wysiłku, traci mniej uwagi ... i tak jest to typowy problem z głosowaniem, szczególnie gdy wyzwanie jest w HNQ.)

— user202729

6

R , 48 43 bajtów

-5 bajtów dzięki @Giuseppe, wykorzystując tę samą logikę, ale jako program, który eliminuje ncharwywołanie.

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

Wypróbuj online!

— J.Doe
źródło

4

Java (JDK) , 39 bajtów

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

Wypróbuj online!

— Olivier Grégoire
źródło

Która platforma Java to obsługuje?

— Syed Hamza Hassan

@SyedHamzaHassan Java 8 lub więcej.

— Olivier Grégoire,

3

Python 2 , 52 45 bajtów

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

Wypróbuj online!

— Chas Brown
źródło

3

05AB1E , 6 bajtów

Çžx-₂β

Wypróbuj online!

— Okx
źródło

Z ciekawości, po co używać žxzamiast po prostu 64?

— Kevin Cruijssen

Nie wiem, chyba ładniej to wyglądało?

— Okx

3

Haskell , 38 34 31 bajtów

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

Wypróbuj online!

— ovs
źródło

3

PHP, 41 38 bajtów

-3 dzięki Jo King.

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

uruchomić jako potok z -nr

jednoargumentowy, 34 bajty:

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

wymaga PHP 7.1. zapisz do pliku, uruchom jako potok za pomocą -nF.

— Tytus
źródło

@JoKing Tak, można to zrobić: sandbox.onlinephpfunctions.com/code/…

— Ismael Miguel

@Rogem sprawdź codegolf.meta.stackexchange.com/questions/2424/…

— Titus

@Titus W porządku

2

Galaretka , 7 bajtów

ØAiⱮḅ26

Wypróbuj online!

— Erik the Outgolfer
źródło

2

APL (NARS), 11 znaków, 22 bajty

{+/26⊥⎕A⍳⍵}

test

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

— RosLuP
źródło

2

C (gcc) , 46 , 43 bajtów

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

Wypróbuj online!

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 bajtów

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

Wypróbuj online!

— tsh
źródło

1

.map()jest o 1 bajt krótszy . Użycie Buffer() zapisuje kolejny bajt .

— Arnauld,

38 bajtów , rozwijając sugestie @ Arnauld.

— Kudłaty,

1

Arkusze Google, 100 bajtów

(formuła ocenia wynik, pobiera dane z komórki A1)

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

Wszystkie spacje zostały dodane wyłącznie dla przejrzystości.

Uwaga .

Nie wiem, czy można usunąć duplikację row(indirect("1:"&len(A1)).
Chociaż Arkusze Google mają decimalfunkcję, transliteracja zajmuje dużo bajtów.

— użytkownik202729
źródło

1

APL + WIN, 12 bajtów

Pochodzenie indeksu 1.

26⊥¯65+⎕av⍳⎕

Wypróbuj online! Dzięki uprzejmości Dyalog Classic

Wyjaśnienie:

⎕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
źródło

1

Java (JDK) , 92 bajty

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;}

Wypróbuj online!

Wynik

A = 1

B = 2

Z = 26

AA = 27

AB = 28

AZ = 52

ZZ = 702

AAA = 703

— Syed Hamza Hassan
źródło

Nie jestem ekspertem w golfa Java, ale można golf to znacznie w dół powracając zamiast drukowania, upraszczając dla pętli, usuwając spacje i pozbycie się pi nzmiennych. 92 bajty! .

— Jo King,

Cudownie .......

— Syed Hamza Hassan

1

Możesz usunąć, staticaby zyskać 7 bajtów. Możesz także ustawić tę funkcję na lambda, aby oszczędzić więcej bajtów. Myślę również, że wersja rekurencyjna może oszczędzać bajty. W każdym razie oto moje 39 bajtowe rozwiązanie .

— Olivier Grégoire,

Wspaniale.

— Syed Hamza Hassan

1

MATL , 11 bajtów

0w"26*@+64-

Wypróbuj online!

— Giuseppe
źródło

1

Kotlin , 36 bajtów

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

Wypróbuj online!

— ovs
źródło

1

Rubinowy , 18 bajtów

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

Wypróbuj online!

— GB
źródło

1

J , 11 bajtów

26#.64|3&u:

Wypróbuj online!

Jak to działa

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
źródło

1

Japt `-h`, 10 bajtów

åÈ*26+InYc

Spróbuj

Lub bez flagi. Pierwszy bajt można usunąć, jeśli weźmiemy dane wejściowe jako tablicę znaków.

¬®c aIÃì26

Spróbuj

Wyjaśnienie

åÈ             :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

— Kudłaty
źródło

0

Rubinowy `-nl` , 39 bajtów

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

Wypróbuj online!

— Kirill L.
źródło

0

APL (Dyalog Classic) , 11 bajtów

⎕A∘⍳⊥⍨26⍴⍨≢

Wypróbuj online!

— Galen Iwanow
źródło

0

J , 20 bajtów

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

Wypróbuj online!

Wyjaśnienie:

 [:(#.~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 Iwanow
źródło

0

Węgiel drzewny , 10 bajtów

Ｉ↨²⁶ＥＳ⊕⌕αι

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

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

— Neil
źródło

0

Z przodu 22 bajty

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

Wypróbuj online!

— ślimak_
źródło

0

MBASIC , 84 bajty

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

Wynik:

? AZ
 52

? ZZ
 702

? AAA
 703

— wooshinyobject
źródło

0

kod maszynowy x86, 19 bajtów

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

Montaż:

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

Wypróbuj online!

— Logern
źródło

0

Kotlin , 29 bajtów

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

Wypróbuj online!

Wyjaśniono

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

— ślimak_
źródło

Biorąc pod uwagę ciąg, obliczyć numer kolumny, której odpowiada

Perl 6 , 17 bajtów

Arkusze Google, 21 bajtów

R , 48 43 bajtów

Java (JDK) , 39 bajtów

Python 2 , 52 45 bajtów

05AB1E , 6 bajtów

Haskell , 38 34 31 bajtów

PHP, 41 38 bajtów

Galaretka , 7 bajtów

APL (NARS), 11 znaków, 22 bajty

C (gcc) , 46 , 43 bajtów

Degolf

JavaScript (Node.js) , 48 bajtów

Arkusze Google, 100 bajtów

APL + WIN, 12 bajtów

Java (JDK) , 92 bajty

MATL , 11 bajtów

Kotlin , 36 bajtów

Rubinowy , 18 bajtów

J , 11 bajtów

Jak to działa

Japt -h, 10 bajtów

Wyjaśnienie

Rubinowy -nl , 39 bajtów

APL (Dyalog Classic) , 11 bajtów

J , 20 bajtów

Wyjaśnienie:

Węgiel drzewny , 10 bajtów

Z przodu 22 bajty

MBASIC , 84 bajty

kod maszynowy x86, 19 bajtów

Kotlin , 29 bajtów

Wyjaśniono

Japt `-h`, 10 bajtów

Rubinowy `-nl` , 39 bajtów