与えられた文字列で始まるメサはいくつですか？

次の条件が当てはまる場合、文字列の空でないリストをメサと呼びましょう。

1. リストされた各文字列は空ではなく、最初の文字列に出現する文字のみを使用します。
2. 連続する各文字列は、前の文字列よりも正確に1文字長くなります。
3. リスト内の文字列は、リスト内の他の文字列のサブシーケンスではありません。

「メサ」という用語は、次のような視覚化からのものです（xsはさまざまなキャラクターになります）。

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

NB：有限数のメサだけが特定の文字列で始まることは数学的な事実です。サブシーケンスと サブストリングの違いに注意してください。たとえば、「anna」は「banana」のサブシーケンス（サブストリングではない）です。

チャレンジ：

• 任意の空でない英数字入力文字列を受け取り、その文字列で始まるメサの数を出力する最短のプログラムを作成します。

入力（stdin）：

• 空ではない英数字文字列。

出力（stdout）：

• 入力文字列で始まるメサの数。

得点：

• 勝者は、バイト数が最も少ないプログラムです。

メサの例

で始まるメサは1つだけaです。

a

で始まるメサは1つだけ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のサブシーケンスですか？

ルビー、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