Các thách thức

Mã ngắn nhất tính theo số ký tự sẽ xuất ra số tương đương với chuỗi cột Excel.

Ví dụ, Acột là 1, Blà 2, v.v. Khi bạn nhấn Z, cột tiếp theo sẽ trở thành AA, sau đó AB, v.v.

Các trường hợp kiểm tra:

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

Số lượng mã bao gồm đầu vào / đầu ra (tức là chương trình đầy đủ).

Perl, 36 34 33 31 30 17 15 11 ký tự

$_=()=A..$_

Sử dụng:

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

Giảm xuống 17 bằng cách sử dụng echo -n để tránh chopcuộc gọi.

Giảm xuống còn 15 bằng cách sử dụng say thay vì in.

Giảm xuống 11 bằng cách sử dụng -p thay vì nói.

Giải thích: Ađược đánh giá trong ngữ cảnh chuỗi và A..$_xây dựng một danh sách bắt đầu từ "A" và chuỗi tăng dần lên đến chuỗi đầu vào. Perl diễn giải ++toán tử (và do đó ..) trên chuỗi trong ngữ cảnh bảng chữ cái, ví dụ như $_="AZ";$_++;printkết quả đầu ra BA.

=()=(hay còn gọi là toán tử "Goatse" ) buộc một biểu thức được đánh giá trong ngữ cảnh danh sách và trả về số phần tử được trả về bởi biểu thức đó, tức là $scalar = () = <expr>tương ứng với @list = <expr>; $scalar = @list.

Excel, 9 ký tự :)

Sử dụng các công cụ thích hợp cho công việc:

=COLUMN()

J , 17 12 10 ký tự

26#.64-~av

Thí dụ:

26#.64-~av  'WTF'
16074

Giải trình:

• J nói từ phải sang trái.
• avtrả về danh sách các chỉ mục ascii của mỗi ký tự trong đối số của nó, vì vậy, ví dụ av'ABC'trả về 65 66 67.
• Sau đó, chúng tôi trừ 64 từ mỗi phần tử của danh sách đó với động từ 64-~.
• Sau đó, chúng tôi chuyển đổi danh sách sang cơ số 26 bằng cách sử dụng #.động từ.

Brainf * ck, 81 ký tự (không có khoảng trắng)

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

Giải trình

,[  // 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

Vì vậy, bạn sẽ nhận thấy rằng tôi đã không thực sự chuyển đổi giá trị số thành chuỗi ascii để in. Điều đó có thể sẽ làm hỏng cuộc vui. Nhưng tôi đã ủng hộ việc di chuyển con trỏ đến ô có kết quả, vì vậy ít nhất nó cũng hữu ích cho máy.

Này, bạn biết gì không, tôi đánh bại C #!

Ruby 1.8.7, 53 50 46 44 24 17 ký tự

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

Sử dụng:

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

APL

13 ký tự

Đặt giá trị vào x:

x←'WTF'

sau đó tính toán nó với:

26⊥(⎕aV⍳x)-65

Lý do duy nhất khiến J đánh tôi là vì dấu ngoặc đơn. Tôi nghĩ nên có một số cách để sắp xếp lại nó để tránh sự cần thiết của chúng, nhưng đã lâu rồi. Ý tưởng?

(Heh, các bạn lập trình viên perl với hơn 30 giải pháp ký tự của mình thật dễ thương!)

Excel (không gian lận), 25 ký tự

Hỗ trợ lên đến XFD:

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

Cài đặt:

2. Đặt công thức vào ô A2.

Sử dụng:

1. Nhập chuỗi cột vào ô A1.
2. Đọc kết quả tại ô A2.

54 ký tự, cộng với rất nhiều hướng dẫn

Cũng hỗ trợ ROFL:

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

Cài đặt:

1. Xóa toàn bộ bảng tính.
2. Đặt công thức (A2) vào ô A2.
3. Đặt công thức (B2) vào ô B2.
4. Điền công thức (B2) xuống càng sâu càng tốt.

Sử dụng:

4. Nhập chuỗi cột vào ô A1.
5. Đọc kết quả tại ô A2.

C # 156 146 118 ký tự

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

Không thích:

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 ký tự

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


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

Haskell, 50 tuổi 51 56 ký tự

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

Sử dụng:

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

Python, 64 49 ký tự

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

Bạn cũng có thể thay thế raw_input()bằng input()để giảm số lượng ký tự đi 4, nhưng điều đó sau đó yêu cầu đầu vào phải chứa dấu ngoặc kép xung quanh nó.

Và đây là một chương trình con có 47 ký tự:

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

k4 (kdb +), 11 ký tự

26/:1+.Q.A?

Giải trình:

• k4 phân tích cú pháp bên trái bên phải
• .Q.A được xác định trong k4 - nó là vectơ "ABC...XYZ"
• ? là toán tử tìm - chỉ số của đối sánh đầu tiên cho các mục trong y arg trong x arg
• +1 để bù đắp chỉ số
• 26/: để chuyển đổi sang cơ số 26

Một lưu ý - điều này sẽ chỉ hoạt động khi các loại được liệt kê được chuyển vào:

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

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

nhưng:

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

Powershell, 42 ký tự

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

JavaScript 1.8: 66 ký tự

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

Javascript 1.8: 72 ký tự

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

JavaScript 1.6: 83 ký tự

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

JavaScript: 95 ký tự

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 ký tự

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}

