blocks|key|1277190|text|Perl，120个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1277191|chomp($n=<>);@c=split(//,uc($n));$o=64;$b=0;$l=$#c;for($i=$l;$i>=0;$i--){$b%2B=((26**($l-$i))*(ord($c[$i])-$o));}print$b;|code-block|syntax|javascript|1277192|用法：|1277193|vivin@serenity+~/Projects/code/perl/excelc
$+echo+WTF+%7C+perl+e.pl
16074
vivin@serenity+~/Projects/code/perl/excelc
$+echo+ROFL+%7C+perl+e.pl
326676|1277194|我相信这里的一些Perl专家可以想出更小的东西。|1277195|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

<h1>Perl, 120 characters</h1>
<pre><code>chomp($n=&lt;&gt;);@c=split(//,uc($n));$o=64;$b=0;$l=$#c;for($i=$l;$i&gt;=0;$i--){$b+=((26**($l-$i))*(ord($c[$i])-$o));}print$b;
</code></pre>
<p>Usage:</p>
<pre><code>vivin@serenity ~/Projects/code/perl/excelc
$ echo WTF | perl e.pl
16074
vivin@serenity ~/Projects/code/perl/excelc
$ echo ROFL | perl e.pl
326676
</code></pre>
<p>I'm sure some of the Perl gurus here can come up with something way smaller.</p>


blocks|key|1277309|text|Perl，47个字符(来自标准输入)|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1277310|chop($l=<>);$_=A;$.%2B%2B,$_%2B%2Bwhile$_+ne$l;die$.,$/|code-block|syntax|javascript|1277311|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<h2>Perl, 47 characters (from stdin)</h2>

<pre><code>chop($l=&lt;&gt;);$_=A;$.++,$_++while$_ ne$l;die$.,$/
</code></pre>


blocks|key|1062597|text|Python|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1062598|import+string

letters+=+string.uppercase
colnum+=+lambda+s:+sum((letters.index(let)%2B1)*26**idx+for+idx,+let+in+enumerate(s[::-1]))

print+colnum('WTF')+
#+16074
print+colnum('ROFL')
#+326676|code-block|syntax|javascript|1062599|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<p>Python</p>

<pre><code>import string

letters = string.uppercase
colnum = lambda s: sum((letters.index(let)+1)*26**idx for idx, let in enumerate(s[::-1]))

print colnum('WTF') 
# 16074
print colnum('ROFL')
# 326676
</code></pre>


blocks|key|1277343|text|Perl，34个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1277344|map$\=26*$\-64%2Bord,pop=~/./g;print|code-block|syntax|javascript|1277345|感谢mobrule的几个建议。|1277346|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

<h2>Perl, 34 characters</h2>

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

<p>Thanks to mobrule for several suggestions.</p>


blocks|key|1062651|text|JavaScript+1.8:+66个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1062652|function+a(p)Array.reduce(p,function(t,d)t*26%2Bd.charCodeAt()-64,0)|code-block|syntax|javascript|1062653|Javascript+1.8:+72个字符|1062654|function+a(p)(t=0,p.replace(/./g,function(d)t=t*26%2Bd.charCodeAt()-64),t)|1062655|JavaScript+1.6:+83个字符|1062656|function+a(p){t=0;p.split("").map(function(d){t=t*26%2Bd.charCodeAt(0)-64});return+t}|1062657|JavaScript:+95个字符|1062658|function+a(p){r=0;t=1;l=p.length;for(i=0;i<l;i%2B%2B){r%2B=(p.charCodeAt(l-1-i)-64)*t;t*=26}return+r}|1062659|JavaScript:+105个字符|1062660|function+a(p,i){i=i%7C%7C0;l=p.length;return+p?(p.charCodeAt(l-1)-64)*Math.pow(26,i)%2Ba(p.slice(0,l-1),i%2B1):0}|1062661|用法：|1062662|a("A")++++++++//+1
a("B")++++++++//+2
a("AD")+++++++//+30
a("ABC")++++++//+731
a("WTF")++++++//+16074
a("ROFL")+++++//+326676|1062663|entityMap^0|0|0|0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|12|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|13|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|14|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|15|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|16|8|@]|9|@]|A|$]]|$1|M|3|N|5|D|7|17|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|18|8|@]|9|@]|A|$]]|$1|Q|3|R|5|D|7|19|8|@]|9|@]|A|$E|F]]|$1|S|3|T|5|6|7|1A|8|@]|9|@]|A|$]]|$1|U|3|V|5|D|7|1B|8|@]|9|@]|A|$E|F]]|$1|W|3|X|5|6|7|1C|8|@]|9|@]|A|$]]|$1|Y|3|Z|5|D|7|1D|8|@]|9|@]|A|$E|F]]|$1|10|3|-4|5|6|7|1E|8|@]|9|@]|A|$]]]|11|$]]

<h2>JavaScript 1.8: 66 characters</h2>

<pre><code>function a(p)Array.reduce(p,function(t,d)t*26+d.charCodeAt()-64,0)
</code></pre>

<h2>Javascript 1.8: 72 characters</h2>

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

<h2>JavaScript 1.6: 83 characters</h2>

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

<h2>JavaScript: 95 characters</h2>

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

<h2>JavaScript: 105 characters</h2>

<pre><code>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}
</code></pre>

<p>Usage:</p>

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


blocks|key|1277437|text|Java，164个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1277438|public+class+A{public+static+void+main(String[]+z){int+o=0,c=0;for(int+i=z[0].length()-1;i>=0;i--,c%2B%2B)o%2B=(z[0].charAt(i)-64)*Math.pow(26,c);System.out.println(o);}}|code-block|syntax|javascript|1277439|Java，177个字符|1277440|public+class+A
{
public+static+void+main(String[]+z)
{
++++int+m,o=0,c=0;
++++for(int+i=z[0].length()-1;i>=0;i--,c%2B%2B)
++++{
++++++++m=(int)Math.pow(26,c);
++++++++o%2B=(z[0].charAt(i)-64)*m;
++++}
++++System.out.println(o);
}
}|1277441|假定输入为大写(通过命令行参数)。这是一种显而易见的无技巧方法。|1277442|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

<h2>Java, 164 characters</h2>

<pre><code>public class A{public static void main(String[] z){int o=0,c=0;for(int i=z[0].length()-1;i&gt;=0;i--,c++)o+=(z[0].charAt(i)-64)*Math.pow(26,c);System.out.println(o);}}
</code></pre>

<h2>Java, 177 characters</h2>

<pre><code>public class A
{
public static void main(String[] z)
{
    int m,o=0,c=0;
    for(int i=z[0].length()-1;i&gt;=0;i--,c++)
    {
        m=(int)Math.pow(26,c);
        o+=(z[0].charAt(i)-64)*m;
    }
    System.out.println(o);
}
}
</code></pre>

<p>Assumes an uppercase input (via command line argument). The obvious approach with no tricks.</p>


blocks|key|1277484|text|C89，58个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1277485|s;main(c){while(c=getchar()%2B1)s=26*s%2Bc-65;printf("%25d",s);}|code-block|syntax|javascript|1277486|输入(stdin)必须仅包含A-Z，不允许其他字符(包括换行符)。|1277487|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

<h1>C89, 58 characters</h1>

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

<p>The input (stdin) must contain only A-Z, no other characters (including newlines) are allowed.</p>


blocks|key|1062933|text|JavaScript，93个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1062934|with(prompt())for(l=length,i=0,v=i--;%2B%2Bi<l;)v%2B=(charCodeAt(l-1-i)-64)*Math.pow(26,i);alert(v)|code-block|syntax|javascript|1062935|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<h2>JavaScript, 93 characters</h2>

<pre><code>with(prompt())for(l=length,i=0,v=i--;++i&lt;l;)v+=(charCodeAt(l-1-i)-64)*Math.pow(26,i);alert(v)
</code></pre>


blocks|key|1277712|text|Ruby+1.9，21个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1277713|p'A'.upto(gets).count|code-block|syntax|javascript|1277714|测试：|1277715|$+echo+-n+A%7C+ruby+x.rb
1
$+echo+-n+WTF%7C+ruby+x.rb
16074
$+echo+-n+ROFL%7C+ruby+x.rb
326676|1277716|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

<h1>Ruby 1.9, 21 characters</h1>

<pre><code>p'A'.upto(gets).count
</code></pre>

<p>Tests:</p>

<pre><code>$ echo -n A| ruby x.rb
1
$ echo -n WTF| ruby x.rb
16074
$ echo -n ROFL| ruby x.rb
326676
</code></pre>


blocks|key|1063023|text|在VBA中，我把它降到了98|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1063024|Sub+G(s)
Dim+i,+t
For+i+=+0+To+Len(s)+-+1
++++t+=+t+%2B+((Asc(Left(Right(s,+i+%2B+1),+1))+-+64))+*+((26+%5E+i))
Next
MsgBox+t
End+Sub|code-block|syntax|javascript|1063025|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<p>in VBA I got it down to 98</p>

<pre><code>Sub G(s)
Dim i, t
For i = 0 To Len(s) - 1
    t = t + ((Asc(Left(Right(s, i + 1), 1)) - 64)) * ((26 ^ i))
Next
MsgBox t
End Sub
</code></pre>


blocks|key|1277809|text|Powershell，42个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1277810|[char[]]$args[($s=0)]%7C%25{$s=$s*26%2B$_-64};$s|code-block|syntax|javascript|1277811|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<h2>Powershell, 42 chars</h2>
<pre><code>[char[]]$args[($s=0)]|%{$s=$s*26+$_-64};$s
</code></pre>


blocks|key|1063266|text|Excel，9个字符:)|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1063267|使用合适的工具来完成工作：|1063268|=COLUMN()|code-block|syntax|javascript|1063269|​|1063270|📷|atomic|offset|length|1063271|1063272|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/de55034263ca6bea2f510e9ff3f6e0ad.png|imageAlt^0|0|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|Z|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|10|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|11|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|12|8|@]|9|@]|A|$]]|$1|K|3|L|5|M|7|13|8|@]|9|@$N|14|O|15|1|16]]|A|$]]|$1|P|3|J|5|6|7|17|8|@]|9|@]|A|$]]|$1|Q|3|-4|5|6|7|18|8|@]|9|@]|A|$]]]|R|$S|$5|T|U|V|A|$W|X|Y|-4]]]]

