给定的字符串有多少台台呢？

如果满足以下条件，我们将一个非空字符串列表称为台面：

1. 每个列出的字符串都是非空的，并且仅使用第一个字符串中出现的字符。
2. 每个连续的字符串都比前一个字符串长一个字符。
3. 在列表中没有字符串是一个序列列表中的任何其他字符串。

术语“ mesa”来自这样的可视化（其中xs是各种字符）：

    xx..x
    xx..xx
    xx..xxx
    .
    .
    .
    xx..xxx..x 

注意：这是一个数学事实，只有有限的台面以给定的字符串开头。注意子序列与 子字符串之间的区别；例如，“安娜”是“香蕉”的子序列（但不是子字符串）。

挑战：

• 编写最短的程序，该程序采用任意的非空字母数字输入字符串，并输出以该字符串开头的台面数目。

输入（stdin）：

• 任何非空的字母数字字符串。

输出（标准输出）：

• 以输入字符串开头的台面数量。

得分：

• 获胜者是字节数最少的程序。

台面示例

只有一个台面以a：

a

只有一个台面以aa：

aa

许多台面开始于ab：

ab        ab        ab        ab        (and so on)
          baa       aaa       bbb
                    bbba      bbaa
                              baaaa
                              aaaaaa

GolfScript（106 103个字符）

n-..&1/:Z;]]0,\{.@+\{['']:E+.-2=,)E\{{`{+}+Z/}%}*{:x`{\1,+\{1$(@={\}*;}/0=!}+1$?!{.);[x]+\}*}/;}%.}do;,

当然，在心脏的某个位置，是否有一些代码来自字符串X是字符串Y的子序列？

Ruby，142个字符

m=->l{[*l[0].chars].repeated_permutation(l[-1].size+1).reduce(1){|s,x|l.any?{|y|x*''=~/#{[*y.chars]*'.*'}/}?s:s+m[l+[x*'']]}}
p m[[gets.chop]]

该算法是建设性的，即它为输入字符串构建所有可能的台面并对其进行计数。它使程序确实非常缓慢-但是，嘿，它是codegolf。

示例运行：

> a
1
> aa
1
> ab
43