Sử dụng:

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

Scala, 30 ký tự

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

Thí dụ:

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

C89, 58 ký tự

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

Đầu vào (stdin) chỉ được chứa AZ, không cho phép các ký tự khác (kể cả dòng mới).

Giải thích các khái niệm - Excelci hóa

Đẹp. Tôi đã viết phiên bản này của riêng mình với một chút giải thích cách đây khá lâu tại http://aboutdev.wordpress.com/2009/12/19/excelcification-brain-teaser-code/ . Mặc dù nó không hoàn toàn là một phiên bản tối ưu hóa!

FYI. Số học cơ số 26 được gọi là hệ thập lục phân và cột tối đa của Excel là XFD chuyển đổi thành 16383 (sử dụng 0 làm ô đầu tiên), trùng hợp chính xác là 2 ^ 14 ô .

Bất cứ ai có thể đoán tại sao nó là 2 ^ 14 ??

Lisp chung, 103 128 ký tự

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

C #, 117 111 ký tự

Không có cuộc thi nào so với Perl, Ruby và APL mà là một sự cải tiến đối với các câu trả lời C # / Java khác được đưa ra cho đến nay.

Điều này sử dụng quy tắc của Horner .

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 ký tự

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

Cảm ơn mobrule cho một số đề xuất.

C #, 148 ký tự

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

Không thích:

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 ký tự

>>> f = lambda z: Reduce (lambda x, y: 26 * x + y, [ord (c) -64 for 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 ký tự, cộng với số ký tự trong chuỗi đầu vào.

C:

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

Chuỗi được lưu trữ trong 'c', giá trị là 'r'.

Ruby 1.9, 21 ký tự

p'A'.upto(gets).count

Kiểm tra:

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

Lisp chung, 86 ký tự.

(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 ký tự

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

Lisp chung, 81 ký tự

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

Thật buồn cười là với tư cách là một người dùng mới, tôi có thể đăng câu trả lời của riêng mình nhưng không bình luận về người khác. Ồ, xin lỗi nếu tôi làm sai!

MATLAB: 24 ký tự

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

Sử dụng:

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

ans =

       16074

Lưu ý: Bạn có thể giảm nó xuống còn 16 ký tự nếu bạn lưu trữ trước chuỗi trong đó x, nhưng tôi nghĩ nó đang gian lận:

>> x = 'WTF'

x =

WTF

>> polyval(x-64,26)

ans =

       16074

PHP - 73 ký tự

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

Sử dụng:

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

> 27