Dizeleri X ve Y göz önüne alındığında, X olup olmadığını belirlemek altdizi boş dize her dize bir alt diziyle olarak kabul edilir Y'nin. (Örneğin, ''ve 'anna'bunların ekleridir 'banana'.)

Giriş

• X, büyük olasılıkla boş, büyük / küçük harfe duyarlı bir alfasayısal dize
• Y, büyük olasılıkla boş, büyük / küçük harfe duyarlı bir alfasayısal dize

Çıktı

• Doğru veya Yanlış (veya eşdeğeri), X'in Y'nin bir alt simgesi olup olmadığını gösteren doğru bir şekilde

G / Ç örnekleri

X      Y        output

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

Kriterler

• En kısa program, kaynak kodun bayt sayısına göre belirlendiğinde kazanır.

Örnek programlar

• Uyarlanabilecek çeşitli programlar bu ilgili kayıtta yer almaktadır .

Perl 5 , 17 bayt (+1?), Tam program

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

Çevrimiçi deneyin!

pBayrakla perl tercümanına olduğu gibi çağır perl -pe 's//.*/g;$_=<>=~$_'. Başına bu zorluk başlangıçta gönderilmiş kurulan puanlama kuralları , bu bayrak bir ekstra bayt mal olur. Daha yeni kurallar uyarınca , AFAICT, ücretsiz olabilir.

Her iki durumda da, giriş dizeleri, stdin'deki ayrı yeni satır sonlandırmalı satırlarda sağlanmalıdır. Çıktı (stdout'a) 1, ilk girdi dizesi, ikincisinin alt dizesiyse veya değilse, hiçbir şey olmaz.

O Not hem girdi hatları sonunda bir yeni satır olması gerekir, ya da program düzgün çalışmaz. Alternatif olarak, lperl'nin yeni satırları çıkarması için komut satırı bayrağını çağırmaya ekleyebilirsiniz ; geçerli puanlama kurallarına bağlı olarak, bu bir ekstra bayta mal olabilir veya olmayabilir. Bu bayrağın kullanılmasının da çıktıya yeni bir satır ekleyeceğini unutmayın.

Orijinal versiyon (snippet, 18 bayt / karakter)

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

Girdi değişkenlerde verilir $xve $ysonuç ifadenin değeridir (skaler bağlamda). Not $xişleminde modifiye edilir. (Evet, kullanmak $_yerine $xdört karakter kurtarmama izin vereceğimi biliyorum , ancak bunu benim için biraz fazla sevimsiz bir snippet'te yapmak.)

O nasıl çalışır?

İlk bölüm, $x=~s//.*/gdizeyi .*her karakterin arasına ekler $x. İkinci kısım, bir regexp gibi $y=~$xdavranır $xve $yona karşı eşleşir . Perl regexps'de, .*sıfır veya daha fazla rasgele karakter ile eşleşirken, tüm alfanümerik karakterler uygun bir şekilde kendilerini eşleştirir.

Yakut, 32 karakter

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

Bu çözelti, döner nilise xbir alt sekans değildir yve başka türlü bir sayı (yani kırmızı eşdeğer falseve true). Örnekler:

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

Önemli gelişme için Hammar'a teşekkürler. Bu şimdi bir ekleme işlevidir, ancak olmamasının bir nedeni yok gibi görünüyor.

gösteri:

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

Python (48 karakter)

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

Howard'ın Ruby cevabı ile aynı yaklaşım. Python'un regex paketini ve "ayrıntılı" içeriğini alma ihtiyacı konusunda çok kötü lambda. :-)

Python, 59 karakter

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

Cevabımın Python'da daha iyi ifade edilebileceğini düşündüm.

Düzenleme: res önerileri eklendi.

GolfScript (22 karakter)

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

Girdilerin önceden tanımlanmış iki değişken olarak alındığını Xve YGolfScript'te oldukça alışılmadık olmasına rağmen olduğunu varsayalım. Yığında 1doğru veya 0yanlış için bırakır .

C (52 karakter)

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

Test durumları

Burlesque (6 karakter)

Burlesque'de 6 karakter: R@\/~[ (x ve y'nin yığında olduğunu varsayalım. Buraya bakın .)

C, 23:

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

sonuç * x

http://ideone.com/BpITZ

PHP, 90 karakter

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

Scala 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

Kod golf ilk denemem ... umarım ailemi utandırmam!

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]

Düzenleme : ortaya çıkıyor Coffeescript beyaz boşluk ile düşündüğümden daha bağışlayıcı.

Res ve Peter Taylor için biraz daha şık yapmak için bazı ipuçları için teşekkürler

C #, 70 113 107 90 karakter

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

LongestCommonSequenceiki dizenin en uzun bitişik olmayan alt dizesini döndürür. ( LongestCommonSubsequenceEn uzun bitişik sırasını döndüren, karıştırılmaması gereken) .

Aşağıdaki, en uzun bitişik sıranın iki dizenin ilki olup olmadığını kontrol eder. (Yani daha kısa olan dize ve ardından daha büyük olan dize girmelisiniz)

LongestCommonSequence@##==#& 

Örnekler

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

Doğru doğru yanlış

Kritik test üçüncü olanıdır, çünkü "anna" bitişik olmayan "muz" da bulunur.

Python 3.8 (yayın öncesi) , 42 bayt

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

Çevrimiçi deneyin!

Python 3.8 (yayın öncesi) , 48 bayt

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

Çevrimiçi deneyin!

Python 2,48 bayt

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

Çevrimiçi deneyin!

Lynn'in bu cevabından kopyalandı . >0Sadece truthy / Falsey çıkış yolunda olup olmadığını göz ardı edilebilir.