<h2>Excel, 9 chars :)</h2>
<p>Use the right tool for the job:</p>
<pre><code>=COLUMN()
</code></pre>
<p><img src="https://i.stack.imgur.com/4zBrc.png" alt="=COLUMN()" /></p>


blocks|key|1063304|text|拼音，20个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1063305|p('A'..$*[0]).count|code-block|syntax|javascript|1063306|用法：|1063307|$+ruby+a.rb+ABC
731|1063308|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

<h1>Ruby, 20 characters</h1>
<pre><code>p('A'..$*[0]).count
</code></pre>
<p>Usage:</p>
<pre><code>$ ruby a.rb ABC
731
</code></pre>


blocks|key|1063339|text|Golfscript+-+16个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1063340|[0]\%2B{31&\26*%2B}*


$+echo+-n+WTF+%7C+./golfscript.rb+excel.gs
16074
$+echo+-n+ROFL+%7C+./golfscript.rb+excel.gs
326676|code-block|syntax|javascript|1063341|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<h2>Golfscript - 16 chars</h2>

<pre><code>[0]\+{31&amp;\26*+}*


$ echo -n WTF | ./golfscript.rb excel.gs
16074
$ echo -n ROFL | ./golfscript.rb excel.gs
326676
</code></pre>


blocks|key|1063374|text|Lua，61个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1063375|x=0+for+c+in(...):gfind(".")do+x=x*26-64%2Bc:byte()end+print(x)|code-block|syntax|javascript|1063376|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<h1>Lua, 61 characters</h1>
<pre><code>x=0 for c in(...):gfind(&quot;.&quot;)do x=x*26-64+c:byte()end print(x)
</code></pre>


