ได้รับสาย X และ Y ตรวจสอบว่า X เป็นsubsequenceของวายสตริงว่างเปล่าจะถูกยกย่องว่าเป็น subsequence ของทุกสตริง (เช่น''และ'anna'เรียงตามลำดับ'banana')

อินพุต

• X สตริงตัวอักษรผสมตัวเลขที่คำนึงถึงขนาดตัวพิมพ์
• Y สตริงตัวอักษรผสมตัวเลขที่คำนึงถึงขนาดตัวพิมพ์

เอาท์พุต

• จริงหรือเท็จ (หรือเทียบเท่า) แสดงอย่างถูกต้องว่า X เป็นองค์ประกอบของ Y

ตัวอย่าง I / O

X      Y        output

''     'z00'    True
'z00'  'z00'    True 
'z00'  '00z0'   False
'aa'   'anna'   True
'anna' 'banana' True
'Anna' 'banana' False

เกณฑ์

• โปรแกรมที่สั้นที่สุดชนะตามที่กำหนดโดยจำนวนไบต์ของซอร์สโค้ด

ตัวอย่างโปรแกรม

• หลายโปรแกรมที่สามารถดัดแปลงได้อยู่ในการโพสต์ที่เกี่ยวข้องนี้

Perl 5 , 17 ไบต์ (+1) โปรแกรมเต็มรูปแบบ

s//.*/g;$_=<>=~$_

ลองออนไลน์!

วิงวอนกับpธงล่าม Perl perl -pe 's//.*/g;$_=<>=~$_'ในขณะที่ ตามกฎการให้คะแนนที่กำหนดไว้เมื่อมีการโพสต์ความท้าทายครั้งแรกค่าสถานะนี้จะมีค่าเพิ่มหนึ่งไบต์ ภายใต้กฎล่าสุด AFAICT อาจให้บริการฟรี

ทั้งสองวิธีสตริงอินพุตควรถูกจัดหาบนบรรทัดที่ขึ้นบรรทัดใหม่ที่แยกต่างหากบน stdin เอาต์พุต (ถึง stdout) จะเป็น1ถ้าสตริงอินพุตแรกเป็นซับสตริงของวินาทีหรือไม่มีอะไรเลยถ้าไม่ใช่

สังเกตว่าทั้งคู่บรรทัดจะต้องมีการขึ้นบรรทัดใหม่ในตอนท้ายมิฉะนั้นโปรแกรมจะทำงานไม่ถูกต้อง หรือคุณสามารถเพิ่มการlตั้งค่าสถานะบรรทัดคำสั่งลงในการเรียกใช้เพื่อให้ perl ตัดการขึ้นบรรทัดใหม่ ขึ้นอยู่กับกฎการให้คะแนนที่มีผลบังคับใช้ซึ่งอาจมีหรือไม่มีค่าใช้จ่ายเพิ่มเติมหนึ่งไบต์ โปรดทราบว่าการใช้การตั้งค่าสถานะนี้จะเพิ่มบรรทัดใหม่ไปยังเอาต์พุต

รุ่นดั้งเดิม (ตัวอย่างข้อมูล, 18 ไบต์ / ตัวอักษร)

$x=~s//.*/g,$y=~$x

อินพุตถูกกำหนดในตัวแปร$xและ$yผลลัพธ์คือค่าของนิพจน์ (ในบริบทสเกลาร์) โปรดทราบว่า$xมีการแก้ไขในกระบวนการ (ใช่ฉันรู้ว่าใช้$_แทน$xจะช่วยให้ฉันบันทึกสี่ตัวอักษร แต่ทำในตัวอย่างที่รู้สึกเล็กน้อยเกินไปสำหรับฉัน)

มันทำงานยังไง?

ส่วนแรก$x=~s//.*/gแทรกสตริงระหว่างตัวละครแต่ละตัวใน.* $xส่วนที่สอง$y=~$xถือว่า$xเป็น regexp และตรง$yกับมัน ใน Perl regexps .*จับคู่อักขระใดก็ได้หรือมากกว่าโดยพลการขณะที่อักขระตัวอักษรและตัวเลขทั้งหมดจับคู่ได้สะดวก

Ruby, 32 ตัวอักษร

