Давши рядок, обчисліть номер стовпця, якому він відповідає

17

У Excel стовпці варіюються від A-Z, AA,AB,AZ,BA,..,BZтощо. Насправді кожне стоїть за цифрами, а скоріше кодується як рядки алфавіту.

У цьому виклику вам буде надано рядок алфавітів, і ви повинні обчислити стовпець, якому він відповідає.

Деякі тести:

'A' повертає 1 (це означає, що це перший стовпець)

'B' повертається 2

'Z' повертається 26

'AA' повертається 27

'AB' повертається 28

'AZ' повертає 52

'ZZ' повертає 702

'AAA' повертає 703

Можна припустити, що великі літери будуть надані лише.

Виграють найкоротші байти.

Удачі!

code-golf math

— K Спліт X
джерело

Отже ... основа 26 з алфавітом?

— Джо Кінг

1

Це не зовсім основа 26, тому що немає нуля.

— J.Doe

@ J.Doe Ах, певно, ти маєш рацію. Я не помітив, оскільки рішення про мене Zвсе одно автоматично трактували як 10

— Jo King

Зворотний виклик .

— користувач202729

6

@JoKing Bijective база .

— користувач202729

Відповіді:

9

Perl 6 , 17 байт

{:26[.ords X-64]}

Спробуйте в Інтернеті!

Блок анонімного коду, який віднімає 64 від кожного байтового значення і перетворює з бази 26 з Zпереповненням у наступний стовпець.

— Джо Кінг
джерело

7

Google Таблиці, 21 байт

(формула оцінює результат, приймає вхід з комірки A1)

=column(indirect(A1&2

— користувач202729
джерело

Якраз збираюся опублікувати трохи менш гольф-версію цього.

— Атако

1

Також у Google Таблицях є рішення, яке не покладається на вбудований COLUMN, перевірте це. (окрім того, мені погано, що рішення, на яке я докладаю більше зусиль, отримує менше уваги ... це типова проблема з голосуванням у будь-якому разі, особливо, коли виклик на HNQ.)

— user202729

6

R , 48 43 байти

-5 байт завдяки @Giuseppe, використовуючи ту ж логіку, але як програма, яка виключає ncharвиклик.

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

Спробуйте в Інтернеті!

— Дж. До
джерело

4

Java (JDK) , 39 байт

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

Спробуйте в Інтернеті!

— Олів’є Грегуар
джерело

Яка платформа java підтримує це?

— Сид Хамза Хассан

@SyedHamzaHassan Java 8 або більше.

— Олів'є Грегоар

3

Python 2 , 52 45 байт

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

Спробуйте в Інтернеті!

— Час Браун
джерело

3

05AB1E , 6 байт

Çžx-₂β

Спробуйте в Інтернеті!

— Окс
джерело

З цікавості, навіщо використовувати žxзамість просто 64?

— Кевін Кройсейсен

Я не знаю, це гарно виглядало?

— Оккс

3

Хаскелл , 38 34 31 байт

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

Спробуйте в Інтернеті!

— овс
джерело

3

PHP, 41 38 байт

-3 завдяки Джо Кінгу.

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

запустити як труба -nr

одинарний вихід, 34 байти:

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

вимагає PHP 7.1. зберегти у файл, запустити як pipe -nF.

— Тіт
джерело

@JoKing Так, це можна зробити: sandbox.onlinephpfunctions.com/code/…

— Ісмаель Мігель

@Rogem check codegolf.meta.stackexchange.com/questions/2424/…

— Тит

@Titus Добре, тоді

2

Желе , 7 байт

ØAiⱮḅ26

Спробуйте в Інтернеті!

— Ерік Аутгольфер
джерело

2

APL (NARS), 11 символів, 22 байти

{+/26⊥⎕A⍳⍵}

тест

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

— РосЛуП
джерело

2

C (gcc) , 46 , 43 байт

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

Спробуйте в Інтернеті!

Дегольф

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 байт

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

Спробуйте в Інтернеті!

— тш
джерело

1

.map()на 1 байт коротше . Використання Buffer() зберігає ще один байт .

— Арнольд

38 байт , розширюючись на пропозиції @ Arnauld.

— Кудлатий

1

Google Таблиці, 100 байт

(формула оцінює результат, приймає вхід з комірки A1)

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

Усі пробіли додаються лише для наочності.

Примітка .

Я не знаю, чи можливо видалити дублювання row(indirect("1:"&len(A1)).
Хоча Google Sheets має decimalфункцію, транслітерація займе багато байтів.

— користувач202729
джерело

1

APL + WIN, 12 байт

Походження індексу 1.

26⊥¯65+⎕av⍳⎕

Спробуйте в Інтернеті! Надано Dyalog Classic

Пояснення:

⎕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

— Грем
джерело

1

Java (JDK) , 92 байти

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

Спробуйте в Інтернеті!

Вихідні дані

А = 1

B = 2

Z = 26

AA = 27

AB = 28

AZ = 52

ZZ = 702

AAA = 703

— Сид Хамза Хасан
джерело

Я не є експертом у галузі гольфу на Java, але ви можете значно знизити цей процес, повернувшись замість друку, спростивши цикли, видаливши пробіли та позбувшись змінних pта nзмінних. 92 байти! .

— Джо Кінг

Чудовий .......

— Syed Hamza Hassan

1

Ви можете видалити, staticщоб набрати 7 байт. Ви також можете зробити цю функцію лямбда, щоб зберегти більше байтів. Я також думаю, що рекурсивна версія може зберегти байти. У будь-якому випадку, ось моє рішення на 39 байт .

— Олів'є Грегоар

Це чудово.

— Сієд Хамза Хассан

1

MATL , 11 байт

0w"26*@+64-

Спробуйте в Інтернеті!

— Джузеппе
джерело

1

Котлін , 36 байт

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

Спробуйте в Інтернеті!

— овс
джерело

1

Рубін , 18 байт

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

Спробуйте в Інтернеті!

— ГБ
джерело

1

J , 11 байт

26#.64|3&u:

Спробуйте в Інтернеті!

Як це працює

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

— Бубон
джерело

1

Japt `-h`, 10 байт

åÈ*26+InYc

Спробуй це

Або без прапора. Перший байт може бути видалений, якщо ми можемо взяти введення як масив символів.

¬®c aIÃì26

Спробуй це

Пояснення

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

— Кудлатий
джерело

0

Рубін `-nl` , 39 байт

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

Спробуйте в Інтернеті!

— Кирило Л.
джерело

0

APL (Dyalog Classic) , 11 байт

⎕A∘⍳⊥⍨26⍴⍨≢

Спробуйте в Інтернеті!

— Гален Іванов
джерело

0

J , 20 байт

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

Спробуйте в Інтернеті!

Пояснення:

 [:(#.~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)

— Гален Іванов
джерело

0

Вугілля деревне , 10 байт

Ｉ↨²⁶ＥＳ⊕⌕αι

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення:

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

— Ніл
джерело

0

Попереду , 22 байти

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

Спробуйте в Інтернеті!

— равлик_
джерело

0

MBASIC , 84 байти

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

Вихід:

? AZ
 52

? ZZ
 702

? AAA
 703

— wooshinyobject
джерело

0

машинний код x86, 19 байт

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

Збірка:

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

Спробуйте в Інтернеті!

— Логерн
джерело

0

Котлін , 29 байт

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

Спробуйте в Інтернеті!

Пояснив

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

— равлик_
джерело

Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.

Licensed under cc by-sa 3.0 with attribution required.