blocks|key|1278067|text|C#，148个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278068|using+System;class+P{static+void+Main(string[]a){var+r=0d;int+j=0,i=a[0].
Length;while(i-->0)r%2B=(a[0][i]-64)*Math.Pow(26,j%2B%2B);Console.WriteLine(r);}}|code-block|syntax|javascript|1278069|未打高尔夫：|1278070|using+System;
class+P
{
++++static+void+Main(string[]+a)
++++{
++++++++var+r+=+0d;
++++++++int+j+=+0,+i+=+a[0].Length;
++++++++while+(i--+>+0)
++++++++++++r+%2B=+(a[0][i]+-+64)+*+Math.Pow(26,+j%2B%2B);

++++++++Console.WriteLine(r);
++++}
}|1278071|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

<h1>C#, 148 chars</h1>
<pre><code>using System;class P{static void Main(string[]a){var r=0d;int j=0,i=a[0].
Length;while(i--&gt;0)r+=(a[0][i]-64)*Math.Pow(26,j++);Console.WriteLine(r);}}
</code></pre>
<p>Ungolfed:</p>
<pre><code>using System;
class P
{
    static void Main(string[] a)
    {
        var r = 0d;
        int j = 0, i = a[0].Length;
        while (i-- &gt; 0)
            r += (a[0][i] - 64) * Math.Pow(26, j++);

        Console.WriteLine(r);
    }
}
</code></pre>


