Змагання

Найкоротший код за підрахунком символів, який видасть числовий еквівалент рядка стовпця Excel.

Наприклад, Aстовпець дорівнює 1, Bдорівнює 2, тощо тощо. Після натискання Zстає наступною колонкою AA, потім ABтощо.

Тестові кейси:

A:    1
B:    2
AD:   30
ABC:  731
WTF:  16074
ROFL: 326676

Кількість кодів включає введення / вихід (тобто повну програму).

Perl, 36 34 33 31 30 17 15 11 символів

$_=()=A..$_

Використання:

$ echo -n WTF | perl -ple '$_=()=A..$_'
16074

Зменшено до 17 за допомогою echo -n, щоб уникнути chopдзвінка.

Зменшено до 15 за допомогою використання слова замість друку.

Зменшено до 11, використовуючи -p замість сказати.

Пояснення: Aобчислюється в контексті рядка і A..$_створює список, починаючи з "А" і збільшуючи рядок до вхідного рядка. Perl інтерпретує ++оператор (і, отже, ..) для рядків в алфавітному контексті, наприклад, $_="AZ";$_++;printрезультати BA.

=()=(він же "goatse" оператор ) змушує вираз оцінюватися в контексті списку і повертає кількість елементів, повернутих цим виразом, тобто $scalar = () = <expr>відповідає @list = <expr>; $scalar = @list.

Excel, 9 символів :)

Використовуйте відповідний інструмент для роботи:

=COLUMN()

J , 17 12 10 символів

26#.64-~av

Приклад:

26#.64-~av  'WTF'
16074

Пояснення:

• J розбирає справа наліво.
• avповертає список індексів ascii кожного з символів у своєму аргументі, так, наприклад, av'ABC'повертає 65 66 67.
• Тоді ми віднімаємо 64 від кожного елемента цього списку з дієсловом 64-~.
• Потім ми перетворюємо список на базу 26, використовуючи #.дієслово.

Brainf * ck, 81 символ (без пробілів)

,[>>>[->>+++++[-<+++++>]<+<]>[-<+>]<<++++++++[<++++++++>-]<[<->-]<[>>>+<<<-],]>>>

Пояснення

,[  // get character input into p[0], enter loop if it isn't null (0)
>>>[->>+++++[-<+++++>]<+<] // take what's in p[3] and multiply by 26, storing it in p[4]
>[-<+>] // copy p[4] back to p[3]
<<++++++++[<++++++++>-]< // store 64 in p[1]
[<->-]< // subtract p[1], which is 64, from the input char to get it's alphabetical index
[>>>+<<<-] // add p[0] to p[3]
,] // get another character and repeat
>>> // move to p[3], where our final result is stored

Отже, ви помітите, що я насправді не перетворив числове значення у рядок ascii для друку. Це, мабуть, зіпсує задоволення. Але я зробив послугу, перемістивши вказівник на клітинку з результатом, так що принаймні це корисно для машини.

Гей, що ти знаєш, я побив С #!

Рубін 1.8.7, 53 50 46 44 24 17 символів

p ('A'..$_).count

Використання:

$ echo -n ROFL | рубін -н а.рб
326676
$ echo -n WTF | рубін -н а.рб
16074
$ echo -n A | рубін -н а.рб
1

APL

13 символів

Поставте значення в x:

x←'WTF'

потім обчислити його за допомогою:

26⊥(⎕aV⍳x)-65

Єдина причина, чому Дж. Мене побив - це дужки. Я думаю, що має бути якийсь спосіб переставити його, щоб уникнути потреби в них, але це був довгий день. Ідеї?

(Хе, ви, програмісти perl, з вашими 30+ рішеннями для персонажів, такі милі!)

Excel (не обдурюючи), 25 символів

Підтримує до XFD:

=COLUMN(INDIRECT(A1&"1"))

Встановлення:

2. Помістіть формулу в клітинку A2.

Використання:

1. Введіть рядок стовпця в комірку A1.
2. Прочитайте результат у комірці А2.