s=->x,y{y=~/#{[*x.chars]*".*"}/}

วิธีการแก้ปัญหานี้จะส่งกลับnilถ้าxไม่ใช่การต่อเนื่องของyและจำนวนอื่น ๆ (เช่นทับทิมเทียบเท่ากับfalseและtrue) ตัวอย่าง:

p s['','z00']        # => 0   (i.e. true)
p s['z00','z00']     # => 0   (i.e. true)
p s['z00','00z0']    # => nil (i.e. false)
p s['anna','banana'] # => 1   (i.e. true)
p s['Anna','banana'] # => nil (i.e. false)

Haskell, 51 37

h@(f:l)%(g:m)=f==g&&l%m||h%m;x%y=x<=y

ขอบคุณ Hammar สำหรับการปรับปรุงที่สำคัญ ตอนนี้มันเป็นฟังก์ชั่นมัด แต่ดูเหมือนจะไม่มีเหตุผลว่าทำไมมันไม่ควร

สาธิต:

GHCi> :{
GHCi| zipWith (%) [""   , "z00", "z00" , "anna"  , "Anna"]
GHCi|             ["z00", "z00", "00z0", "banana", "banana"]
GHCi| :}
[True,True,False,True,False]

Python (48 ตัวอักษร)

import re;s=lambda x,y:re.search('.*'.join(x),y)

วิธีการเดียวกับคำตอบทับทิมของฮาวเวิร์ด เลวร้ายเกินไปเกี่ยวกับความจำเป็นของงูใหญ่ที่จะนำเข้าแพคเกจ regex และ lambda"ละเอียด" :-)

Python 59 ตัวอักษร

def s(x,y):
 for c in y:
  if x:x=x[c==x[0]:]
 return x==""

ฉันคิดว่าคำตอบของฉันจะดีกว่าใน Python

แก้ไข: เพิ่มคำแนะนำของ res

GolfScript (22 ตัวอักษร)