blocks|key|1278137|text|Brainf*ck，81个字符(无空格)|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278138|,[>>>[->>%2B%2B%2B%2B%2B[-<%2B%2B%2B%2B%2B>]<%2B<]>[-<%2B>]<<%2B%2B%2B%2B%2B%2B%2B%2B[<%2B%2B%2B%2B%2B%2B%2B%2B>-]<[<->-]<[>>>%2B<<<-],]>>>|code-block|syntax|javascript|1278139|解释|1278140|,[++//+get+character+input+into+p[0],+enter+loop+if+it+isn't+null+(0)
>>>[->>%2B%2B%2B%2B%2B[-<%2B%2B%2B%2B%2B>]<%2B<]+//+take+what's+in+p[3]+and+multiply+by+26,+storing+it+in+p[4]
>[-<%2B>]+//+copy+p[4]+back+to+p[3]
<<%2B%2B%2B%2B%2B%2B%2B%2B[<%2B%2B%2B%2B%2B%2B%2B%2B>-]<+//+store+64+in+p[1]
[<->-]<+//+subtract+p[1],+which+is+64,+from+the+input+char+to+get+it's+alphabetical+index
[>>>%2B<<<-]+//+add+p[0]+to+p[3]
,]+//+get+another+character+and+repeat
>>>+//+move+to+p[3],+where+our+final+result+is+stored|1278141|所以你会注意到我实际上并没有将数值转换成ascii字符串来打印。这很可能会毁了乐趣。但我把指针移动到结果所在的单元格上，这样至少对机器有用。|1278142|嘿你知道吗我打败了C#！|1278143|entityMap^0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|S|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|U|8|@]|9|@]|A|$]]|$1|M|3|N|5|6|7|V|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

<h1>Brainf*ck, 81 characters (no whitespace)</h1>

<pre><code>,[&gt;&gt;&gt;[-&gt;&gt;+++++[-&lt;+++++&gt;]&lt;+&lt;]&gt;[-&lt;+&gt;]&lt;&lt;++++++++[&lt;++++++++&gt;-]&lt;[&lt;-&gt;-]&lt;[&gt;&gt;&gt;+&lt;&lt;&lt;-],]&gt;&gt;&gt;
</code></pre>

<h2>Explanation</h2>

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

<p>So you'll notice I didn't actually convert the numerical value to an ascii string for printing. That would likely ruin the fun. But I did the favor of moving the pointer to the cell with the result, so at least it's useful to the machine.</p>

<p>Hey, what do you know, I beat C#!</p>


