주어진 문자열로 몇 개의 메사가 시작합니까?

다음 조건이 충족되면 비어 있지 않은 문자열 목록을 메사 라고하겠습니다 .

1. 나열된 각 문자열은 비어 있지 않으며 첫 번째 문자열에서 발생하는 문자 만 사용합니다.
2. 연속되는 각 문자열은 이전 문자열보다 정확히 한 문자 더 깁니다.
3. 목록에있는 문자열은 목록 에있는 다른 문자열 의 하위 시퀀스 가 아닙니다 .

"메사"라는 용어는 다음과 같이 시각화하는 것입니다 ( xs는 다양한 문자이어야 함).

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

주의 : 그것은 오직 많은 수의 메사 만이 주어진 문자열로 시작한다는 수학적 사실입니다. 하위 시퀀스 와 하위 문자열 의 차이점에 유의하십시오 . 예를 들어, 'anna'은 'banana'의 하위 시퀀스 (하위 문자열이 아님)입니다.

도전:

• 비어 있지 않은 임의의 영숫자 입력 문자열을 사용하고 해당 문자열로 시작하는 메사 수를 출력하는 가장 짧은 프로그램을 작성하십시오.

입력 (stdin) :

• 비어 있지 않은 영숫자 문자열

출력 (stdout) :

• 입력 문자열로 시작하는 메사 수입니다.

채점 :

• 승자는 바이트 수가 가장 적은 프로그램입니다.

메사 예제

하나의 메사 만 시작합니다 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의 하위 시퀀스입니까?

루비, 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]]

이 알고리즘은 구성 적입니다. 즉, 입력 문자열에 대해 가능한 모든 메사를 작성하고 계산합니다. 프로그램을 정말 느리게 만듭니다. 그러나 코드 골프입니다.

예제 실행 :

> a
1
> aa
1
> ab
43