Belirli bir dizeyle kaç mesa başlar?

Aşağıdaki koşullar geçerliyse boş olmayan bir dize listesine mesa diyelim :

1. Listelenen her dize boş değildir ve yalnızca ilk dizede oluşan karakterleri kullanır.
2. Birbirini izleyen her dize, bir önceki dizeden tam olarak bir karakter daha uzundur.
3. Listede hiçbir dize olduğu altdizi listesindeki diğer herhangi dize.

"Mesa" terimi şu şekilde görselleştirmektir (burada xs çeşitli karakterler olacaktır):

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

Not: Verilen bir dizeyle sadece sonlu birçok mesanın başlaması matematiksel bir gerçektir. Arasında ayrım Not sekans genel substring ; örneğin, 'anna', 'muz'un bir alt dizisidir (ancak bir alt dize değildir).

Meydan okuma:

• Boş olmayan bir alfasayısal giriş dizesi alan ve bu dizeyle başlayan mesaların sayısını çıkaran en kısa programı yazın.

Giriş (stdin):

• Boş olmayan alfasayısal dizeler.

Çıktı (stdout):

• Girdi dizesiyle başlayan mesaların sayısı.

puanlama:

• Kazanan, en az bayt sayısına sahip programdır.

Örnek mesas

Sadece bir mesa ile başlar a:

a

Sadece bir mesa ile başlar aa:

aa

Birçok mesas şunlarla başlar ab:

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

GolfScript ( 106 103 karakter)

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

Kalbin bir yerinde, elbette, X dizesinden gelen bazı kod Y dizesinin bir dizisi midir?

Ruby, 142 karakter

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]]

Bu algoritma yapıcıdır, yani girdi dizesi için olası tüm mesaları oluşturur ve bunları sayar. Programı gerçekten, gerçekten yavaş yapıyor - ama hey, codegolf.

Örnek çalıştırmalar:

> a
1
> aa
1
> ab
43