blocks|key|1278224|text|APL|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278225|13个字符|1278226|将值放入x|offset|length|style|CODE|1278227|x←'WTF'|code-block|syntax|javascript|1278228|然后用以下公式计算：|1278229|26⊥(⎕aV⍳x)-65|1278230|J打败我的唯一原因是因为括号。我在想，应该有一些方法来重新安排它，以避免需要它们，但这是漫长的一天。想法？|1278231|(嘿，你们这些使用30%2B字符解决方案的perl程序员太可爱了！)|1278232|entityMap^0|0|0|4|1|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|Z|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|10|8|@$F|11|G|12|H|I]]|9|@]|A|$]]|$1|J|3|K|5|L|7|13|8|@]|9|@]|A|$M|N]]|$1|O|3|P|5|6|7|14|8|@]|9|@]|A|$]]|$1|Q|3|R|5|L|7|15|8|@]|9|@]|A|$M|N]]|$1|S|3|T|5|6|7|16|8|@]|9|@]|A|$]]|$1|U|3|V|5|6|7|17|8|@]|9|@]|A|$]]|$1|W|3|-4|5|6|7|18|8|@]|9|@]|A|$]]]|X|$]]

<h1>APL</h1>

<p>13 characters</p>

<p>Put the value in <code>x</code>:</p>

<pre><code>x←'WTF'
</code></pre>

<p>then compute it with:</p>

<pre><code>26⊥(⎕aV⍳x)-65
</code></pre>

<p>The only reason J beat me is because of the parentheses.  I'm thinking there should be some way to rearrange it to avoid the need for them, but it's been a long day.  Ideas?</p>

<p>(Heh, you perl programmers with your 30+ character solutions are so cute!)</p>


blocks|key|1278256|text|PHP+-+73个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278257|$n=$argv[1];$s=$i=0;while($i<strlen($n))$s=$s*26%2Bord($n[$i%2B%2B])-64;echo$s;|code-block|syntax|javascript|1278258|用法：|1278259|php+-r+'$n=$argv[1];$s=$i=0;while($i<strlen($n))$s=$s*26%2Bord($n[$i%2B%2B])-64;echo$s;'+AA

>+27|1278260|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

<h2>PHP - 73 Chars</h2>

<pre><code>$n=$argv[1];$s=$i=0;while($i&lt;strlen($n))$s=$s*26+ord($n[$i++])-64;echo$s;
</code></pre>

<p>Usage:</p>

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

&gt; 27
</code></pre>


blocks|key|1278313|text|Common+Lisp，86个字符。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278314|(defun+z(s)(let((a+0))(map+nil(lambda(v)(setf+a(%2B(*+26+a)(digit-char-p+v+36)-9)))s)a))|code-block|syntax|javascript|1278315|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<p>Common Lisp, 86 characters.</p>

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


