มีกี่ mesas เริ่มต้นด้วยสตริงที่กำหนด?

ลองเรียกรายการสตริงที่ไม่ว่างเปล่าของmesaหากเงื่อนไขต่อไปนี้มีไว้:

1. แต่ละสตริงที่แสดงไม่ว่างเปล่าและใช้เฉพาะอักขระที่เกิดขึ้นในสตริงแรก
2. แต่ละสตริงที่ต่อเนื่องกันจะมีความยาวหนึ่งตัวอักษรมากกว่าหนึ่งตัว
3. ไม่มีสตริงในรายการเป็นsubsequenceของสตริงอื่น ๆ ในรายการ

คำว่า "mesa" มาจากการมองเห็นเช่นนี้ (โดยที่xs จะเป็นตัวอักษรต่าง ๆ ):

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

NB: มันเป็นความจริงทางคณิตศาสตร์ที่มีเพียงจำนวนมากเท่านั้นที่เริ่มต้นด้วยสตริงที่กำหนด หมายเหตุ: ความแตกต่างระหว่างsubsequenceกับ substring ; เช่น 'anna' เป็นส่วนประกอบ (แต่ไม่ใช่ซับสตริง) ของ 'Banana'

ท้าทาย:

• เขียนโปรแกรมที่สั้นที่สุดที่รับสตริงอินพุตตัวอักษรผสมตัวเลขที่ไม่ว่างเปล่าและส่งออกจำนวน mesas ที่ขึ้นต้นด้วยสตริงนั้น

อินพุต (stdin):

• สตริงตัวอักษรผสมตัวเลขที่ไม่ว่าง

เอาท์พุท (stdout):

• จำนวน mesas ที่ขึ้นต้นด้วยสตริงอินพุต

เกณฑ์การให้คะแนน:

• ผู้ชนะคือโปรแกรมที่มีจำนวนไบต์น้อยที่สุด

ตัวอย่าง mesas

หนึ่งเมซ่าเริ่มต้นด้วย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]]

อัลกอริทึมนี้มีความสร้างสรรค์นั่นคือมันจะสร้าง mesas ที่เป็นไปได้ทั้งหมดสำหรับสตริงอินพุตและนับมัน มันทำให้โปรแกรมช้ามาก ๆ - แต่เดี๋ยวก่อนมันคือ codegolf

ตัวอย่างการทำงาน:

> a
1
> aa
1
> ab
43