Có bao nhiêu mesas bắt đầu với một chuỗi nhất định?

Chúng ta hãy gọi một danh sách các chuỗi không trống là mesa nếu các điều kiện sau giữ:

1. Mỗi chuỗi được liệt kê là không trống và chỉ sử dụng các ký tự xảy ra trong chuỗi đầu tiên.
2. Mỗi chuỗi liên tiếp dài hơn một ký tự so với chuỗi trước.
3. Không có chuỗi nào trong danh sách là chuỗi con của bất kỳ chuỗi nào khác trong danh sách.

Thuật ngữ "mesa" là từ hình dung như thế này (trong đó xs là các ký tự khác nhau):

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

Lưu ý: Đó là một thực tế toán học chỉ có nhiều mesas mới bắt đầu bằng một chuỗi nhất định. Lưu ý sự khác biệt giữa dãy vs chuỗi ; ví dụ: 'anna' là một chuỗi con (nhưng không phải là chuỗi con) của 'chuối'.

Thử thách:

• Viết chương trình ngắn nhất có một chuỗi đầu vào chữ và số không trống tùy ý và xuất ra số lượng mesas bắt đầu bằng chuỗi đó.

Đầu vào (stdin):

• Bất kỳ chuỗi chữ và số không trống.

Đầu ra (thiết bị xuất chuẩn):

• Số lượng mesas bắt đầu bằng chuỗi đầu vào.

Ghi điểm:

• Người chiến thắng là chương trình có số byte ít nhất.

Ví dụ

Chỉ một mesa bắt đầu bằng a:

a

Chỉ một mesa bắt đầu bằng aa:

aa

Nhiều mesas bắt đầu với ab:

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

GolfScript ( 106 103 ký tự)

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

Dĩ nhiên, ở đâu đó trong tim, một số mã từ chuỗi X có phải là chuỗi con của chuỗi Y không?

Ruby, 142 ký tự

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

Thuật toán này mang tính xây dựng, tức là nó xây dựng tất cả các mesas có thể cho chuỗi đầu vào và đếm chúng. Nó làm cho chương trình thực sự, thực sự chậm - nhưng này, nó là codegolf.

Ví dụ chạy:

> a
1
> aa
1
> ab
43