blocks|key|1278384|text|Clojure：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278385|user>+(reduce+#(%2B+(*+26+%251)+%252)+(map+#(-+(int+%25)+64)+"AD"))
30
user>+(reduce+#(%2B+(*+26+%251)+%252)+(map+#(-+(int+%25)+64)+"ROFL"))
326676|code-block|syntax|javascript|1278386|51个字符，加上输入字符串中的字符数。|1278387|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

<p>Clojure:</p>

<pre><code>user&gt; (reduce #(+ (* 26 %1) %2) (map #(- (int %) 64) "AD"))
30
user&gt; (reduce #(+ (* 26 %1) %2) (map #(- (int %) 64) "ROFL"))
326676
</code></pre>

<p>51 characters, plus the number of characters in the input string.</p>


blocks|key|1278417|text|Smalltalk，72|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278418|Smalltalk+arguments+first+reverse+inject:0into:[:o+:e%7Co*26%2Be+digitValue]|code-block|syntax|javascript|1278419|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<h1>Smalltalk, 72</h1>

<pre><code>Smalltalk arguments first reverse inject:0into:[:o :e|o*26+e digitValue]
</code></pre>


blocks|key|1278452|text|Python+(47个字符)|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278453|reduce(lambda+a,b:a*26%2Bord(b)-64,raw_input(),0)|code-block|syntax|javascript|1278454|仅适用于大写字母|1278455|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

<h2>Python (47 chars)</h2>

<pre><code>reduce(lambda a,b:a*26+ord(b)-64,raw_input(),0)
</code></pre>

<p>works only on uppercase letters</p>


blocks|key|1063856|text|通用Lisp，81个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1063857|(defun+y(s)(reduce(lambda(x+y)(%2B(*+26+x)(-(char-code+y)64)))s+:initial-value+0))|code-block|syntax|javascript|1063858|有趣的是，作为一个新用户，我可以发布我自己的答案，但不能评论别人的答案。哦，如果我做错了，很抱歉！|1063859|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

<p>Common Lisp, 81 characters</p>

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

<p>Funny that as a new user I can post my own answer but not comment on someone else's.  Oh well, apologies if I'm doing this wrong!</p>


blocks|key|1063909|text|C：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1063910|int+r=0;
while(*c)r=r*26%2B*c%2B%2B-64;|code-block|syntax|javascript|1063911|字符串存储在'c‘中，值存储在'r’中。|1063912|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

<p>C:</p>

<pre><code>int r=0;
while(*c)r=r*26+*c++-64;
</code></pre>

<p>String is stored in 'c', value is in 'r'.</p>


blocks|key|1063967|text|Real+VBA，216个无空格|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1063968|我在真正的高尔夫比赛中也失败了。|1063969|Private+Sub+CB1_Click()
Dim+C,+S
Range("A1").Select
Do
S+=+Len(ActiveCell)
x+=+0
C+=+0
Do
C+=+(Asc(Mid(ActiveCell,+(S+-+x),+1))+-+64)+*+(26+%5E+x)+%2B+C
x+=+x+%2B+1
Loop+Until+x+=+S
ActiveCell.Offset(0,+1)+=+C
ActiveCell.Offset(1,+0).Activate
Loop+Until+ActiveCell+=+""
End+Sub|code-block|syntax|javascript|1063970|使用列A作为输入，输出到列B，单击VB命令按钮即可运行。=D|1063971|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|N|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|O|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|P|8|@]|9|@]|A|$]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

<h2>Real VBA, 216 w/o spaces</h2>

<p>I fail at real golf too.</p>

<pre><code>Private Sub CB1_Click()
Dim C, S
Range("A1").Select
Do
S = Len(ActiveCell)
x = 0
C = 0
Do
C = (Asc(Mid(ActiveCell, (S - x), 1)) - 64) * (26 ^ x) + C
x = x + 1
Loop Until x = S
ActiveCell.Offset(0, 1) = C
ActiveCell.Offset(1, 0).Activate
Loop Until ActiveCell = ""
End Sub
</code></pre>

<p>Uses Column A for input, outputs to Column B, runs off a VB command button click. =D</p>


blocks|key|1064034|text|PHP，38个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1064035|for($a=A;%2B%2B$c,$a%2B%2B!=$argv[1];);echo$c;|code-block|syntax|javascript|1064036|用法，例如|1064037|php+-r+'for($a=A;%2B%2B$c,$a%2B%2B!=$argv[1];);echo$c;'+WTF|1064038|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

<h2>PHP, 38 chars</h2>

<pre><code>for($a=A;++$c,$a++!=$argv[1];);echo$c;
</code></pre>

<p>usage, e.g.</p>

<pre><code>php -r 'for($a=A;++$c,$a++!=$argv[1];);echo$c;' WTF
</code></pre>


blocks|key|1278702|text|因子:+47个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278703|反向26交换%5E交换64+-*映射索引和|1278704|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

<p>Factor: 47 characters</p>

<p>reverse [ 26 swap ^ swap 64 - * ] map-index sum</p>


blocks|key|1064131|text|Excel+-+99个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1064132|输入为数组公式-我不计算Excel添加{}|1064133|=SUM((CODE(MID(A1,ROW(INDIRECT("1:"+&+LEN(A1))),1))-64)*26%5E(LEN(A1)-ROW(INDIRECT("1:"+&+LEN(A1)))))|offset|length|style|CODE|1064134|entityMap^0|0|0|0|2R|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|M|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|N|8|@$F|O|G|P|H|I]]|9|@]|A|$]]|$1|J|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|K|$]]

<p>Excel - 99 characters</p>

<p>Enter as array formula - I am not counting Excel adding { }</p>

<p><code>=SUM((CODE(MID(A1,ROW(INDIRECT("1:" &amp; LEN(A1))),1))-64)*26^(LEN(A1)-ROW(INDIRECT("1:" &amp; LEN(A1)))))</code></p>