X[0]+Y{1$(@={\}*;}/0=!

ถือว่าอินพุตถูกใช้เป็นตัวแปรที่กำหนดไว้ล่วงหน้าสองตัวXและYแม้ว่าจะค่อนข้างผิดปกติใน GolfScript ปล่อย1ให้เป็นจริงหรือ0เป็นเท็จในกอง

C (52 ตัวอักษร)

s(char*x,char*y){return!*x||*y&&s(*x-*y?x:x+1,y+1);}

กรณีทดสอบ

ตลก (6 ตัวอักษร)

6 chars ใน Burlesque: R@\/~[ (สมมติว่า x และ y อยู่ใน stack ดูการกระทำที่นี่ )

C, 23:

while(*y)*x-*y++?0:x++;

ผลลัพธ์เป็น * x

http://ideone.com/BpITZ

PHP, 90 ตัวอักษร

<?function s($x,$y){while($a<strlen($y))if($y[$a++]==$x[0])$x=substr($x,1);return $x=="";}

สกาลา 106:

def m(a:String,b:String):Boolean=(a.size==0)||((b.size!=0)&&((a(0)==b(0)&&m(a.tail,b.tail))||m(a,b.tail)))

CoffeeScript 112 100 95 89

ความพยายามครั้งแรกของฉันที่การตีกอล์ฟ ... หวังว่าฉันจะไม่ทำให้ครอบครัวอับอาย!

z=(x,y)->a=x.length;return 1if!a;b=y.indexOf x[0];return 0if!++b;z x[1..a],y[b..y.length]

แก้ไข : ปรากฎว่า Coffeescript นั้นให้อภัยมากกว่าที่ฉันคิดด้วยช่องว่าง

ขอบคุณ res และ Peter Taylor สำหรับเคล็ดลับในการทำให้มันดูเพรียวบาง

C #, 70 113 107 90 ตัวอักษร

static bool S(string x,string y){return y.Any(c=>x==""||(x=x.Remove(0,c==x[0]?1:0))=="");}

Mathematica 19 17 27

LongestCommonSequenceส่งคืนการเรียงลำดับที่ไม่ต่อเนื่องกันนานที่สุดของสองสตริง (เพื่อไม่ให้สับสนกับLongestCommonSubsequenceซึ่งส่งกลับลำดับที่ต่อเนื่องกันยาวนานที่สุด

ต่อไปนี้จะตรวจสอบว่าการเรียงลำดับที่ต่อเนื่องกันยาวนานที่สุดเป็นสตริงแรกของสองสตริงหรือไม่ (ดังนั้นคุณต้องป้อนสตริงที่สั้นกว่าแล้วตามด้วยสตริงที่ใหญ่กว่า)

LongestCommonSequence@##==#& 

ตัวอย่าง

LongestCommonSequence@## == # &["", "z00"]
LongestCommonSequence@## == # &["z00", "z00"]
LongestCommonSequence@## == # &["anna", "banana"]
LongestCommonSequence@## == # &["Anna", "banana"]

จริงจริงเท็จจริง

การทดสอบที่สำคัญนั้นเป็นการทดสอบครั้งที่สามเนื่องจาก "anna" ไม่มีอยู่ใน "Banana" อย่างต่อเนื่อง

Python 3.8 (เผยแพร่ล่วงหน้า) , 42 ไบต์

lambda a,b:''in[a:=a[a[:1]==c:]for c in b]

ลองออนไลน์!

Python 3.8 (pre-release) 48 ไบต์

lambda a,b,j=0:all((j:=1+b.find(c,j))for c in a)

ลองออนไลน์!

Python 2 , 48 ไบต์

lambda a,b:re.search('.*'.join(a),b)>0
import re

ลองออนไลน์!

คัดลอกมาจากคำตอบของ Lynnนี้ >0สามารถละเว้นถ้าเพียง truthy / falsey ผลผลิตเป็นที่ตกลง

Python 2 , 50 ไบต์

f=lambda a,b:b and f(a[a[:1]==b[0]:],b[1:])or''==a

ลองออนไลน์!

Python 2 , 50 ไบต์

lambda a,b:reduce(lambda s,c:s[c==s[:1]:],b,a)==''

ลองออนไลน์!

C - 74 71 64

นี่ไม่ได้เป็นทางออกของปีเตอร์เทย์เลอร์ แต่ฉันคิดว่ามันสนุกดี(บวกนี่เป็นโปรแกรมการทำงานที่สมบูรณ์ไม่ใช่แค่ฟังก์ชั่น)

main(int c,char**v){for(;*v[1]!=0;++v[1])v[2]+=*v[1]==*v[2];return*v[2];}

main(int c,char**v){for(;*v[1];++v[1])v[2]+=*v[1]==*v[2];return*v[2];}

main(c,v)char**v;{while(*v[1])v[2]+=*v[1]++==*v[2];return*v[2];}

และไม่ดี

main(int argc, char** argv){
   char * input = argv[1];
   char * test  = argv[2];

   // advance through the input string. Each time the current input
   // character is equal to the current test character, increment
   // the position in the test string.

   for(; *input!='\0'; ++input) test += *input == *test;

   // return the character that we got to in the test string.
   // if it is '\0' then we got to the end of the test string which
   // means that it is a subsequence, and the 0 (EXIT_SUCCESS) value is returned
   // otherwise something non-zero is returned, indicating failure.
   return *test;
}

เพื่อทดสอบคุณสามารถทำสิ่งที่ชอบ:

./is_subsequence banana anna && echo "yes" || echo "nope"    
# yes
./is_subsequence banana foobar && echo "yes" || echo "nope"    
# nope

งูหลาม 66 62 59 58 ตัวอักษร

เป็นวิธีที่สนุกและเป็นปัญหาที่เกิดขึ้นอย่างแน่นอน

def f(n,h,r=0):
 for c in h:r+=n[r:r+1]==c
 return r==len(n)

ทับทิม32 30 28

f=->a,b{b.match a.tr'','.*'}

สิ่งนี้จะคืนค่าMatchDataอินสแตนซ์ถ้าaมีการต่อเนื่องของbหรือnilมิฉะนั้น

เวอร์ชันเก่าที่ค้นหาซับสตริงแทนการเรียงลำดับ

ทับทิม 15

f=->a,b{!!b[a]}

การใช้String#[](str)เมธอดที่คืนค่าstrหากstrเป็นสตริงย่อยของselfและ!!คืนBooleanถ้าค่าที่ส่งคืนสามารถใช้เป็นบูลีน (และไม่จำเป็นต้องเป็นtrueหรือfalse) จากนั้นก็สามารถมีได้เพียง 13 ตัวอักษร:

f=->a,b{b[a]}

มันจะกลับมาnilถ้าไม่ได้เป็นย่อยของab

SWI-Prolog, SICStus

ในตัวกริยารายการย่อย / 2ของการตรวจสอบ SICStus ว่ารายการทั้งหมดในรายการแรกยังปรากฏอยู่ในรายการที่สอง กริยานี้ยังมีอยู่ใน [library(dialect/sicstus/lists)].SWI-เปิดฉากผ่านห้องสมุดความเข้ากันได้ซึ่งสามารถโหลดได้จากแบบสอบถาม

วิ่งตัวอย่าง:

25 ?- sublist("","z00").
true.

26 ?- sublist("z00","z00").
true .

27 ?- sublist("z00","00z0").
false.

28 ?- sublist("aa","anna").
true .

29 ?- sublist("anna","banana").
true .

30 ?- sublist("Anna","banana").
false.

ในทางเทคนิคจำนวนไบต์สามารถเป็น 0 เนื่องจากสิ่งที่เราทำที่นี่คือการสืบค้นเช่นเดียวกับที่เราเรียกใช้โปรแกรมและป้อนข้อมูลเข้า

PHP, 41 ไบต์

พิมพ์ 1 สำหรับจริงและไม่มีอะไรที่เป็นเท็จ

<?=!levenshtein($argv[1],$argv[2],0,1,1);

หากการแทรกจากคำ 1 ถึงคำ 2 เสร็จสิ้นการนับเป็นศูนย์สำหรับกรณีจริง

levenshtein

ลองออนไลน์!

PHP, 57 ไบต์

พิมพ์ 1 สำหรับจริงและ 0 สำหรับเท็จ

สร้าง Regex

<?=preg_match(_.chunk_split($argv[1],1,".*")._,$argv[2]);

ลองออนไลน์!

Brachylogขนาด 2 ไบต์

⊆ᵈ

ลองออนไลน์!

เช่นเดียวกับคำตอบ ⊆นี้เป็นคำกริยาภายในที่ประกาศความสัมพันธ์ระหว่างตัวแปรอินพุตและเอาต์พุตและᵈเป็น meta-predicate ที่ปรับเปลี่ยนให้ประกาศความสัมพันธ์เดียวกันระหว่างองค์ประกอบแรกและตัวที่สองของตัวแปรอินพุตแทน (และรวมเข้าด้วยกัน ตัวแปรเอาต์พุตที่มีอิลิเมนต์ที่สอง แต่เนื่องจากนี่เป็นปัญหาการตัดสินใจที่ไม่ได้จบลงที่นี่) X⊆Yคือการยืนยันว่า X เป็น subsequence ของ Y [X,Y]⊆ᵈดังนั้นเพื่อให้เป็น

ภาคนี้ (ซึ่งแน่นอนผลผ่านความสำเร็จหรือความล้มเหลวที่พิมพ์ true.หรือfalse.เมื่อเรียกใช้เป็นโปรแกรม) รับอินพุตเป็นรายการของสองสาย หากอินพุตมีความยืดหยุ่นมากกว่านี้ ...

Brachylogขนาด 1 ไบต์

⊆

ลองออนไลน์!

รับสตริง X เป็นตัวแปรอินพุตและสตริง Y เป็นตัวแปรเอาต์พุต ผลลัพธ์ผ่านความสำเร็จหรือล้มเหลวเหมือนเมื่อก่อน หากเรียกใช้เป็นโปรแกรมเต็มรูปแบบ X จะได้รับเป็นอินพุตและ Y จะให้เป็นอาร์กิวเมนต์บรรทัดคำสั่งแรก

CoffeeScript 73

ต่อไปนี้เป็นคำตอบ CoffeeScript ทางเลือกโดยใช้ regexes แทนการเรียกซ้ำ:

z=(x,y)->a='.*';a+=c+'.*'for c in x;b=eval('/'+a+'/');(y.replace b,'')<y

หากกองหญ้าตรงกับ regex โลภมากที่สร้างขึ้นจากเข็มมันจะถูกแทนที่ด้วยสตริงว่าง หากกองหญ้านั้นสั้นกว่าที่เริ่ม

ส่งคืนค่า false เมื่อxและyทั้งสองเป็นสตริงว่าง คิดว่าเราต้องการนักปรัชญาที่จะบอกเราว่าสตริงว่างเปล่าเป็นส่วนประกอบของตัวมันเองหรือไม่!

(โพสต์เป็นคำตอบที่แยกต่างหากจากครั้งก่อนของฉันเพราะมันให้ความรู้สึกที่แตกต่างพอที่จะให้เหตุผลได้)

PowerShell, 38

$args[1]-clike($args[0]-replace'','*')

แน่นอนว่าโซลูชันที่ใช้การจับคู่ regex หรือการจับคู่รูปแบบดังกล่าวมีปัญหาประสิทธิภาพการทำงานรุนแรงกับสตริงที่ยาวขึ้น แต่เนื่องจากความสั้นเป็นเกณฑ์ ...

ประเภทต่อต้านการแก้ปัญหาสร้างทั้งหมดของ Y Y:

Python 93

l=len(y)
print x in[''.join(c for i,c in zip(bin(n)[2:].rjust(l,'0'),y)if i=='1')for n in range(2**l)]

APL (31)

การจัดการสตริงเป็นบิตขาดใน APL

{(⊂'')∊N←⍵↓⍨¨1,⍨=/⊃¨⍵:~×⍴⊃N⋄∇N}

การใช้งาน:

      {(⊂ '') ∊N ←⍵↓⍨¨1, ⍨ = / ⊃¨⍵: ~ ×⍴⊃N⋄∇N} 'แอนนา' 'กล้วย'
1
      {(⊂ '') ∊N ←⍵↓⍨¨1, ⍨ = / ⊃¨⍵: ~ ×⍴⊃N⋄∇N} 'แอนนา' 'กล้วย'
0
      {(⊂ '') ∊N ←⍵↓⍨¨1, ⍨ = / ⊃¨⍵: ~ ×⍴⊃N⋄∇N} '' 'กล้วย'
1

Python 132

คล้ายกับของ Daniero ไม่ใช่ทางออกที่ง่ายที่สุด แต่ก็สนุกไปกับการลอง ฉันใหม่กับ Python ดังนั้นฉันจึงมั่นใจว่าสามารถทำให้สั้นลงได้ถ้าฉันรู้มากขึ้นอีกนิด

def f(i):
    s=x;j=0
    while j<len(s):t=~i%2;s=[s[:j]+s[j+1:],s][t];j+=t;i>>=1
    return s==y
print True in map(f,range(1,2**len(x)))

Python - 72

def f(a,b):
 c=len(a)
 for i in b:a=a.replace(i,"",1)
 print len(a+b)==c

Python ( 75 52)

s=lambda a,b:a==''or b>''and s(a[a[0]==b[0]:],b[1:])

โซลูชันแบบเรียกซ้ำง่าย ๆ การเล่นกอล์ฟเป็นครั้งแรกดังนั้นเคล็ดลับใด ๆ ในการลงมือทำสิ่งนี้จึงเป็นที่นิยมอย่างมาก :)

ทดสอบกับสิ่งต่อไปนี้:

assert s('anna', 'banana') == True
assert s('oo0', 'oFopp0') == True
assert s 'this', 'this is a string') == True
assert s('that', 'this hat is large') == True
assert s('cba', 'abcdefg') == False

ขอบคุณ @lirtosiast สำหรับเทคนิคบูลีนที่ฉลาด

PHP, 75 65 64 ไบต์

for(;$p=@strpos(_.$argv[2],$c=$argv[1][$i++],$p+1););echo""==$c;

รับอินพุตจากอาร์กิวเมนต์บรรทัดรับคำสั่ง พิมพ์1สำหรับสตริงจริงและว่างเปล่าสำหรับเท็จ -rทำงานด้วย

คำอธิบาย:

• strposผลตอบแทนfalseถ้าเข็ม$cไม่ได้อยู่ในกองหญ้า$argv[2](หลังจากตำแหน่ง$p)
  ทำให้เกิดวงแตก
• strposนอกจากนี้ยังมีผลตอบแทนสำหรับเข็มที่ว่างเปล่าหมดห่วงในตอนท้ายของfalse$argv[1]
• ถ้า $argv[1]เป็น subsequence ของ$argv[2],$cจะว่างเปล่าเมื่อแบ่งห่วง
• strposจำเป็นต้อง@ระงับEmpty needleคำเตือน

รวดเร็ว 27

print(Y.range(of:X) != nil)