54 символи, плюс безліч інструкцій

Підтримує ROFL також:

(A2)  =MAX(B:B)
(B2)  =IFERROR(26*B1+CODE(MID(A$1,ROW()-1,1))-64,0)

Встановлення:

1. Очистити всю електронну таблицю.
2. Помістіть формулу (A2) у клітинку A2.
3. Помістіть формулу (B2) у клітинку B2.
4. Заповніть формулу (В2) якомога далі.

Використання:

4. Введіть рядок стовпця в комірку A1.
5. Прочитайте результат у комірці А2.

C # 156 146 118 Знак

using System.Linq;class P{static void Main(string[]a){System.Console.Write(
a[0].Aggregate(0,(t,c)=>(t+c-64)*26)/26);}}

Без гольфу:

using System.Linq;
class P
{
    static void Main(string[] a)
    {
        System.Console.Write(a[0]
            .Aggregate(0, (t, c) => (t + c - 64) * 26) / 26);
    }
}

Golfscript - 16 символів

[0]\+{31&\26*+}*


$ echo -n WTF | ./golfscript.rb excel.gs
16074
$ echo -n ROFL | ./golfscript.rb excel.gs
326676

Хаскелл, 50 51 56 символи

main=interact$show.foldl(\x->(26*x-64+).fromEnum)0

Використання:

~:166$ echo -n "ROFL" | ./a.out
326676
~:167$ echo -n "WTF" | ./a.out
16074

Python, 64 49 символів

s=0
for c in raw_input():s=26*s+ord(c)-64
print s

Ви також можете замінити raw_input()на, input()щоб зменшити кількість символів на 4, але для цього потрібно, щоб введення містило лапки навколо нього.

І ось підпрограма, яка включає 47 символів:

f=lambda x:len(x)and 26*f(x[:-1])+ord(x[-1])-64

k4 (kdb +), 11 символів

26/:1+.Q.A?

Пояснення:

• k4 розбирає ліворуч праворуч
• .Q.A визначається в межах k4 - це вектор "ABC...XYZ"
• ? є оператором find - індекс першого збігу для елементів у y arg в межах x arg
• +1 для зміщення індексу
• 26/: перетворити на базу 26

Одне застереження - це спрацює лише там, де перераховані перелічені типи:

  26/:1+.Q.A? "AD"
30

  26/:1+.Q.A? "WTF"
16074

але:

  26/:1+.Q.A? ,"A"
1

Powershell, 42 символи

[char[]]$args[($s=0)]|%{$s=$s*26+$_-64};$s

JavaScript 1.8: 66 символів

function a(p)Array.reduce(p,function(t,d)t*26+d.charCodeAt()-64,0)

Javascript 1.8: 72 символи

function a(p)(t=0,p.replace(/./g,function(d)t=t*26+d.charCodeAt()-64),t)

JavaScript 1.6: 83 символи

function a(p){t=0;p.split("").map(function(d){t=t*26+d.charCodeAt(0)-64});return t}

JavaScript: 95 символів

function a(p){r=0;t=1;l=p.length;for(i=0;i<l;i++){r+=(p.charCodeAt(l-1-i)-64)*t;t*=26}return r}

JavaScript: 105 символів

function a(p,i){i=i||0;l=p.length;return p?(p.charCodeAt(l-1)-64)*Math.pow(26,i)+a(p.slice(0,l-1),i+1):0}

Використання:

a("A")        // 1
a("B")        // 2
a("AD")       // 30
a("ABC")      // 731
a("WTF")      // 16074
a("ROFL")     // 326676

Scala, 30 символів

print((0/:args(0))(_*26+_-64))" 

Приклад:

C:\>scala -e "print((0/:args(0))(_*26+_-64))" AD
30

C89, 58 символів

s;main(c){while(c=getchar()+1)s=26*s+c-65;printf("%d",s);}

Введення (stdin) має містити лише AZ, інші символи (включаючи нові рядки) не допускаються.