blocks|key|1278784|text|Python:+88个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278785|使用列表理解：|1278786|s=input()
print+sum([((26**(len(s)-i-1))*(ord(s[i])-64))+for+i+in+range(len(s))])|code-block|syntax|javascript|1278787|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|M|8|@]|9|@]|A|$G|H]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

<h2>Python: 88 characters</h2>

<p>using list comprehensions:</p>

<pre><code>s=input()
print sum([((26**(len(s)-i-1))*(ord(s[i])-64)) for i in range(len(s))])
</code></pre>


blocks|key|1278823|text|F#+(37个字符)：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278824|Seq.fold+(fun+n+c+->+int+c-64%2B26*n)+0|code-block|syntax|javascript|1278825|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

<p>F# (37 chars):</p>

<pre><code>Seq.fold (fun n c -&gt; int c-64+26*n) 0
</code></pre>


blocks|key|1278879|text|Excel+VBA，19个字符：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1278880|range("WTF").Column|1278881|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

<h2>Excel VBA, 19 characters:</h2>

<p>range("WTF").Column</p>


blocks|key|1064415|text|26个字符的Ruby解决方案|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1064416|p+("A"..$*[0]).to_a.size|offset|length|style|CODE|1064417|entityMap^0|0|0|O|0^^$0|@$1|2|3|4|5|6|7|J|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|K|8|@$D|L|E|M|F|G]]|9|@]|A|$]]|$1|H|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|I|$]]

<h2>Ruby solution in 26 chars</h2>

<p><code>p ("A"..$*[0]).to_a.size</code></p>


blocks|key|1064453|text|APL:+7个字符|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1064454|将所需字符串存储在变量w中：|1064455|w←'rofl'|code-block|syntax|javascript|1064456|假设字符为小写：|1064457|26⊥⎕a⍳w|1064458|假设字符为大写：|1064459|26⊥⎕A⍳w|1064460|大小写混合或不确定大小写(14个字符，但可以改进)：|1064461|26⊥⊃⌊/⎕a⎕A⍳¨⊂w|1064462|entityMap^0|0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|X|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|Y|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|Z|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|10|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|11|8|@]|9|@]|A|$]]|$1|O|3|P|5|F|7|12|8|@]|9|@]|A|$G|H]]|$1|Q|3|R|5|6|7|13|8|@]|9|@]|A|$]]|$1|S|3|T|5|F|7|14|8|@]|9|@]|A|$G|H]]|$1|U|3|-4|5|6|7|15|8|@]|9|@]|A|$]]]|V|$]]

<h1>APL: 7 characters</h1>

<p>Store desired string in variable w:</p>

<pre><code>w←'rofl'
</code></pre>

<p>Assuming characters are lowercase:</p>

<pre><code>26⊥⎕a⍳w
</code></pre>

<p>Assuming characters are uppercase:</p>

<pre><code>26⊥⎕A⍳w
</code></pre>

<p>Mixed case or unsure of case (14 chars, but could possibly be improved):</p>

<pre><code>26⊥⊃⌊/⎕a⎕A⍳¨⊂w
</code></pre>


<h2>The challenge</h2>
<p>The shortest code by character count that will output the numeric equivalent of an Excel column string.</p>
<p>For example, the <code>A</code> column is 1, <code>B</code> is 2, so on and so forth. Once you hit <code>Z</code>, the next column becomes <code>AA</code>, then <code>AB</code> and so on.</p>
<h2>Test cases:</h2>
<pre><code>A:    1
B:    2
AD:   30
ABC:  731
WTF:  16074
ROFL: 326676
</code></pre>
<p>Code count includes input/output (i.e full program).</p>


Code Golf: Numeric equivalent of an Excel column name

Python

Java

Perl

挑战按字符计数显示的最短代码，它将输出与Excel列字符串等效的数值。例如，A列是1，B是2，依此类推。点击Z后，下一列变为AA，然后是AB，依此类推。测试用例：A:    1B:    2AD:   30ABC:  731WTF:  16074ROFL: 326676代码计数包括输入/输出(即完整程序)。

问Code Golf: Excel列名的数字等效项
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Code Golf: Excel列名的数字等效项EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问Code Golf: Excel列名的数字等效项
EN