编码问题

问题描述：

编码工作常被运用于密文或压缩传输。这里我们用一种最简单的编码方式进行编码：把一些有规律的单词编成数字。字母表中共有26个小写字母{a,b,c….,z}。这些特殊的单词长度不超过6且字母按照升序排列。把所有这样的单词放在一起，按字典顺序排列，一个单词的编码就对应着它在字典中的位置，例如：a-1;b-2;z-26;ab-27;ac-28;你的任务就是对于所给的单词，求出它的编码.

解题思路：

单词按字典排序，就不会出现相同字母，所以每一个字母长度(L)中编码最小的字母就是abcdef......于是就可以先用Σ（26，i）（1<=i<=L-1）求最小编码。然后去在最小字母往后搜，直到搜到

原字母，编码数也就出来了。

代码实现

var st:ansistring;
    l,i,ans:longint;
    b:boolean;
function c(m,n:longint):int64;
var t:int64;
    i:longint;
begin
t:=1;
for i:=1 to n do t:=t*(m-i+1)div i;
exit(t);
end;

procedure dfs(x:longint;s:string);
var i,j:longint;
    c,ch:char;
begin
if x=l then
   begin
    inc(ans);
    if s=st then b:=true;
    exit;
    end;
if x=0 then ch:='a'
else ch:=succ(s[x]);
for c:=ch to 'z' do
 begin
 dfs(x+1,s+c);
 if b then exit;
 end;
end;

begin
ans:=0;
readln(st);
l:=length(st);
for i:=1 to l-1 do
 ans:=ans+c(26,i);
dfs(0,'');
write(ans);
end.

关于组合数的求法，因为阶乘会超出数据范围，所以借用一个技巧。

参考文献

http://www.cnblogs.com/whitecloth/archive/2012/03/16/2400584.html