Пояснення понять - Excelcification

Приємно. Я давно написав свою власну версію з трохи більше пояснень http://aboutdev.wordpress.com/2009/12/19/excelcification-brain-teaser-code/ . Хоча це не зовсім оптимізована версія!

FYI. Арифметика основи 26 називається гексавігезімальною, а максимальним стовпцем Excel є XFD, який перетворюється на 16383 (використовуючи 0 як першу комірку), що збігається рівно 2 ^ 14 комірок .

Хтось може здогадатися, чому це 2 ^ 14 ??

Common Lisp, 103 128 символів

(defun x(s)(reduce(lambda(x y)(+(* 26 x)y))(map 'vector(lambda(b)(-(char-code b)(char-code #\A)-1))s)))

C #, 117111 символів

Жоден конкурс у порівнянні з такими, як Perl, Ruby та APL, але покращення щодо інших відповідей на C # / Java, що подані до цього часу.

Тут використовується правило Горнера .

class C{static void Main(string[]a){int t=0;foreach(var c in a[0]){t=(t+c-64)*26;}System.Console.Write(t/26);}}

Perl, 34 символи

map$\=26*$\-64+ord,pop=~/./g;print

Дякую mobrule за кілька пропозицій.

C #, 148 символів

using System;class P{static void Main(string[]a){var r=0d;int j=0,i=a[0].
Length;while(i-->0)r+=(a[0][i]-64)*Math.Pow(26,j++);Console.WriteLine(r);}}

Без гольфу:

using System;
class P
{
    static void Main(string[] a)
    {
        var r = 0d;
        int j = 0, i = a[0].Length;
        while (i-- > 0)
            r += (a[0][i] - 64) * Math.Pow(26, j++);

        Console.WriteLine(r);
    }
}

Python - 63 символи

>>> f = лямбда z: зменшити (лямбда x, y: 26 * x + y, [ord (c) -64 для c in z])

>>> f ('ROFL')

326676

Clojure:

user> (reduce #(+ (* 26 %1) %2) (map #(- (int %) 64) "AD"))
30
user> (reduce #(+ (* 26 %1) %2) (map #(- (int %) 64) "ROFL"))
326676

51 символ плюс кількість символів у вхідному рядку.

C:

int r=0;
while(*c)r=r*26+*c++-64;

Рядок зберігається в 'c', значення в 'r'.

Рубін 1,9, 21 символ

p'A'.upto(gets).count

Тести:

$ echo -n A| ruby x.rb
1
$ echo -n WTF| ruby x.rb
16074
$ echo -n ROFL| ruby x.rb
326676

Common Lisp, 86 символів.

(defun z(s)(let((a 0))(map nil(lambda(v)(setf a(+(* 26 a)(digit-char-p v 36)-9)))s)a))

Java: 112 124 символи

class C{public static void main(String[]a){int r=0;for(int b:a[0].getBytes())r=26*r+b-64;System.out.print(r);}}

Common Lisp, 81 символ

(defun y(s)(reduce(lambda(x y)(+(* 26 x)(-(char-code y)64)))s :initial-value 0))

Забавно, що як новий користувач я можу розміщувати власну відповідь, але не коментувати чужу. Ну добре, вибачення, якщо я роблю це неправильно!

MATLAB: 24 символи

polyval(input('')-64,26)

Використання:

>> polyval(input('')-64,26)
(after pressing enter) 'WTF'

ans =

       16074

Примітка: Ви можете зменшити його до 16 символів, якщо заздалегідь зберегти рядок x, але я якось думав, що це обман:

>> x = 'WTF'

x =

WTF

>> polyval(x-64,26)

ans =

       16074

PHP - 73 символи

$n=$argv[1];$s=$i=0;while($i<strlen($n))$s=$s*26+ord($n[$i++])-64;echo$s;

Використання:

php -r '$n=$argv[1];$s=$i=0;while($i<strlen($n))$s=$s*26+ord($n[$i++])-64;echo$s;' AA

> 27