Python 2,50 bayt

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

Çevrimiçi deneyin!

Python 2,50 bayt

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

Çevrimiçi deneyin!

C - 74 71 64

Bu, Peter Taylor'ın çözümünü geçmiyor, ama bence çok eğlenceli (artı, bu tam bir çalışma programı, sadece bir işlev değil)

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

Ve asılsız:

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;
}

Test etmek için şöyle bir şey yapabilirsiniz:

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

Python, 66 62 59 58 karakter

Eğlenceli bir çözüm, kesinlikle temiz bir problem.

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

Ruby 32 30 28

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

Bu , münasebetiyle veya başka şekilde ise MatchDataörneği döndürür.abnil

Sırası yerine alt dize bulan eski sürüm

Yakut 15

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

Kullanarak String#[](str)döner bu yöntem strise strde bir alt selfve !!geri Booleandöndürülen değer boolean olarak etkili olabilir (ve olması gerekmez trueya da false) o zaman sadece 13 karakter olabilir:

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

Bu dönecektir nileğer abir alt dize değildir b.

SWI-Prolog, SICStus

SICStus'un yerleşik yüklem alt listesi / 2'si , ilk listedeki tüm öğelerin ikinci listede de görünüp görünmediğini kontrol eder. Bu yüklem SWI-Prolog'da, sorgu tarafından yüklenebilen uyumluluk kitaplığı yoluyla da kullanılabilir [library(dialect/sicstus/lists)]..

Örnek çalışma:

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.

Bayt sayısı teknik olarak 0 olabilir, çünkü burada yaptığımız tek şey, bir programı nasıl çalıştırdığımız ve ona girdi sağladığımız gibi sorgulamak.

PHP, 41 Bayt

doğru için 1, yanlış için hiçbir şey yazdırmaz

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

Yalnızca 1. kelimeden 2. kelimeye yapılan eklemeler yapılmışsa, gerçek durumlar için sayım sıfırdır.

levenshtein

Çevrimiçi deneyin!

PHP, 57 Bayt

doğru için 1, yanlış için 0 yazdırır

Regex oluşturur

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

Çevrimiçi deneyin!

Brachylog , 2 bayt

⊆ᵈ

Çevrimiçi deneyin!

Olduğu gibi bu cevap, ⊆ bir girdi ve çıktı değişkenleri arasında bir ilişki beyan ve yüklem yerleşik ᵈdeğiştirir yerine girdi değişkeni birinci ve ikinci elemanları arasında aynı ilişkiyi beyan etmek bir meta-yüklem (ve Birleştir'me Çıktı değişkeni ikinci öğeyle birlikte ancak bu, burada önemi olmayan bir karar sorunudur. X⊆YX'in Y'nin bir alt simgesi olduğu iddiası, öyleyse öyledir [X,Y]⊆ᵈ.

Bu kestirim (elbette hangisi basarsa başarı veya başarısızlıktan çıktı true. veya false.bir program olarak çalıştırıldığı zaman ya ) iki dizenin bir listesi olarak girdi alır. Girdi biraz daha esnekse ...

Brachylog , 1 bayt

⊆

Çevrimiçi deneyin!

X dizesini giriş değişkeni olarak ve Y dizesini çıkış değişkeni olarak alır. Daha önce olduğu gibi başarı ya da başarısızlık yoluyla çıktılar. Tam bir program olarak çalıştırılırsa , giriş olarak X, ilk komut satırı argümanı olarak Y verilir.

CoffeeScript 73

Özyineleme yerine regex kullanarak, alternatif bir CoffeeScript cevabı:

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

Samanlık, iğneden yapılmış çok açgözlü bir regex ile eşleşirse, boş bir dize ile değiştirilecektir. Samanlık başladığından daha kısa ise, iğne bir sıraydı.

Her ikisi de boş dizeler olduğunda xve yher ikisi de yanlışsa döndürür . Boş bir dize kendisinin bir önceliği olup olmadığını bize söylemek için bir filozofa ihtiyacımız olduğunu düşünün!

(Benim haklı çıkarmak için yeterince farklı hissediyor çünkü önceki benim ayrı bir cevap olarak gönderildi).

PowerShell, 38

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

Tabii ki, böyle herhangi bir regex veya desen eşleştirme tabanlı çözüm, daha uzun dizelerle ciddi performans sorunlarına sahiptir. Ancak kısalık ölçüt olduğundan ...

Y'nin tüm alt dizilerini üreten bir tür anti-çözüm:

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)

Dize kullanımı APL'de biraz eksik.

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

kullanımı:

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

Python 132

Daniero's'a benzer. En kolay çözüm değil, ama denemek eğlenceliydi. Python'da yeniyim, bu yüzden biraz daha fazla şey bilseydim daha kısa tutabileceğime eminim.

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

Basit özyinelemeli çözüm. İlk kez golf oynamanın sebebi, bu yarışmayı kesmekle ilgili herhangi bir ipucu çok takdir edilmek :)

Aşağıdakilerle test edilmiştir:

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

Bazı akıllı boolean hileler için @ lirtosiast için teşekkürler.

PHP, 75 65 64 bayt

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

komut satırı argümanlarından girdi alır; 1false için true boş dize yazdırır . İle koş -r.

açıklama:

• strposfalseİğne $csamanlıkta değilse $argv[2](konumdan sonra $p),
  döngünün kırılmasına neden olursa döndürür .
• strposAyrıca falseboş bir iğne için döner , sonunda$argv[1] .
• Eğer $argv[1]bir dizisi olan $argv[2], $cne zaman döngü kırılır boş olacaktır.
• strpos ihtiyaçlar @Empty needleuyarıyı bastırmak .

Swift, 27

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