กำหนดสตริงsและอาร์เรย์ / รายการlตรวจสอบหรือไม่ว่าสามารถทำกับชิ้นส่วนจากsl

ตัวอย่างเช่นหากสตริงคือ"Hello, world!"และรายการ[' world!', 'Hello,']นั้นโปรแกรม / ฟังก์ชั่นควรส่งกลับค่าความจริงเพราะคุณสามารถจัดเรียงรายการเพื่อสร้างสตริง รายการต่อไปนี้จะคืนค่าความ['l', 'He', 'o, wor', 'd!']จริงด้วย: ลองนึกภาพการ'l'เติมในสิ่งที่เขาต้องการในสาย ใช่แล้วคุณอาจทำซ้ำองค์ประกอบของรายการเพื่อจัดรูปแบบสตริง หากไม่สามารถสร้างสตริงได้ควรส่งคืนค่าที่ผิดพลาด วิธีการมาตรฐานของ IO ใช้ช่องโหว่มาตรฐาน

กรณีทดสอบ:

Input (In the form of s, l)
Output (1 if possible, 0 if impossible)

"Hello, world!", ["l", "He", "o, wor", "d!"]
1

"la lal al ", ["la", " l", "al "]
1

"this is a string", ["this should return falsy"]
0

"thi is a string", ["this", "i i", " a", " string"]
0

"aaaaa", ["aa"]
0

"foo bar foobar", ["foo", "bar", " ", "spam"]
1

"ababab", ["a","ba","ab"]
1

"", ["The string can be constructed with nothing!"]
1

Brachylogขนาด 8 ไบต์

~c¬{∋¬∈}

ลองออนไลน์!

มันช้ามาก ใช้เวลาประมาณ 37 วินาทีสำหรับ "Hello, world!" กรณีทดสอบบนพีซีของฉันและหมดเวลากับ TIO

สิ่งนี้ใช้สตริงผ่านตัวแปร Input และรายการผ่านตัวแปร Output

คำอธิบาย

             String = ?, List = .

             It is possible to find…
~c           …a deconcatenation of ?…
  ¬{   }     …such that it is impossible…
    ∋¬∈      …that an element of that deconcatenation is not an element of .

Mathematica, 29 ไบต์

StringMatchQ[#,""|##&@@#2..]&

คำอธิบาย:

             #,               (* The first argument *)
StringMatchQ[                 (* matches the string pattern *)
               ""|##&         (*   Alternatives *)
                     @@       (*     applied to *)
                       #2     (*     the second argument *)
                         ..   (*   repeated *)
                           ]&

การแก้ปัญหาการโกงแนวชายแดน 21 ไบต์

StringMatchQ[#,#2..]&

เนื่องจาก Mathematica เป็นภาษาการเขียนโปรแกรมเชิงสัญลักษณ์จึงไม่มีความแตกต่าง * ระหว่างนิพจน์List[a,b,...]และAlternatives[a,b,...]อื่น ๆ นอกเหนือจากวิธีที่พวกเขาโต้ตอบกับสัญลักษณ์อื่นและวิธีแสดง ( {a,b,...}และa|b|...ตามลำดับ) เมื่อนำมาใช้ในอาร์กิวเมนต์ที่สองของStringMatchQการAlternativesแสดงออกจะถือว่าเป็นรูปแบบสตริงและทำให้เราสามารถประหยัด8ไบต์มากกว่าการแก้ปัญหาดังกล่าวข้างต้นของฉันโดยการอาร์กิวเมนต์ที่สองเป็นAlternativesการแสดงออก

* ทางเทคนิคListคือการLockedป้องกันผู้ใช้จากการใช้งานUnprotectและการเปลี่ยนแปลงพฤติกรรมของมัน

Pyth, 23 ไบต์

AQW&GhGJ.(G0Vf!xJTH aG>JlN;G

[['string'],['list', 'of', 'parts']]จะเข้าเช่น เอาต์พุตเป็นรายการว่างหรือรายการที่มีค่าอยู่ภายใน ใน Pyth หมายถึงรายการที่มีสิ่งใดแม้แต่สตริง null ( ['']) จะประเมินค่าเป็นจริง

ลองออนไลน์!

คำอธิบาย:

                             | Implicit: Q = eval(input())
AQ                           | Assign the first value of Q to G and the second to H
  W&GhG                      | While G is not empty and G doesn't contain an empty string:
       J.(G0                 |  Pop the first value of G and store into J
            Vf!xJTH          |  For N in elements in H that match the beginning of J:
                             |   Additional space for suppressing printing 
                    aG>JlN   |   Append to G the elements of J from the length of N to the end
                          ;  | End all loops
                           G | Print G

โซลูชันนี้พยายามที่จะลบทุกส่วนที่เป็นไปได้อย่างต่อเนื่องตั้งแต่เริ่มต้นของสตริงและติดตามค่าที่ยังคงต้องดูผ่าน

หากเราดูค่าของGกรณีทดสอบ[['ababab'],['a','ba','ab']]หลังจากวนซ้ำในขณะที่วนซ้ำนี่คือสิ่งที่เราได้รับ:

['ababab']
['babab', 'abab']
['abab', 'bab']
['bab', 'bab', 'ab']
['bab', 'ab', 'b']
['ab', 'b', 'b']
['b', 'b', '']
['b', '']
['']   <---Remember, this evaluates to True

และในกรณีทดสอบ[['aaaaa'],['aa']]นี่คือสิ่งที่เราได้รับ:

['aaaaa']
['aaa']
['a']
[]   <---And this evaluates to False

ฉันสร้างอีกกรณีทดสอบ[['aaaaaa'],['a','aa','aaa']]และผลลัพธ์คือ:

['', 'aaa', 'aa', 'a', 'aa', 'a', '', 'a', '', 'aa', 'a', '', 'a', '', '', 'a', '', '']

รายการผลลัพธ์มีขยะจำนวนมากอยู่ข้างใน แต่ก็ยังมีคุณค่าที่แท้จริง

Perl 5 , 39 ไบต์

รหัส 38 ไบต์ + -pธง

map{chop;$v.="\Q$_\E|"}<>;$_=/^($v)*$/

ลองออนไลน์!

สำหรับการป้อนข้อมูล"Hello, world!", ["l", "He", "o, wor", "d!"](คั่นด้วยการขึ้นบรรทัดใหม่จริง) ก็สร้างรูปแบบl|He|o, wor|d!|(มี metacharacters หนีขอบคุณ\Q..\E) /^($v)*$/แล้วรูปลักษณ์ถ้าสายแรกตรงกับรูปแบบนี้กับ

บน TryItOnline โปรดทราบว่าจำเป็นต้องมีบรรทัดใหม่ต่อท้าย

PHP, 69 ไบต์

<?=($s=$_GET[0])>""?ctype_digit(strtr($s,array_flip($_GET[1])))?:0:1;

Testcases

Python 2, 141 ไบต์

lambda s,l:s in[''.join(i)for r in range(len(s)+1)for j in combinations_with_replacement(l,r)for i in permutations(j)]
from itertools import*

ลองออนไลน์!

มากที่ไม่มีประสิทธิภาพ กรณีทดสอบครั้งแรกหมดเวลากับ TIO

JavaScript (ES6), 59 ไบต์

ใช้เวลาอาร์เรย์ของสตริงaและสตริงในไวยากรณ์s currying (a)(s)ผลตอบแทน/falsetrue

a=>g=s=>!s||a.some(e=>s.split(e)[0]?0:g(s.slice(e.length)))

แสดงความคิดเห็น

a =>                          // main function that takes 'a' as input
  g = s =>                    // g = recursive function that takes 's' as input
    !s ||                     // if 's' is empty, return true (success!)
    a.some(e =>               // else, for each element 'e' in 'a':
      s.split(e)[0] ?         //   if 's' doesn't begin with 'e':
        0                     //     do nothing
      :                       //   else:
        g(s.slice(e.length))  //     remove 'e' at the beginning of 's' and
    )                         //     do a recursive call on the remaining part

กรณีทดสอบ

let f =

a=>g=s=>!s||a.some(e=>s.split(e)[0]?0:g(s.slice(e.length)))

console.log(f(["l", "He", "o, wor", "d!"])("Hello, world!"))        // true
console.log(f(["la", " l", "al "])("la lal al "))                   // true
console.log(f(["this should return falsy"])("this is a string"))    // false
console.log(f(["this", "i i", " a", " string"])("thi is a string")) // false
console.log(f(["aa"])("aaaaa"))                                     // false
console.log(f(["foo", "bar", " ", "spam"])("foo bar foobar"))       // true
console.log(f(["a","ba","ab"])("ababab"))                           // true

Haskell , 35 ไบต์

#ใช้เวลาStringและรายชื่อของStrings Boolและผลตอบแทน

s#l=elem s$concat<$>mapM("":)(l<$s)

ลองออนไลน์!

อย่าเพิ่งสนใจกรณีทดสอบที่ฉันออกไปเพราะมันทำให้แล็ปท็อปของฉันมีน้อยแม้กระทั่งกับ -O2 ฉันสงสัยว่า GHC ไม่ได้หลอมรวมรายชื่อองค์ประกอบกลาง 30517578125 มันมีการแบ่งปันมากเกินไปที่จะรวบรวมขยะอย่างรวดเร็วและเนื่องจากกรณีทดสอบเป็นเท็จโปรแกรมต้องสร้างทั้งหมด ... รู้สึกอิสระที่จะลองถ้าคุณสามารถ จัดการที่

mapM("":)(l<$s)เป็นรายการของทุกวิถีทางที่จะทำให้เป็นรายการขององค์ประกอบที่มีทั้งสตริงว่างเปล่าหรือสตริงจากlength sl

Pyth, 17 15 11 14 ไบต์

AQ|!G}Ym-dH./G

ข้อกำหนดสำหรับสตริงว่างเปลี่ยนไปโดยเพิ่มจำนวน 3 ไบต์

คำอธิบาย

AQ|!G}Ym-dH./G
AQ                     Save the input into G, H.
           ./G         Get all partitions of G.
       m-dH            Check if the parts are in H.
     }Y                The empty list should be present if and only
                           if the string can be made...
  |!G                  ... or the string might be empty.

รุ่นเก่า

AQ}Ym-dH./G

สั้นลงและวิ่งในช่วงอายุของจักรวาล!

คำอธิบาย

AQ}Ym-dH./G
AQ                  Save the input into G, H.
        ./G         Get all partitions of G.
    m-dH            Check if the parts are in H.
  }Y                The empty list should be present if and only
                        if the string can be made.

AQ&G}GsMs.pMy*HlG

มันช้าอย่างน่ากลัว แต่มันใช้ได้กับกรณีทดสอบเล็ก ๆ น้อย ๆ ของฉัน

คำอธิบาย

AQ&G}GsMs.pMy*HlG
AQ                  Save the input into G, H.
             *HlG   Repeat the list of substrings for each character of G.
            y       Take the power set.
         .pM        Take every permutation of each set of substrings.
      sMs           Get a list of all the joined strings.
    }G              Check if G is one of them.
  &G                Make sure G is not empty.

เจลลี่ , 14 12 8 ไบต์

;FŒṖḟ€Ạ¬

ลองออนไลน์!

มันทำงานอย่างไร

;FŒṖḟ€Ạ¬   - main function, left argument s, right argument l
;F         - concatenate to the string the list, flattened to deal with "" as string
  ŒṖ       - Get all partitions of s, that is, all ways to make s from substrings
     €     - For each partition...
    ḟ      -   Filter out (exclude) those elements which are not in... 
           -   (implicit right arg) the list l. This leaves the empty set (falsy) if the partition can be made of elements from the list
      Ạ    - If any element is falsy (thus constructable from l), return 0; else return 1
       ¬   - Apply logical not to this, to yield the proper 1 = constructable from list, 0 otherwise.

แก้ไขข้อผิดพลาดในกรณีที่"", ["The string can be constructed with nothing"]ต้องขอบคุณ @JonathanAllan

R, 49 ไบต์

function(s,l)gsub(paste(l,collapse='|'),"",s)==""

ลองออนไลน์!

Pyth, 10 8ไบต์

f!-TQ./+zh

ชุดทดสอบ

ใช้รายการในบรรทัดแรกของ STDIN และสตริง (โดยไม่ใส่เครื่องหมายอัญประกาศ) ในวินาที

ในการเริ่มต้นรายการนี้จะถูกเก็บไว้ในและสตริงถูกเก็บไว้ในQ ต่อไปเราในรูปแบบพาร์ทิชันที่เป็นไปได้ทั้งหมดz zแต่ละพาร์ติชันจะถูกกรอง (f ) เพื่อตรวจสอบว่ามันใช้เพียงบางส่วนQหรือไม่ ในการทำเช่นนี้เราจะลบองค์ประกอบทั้งหมดออกQจากTพาร์ติชันที่เรากำลังแบ่งพาร์ติชันและลบล้างผลลัพธ์ด้วยเหตุผล!เพื่อให้มีเพียงพาร์ติชันที่ทุกองค์ประกอบถูกQเก็บไว้

เพื่อแก้ไขปัญหาที่เกิดขึ้น ''ไม่มีพาร์ติชันเราเพิ่มคำแรกของพจนานุกรมลงใน z เพื่อไม่ให้เป็นสตริงว่าง

PowerShell, 61 58 57 ไบต์

{$s,$l=$_;$l|sort -d length|%{$s=$s.replace($_,'')};+!$s}

ลองออนไลน์!

โซลูชั่นเก่า:

{$s,$l=$_;$l|sort -d length|%{$s=$s.replace($_,'')};[int]!$s}
{$s,$l=$_;$l|sort -d length|%{$s=$s.replace($_,'')};0+!$s}  

Python 2, 64 ไบต์

lambda s,l:len(re.findall("^("+"|".join(l)+")*$",s))>0
import re

ลองใช้ออนไลน์!

PowerShell, 78

$s,$l=$args;!($s-creplace(($l|sort -d length|%{[regex]::escape($_)})-join'|'))

วิธีการตาม regex ตรงไปตรงมาสวย

CJam (16 ไบต์)

{Ma+1$,m*:e_\a&}

นี่คือบล็อก (ฟังก์ชั่น) ที่ไม่ระบุชื่อการรับสตริงและอาร์เรย์ของสตริงบนสแต็ก สาธิตออนไลน์

มันใช้อัลกอริทึมที่ชัดเจน:

{        e# Declare a block. Call the args str and arr
  Ma+    e#   Add the empty string to the array
  1$,m*  e#   Take the Cartesian product of len(str) copies of (arr + [""])
  :e_    e#   Flatten each element of the Cartesian product into a single string
  \a&    e#   Intersect with an array containing only str
}

ค่าส่งคืนเป็นอาเรย์ / สตริงว่าง (เท็จ) หากstrไม่สามารถทำได้หรืออาร์เรย์ที่มีstr(ความจริงแม้ว่าstrตัวเองเป็นสตริงว่าง) ถ้ามันสามารถทำได้

C ++ (Bcc), 287 ไบต์

#include<algorithm.h>
f(a,b)char*a,**b;{int i,j,k,v,p[256];if(!a||!b||!*b)return-1;for(v=0;v<256&&b[v];++v)p[v]=v;if(v>=256)return-1;la:for(i=0,j=0;j<v&&a[i];){for(k=0;b[p[j]][k]==a[i]&&a[i];++i,++k);j=b[p[j]][k]?(i-=k),j+1:0;}if(a[i]&&next_permutation(p,p+v)) goto la;return i&&!a[i];}

เพราะฉันไม่ได้เขียนหรือใช้ next_permutation มากเกินไป () ฉันไม่รู้ว่ามันโอเคไหม ฉันไม่ทราบ 100% ถ้าเป็นวิธีแก้ปัญหาอาจเป็นไปได้ว่ามีคุณภาพ ... รายการสตริงหนึ่งรายการอยู่ที่นี่หนึ่งพอยน์เตอร์ที่จะจัดกลุ่ม; NULL สิ้นสุดอัลโกเป็นเรื่องง่ายมีหนึ่งอัลโกที่เป็นเชิงเส้นลองถ้าสตริงทั้งหมดในรายการพอดีกับอาร์กิวเมนต์ "สตริง" มีอัลโกอื่น ๆ อีกหนึ่งที่เปลี่ยนแปลงดัชนีของรายการของสตริงเพื่อลองชุดที่เป็นไปได้ทั้งหมด

Ungolf มันรหัสการทดสอบและผลลัพธ์ที่นี่

#include<stdio.h>
g(a,b)char*a,**b;
{int i,j,k,v,p[256];
 if(!a||!b||!*b) return -1;
 for(v=0;v<256&&b[v];++v) p[v]=v;
 if(v>=256)      return -1; // one array of len >256 is too much
la: 
 for(i=0,j=0;j<v&&a[i];)
   {for(k=0;b[p[j]][k]==a[i]&&a[i];++i,++k); 
    j=b[p[j]][k]?(i-=k),j+1:0;
   } 
 if(a[i]&&next_permutation(p,p+v)) goto la;
 return i&&!a[i];  
}

#define F for
#define P printf

test(char* a, char** b)
{int i;
 P("f(\"%s\",[",a);
 F(i=0;b[i];++i) 
       P("\"%s\"%s", b[i], b[i+1]?", ":"");
 P("])=%d\n", f(a,b));
}

main()
{char *a1="Hello, world!",    *b1[]={"l","He", "o, worl", "d!",      0};//1
 char *a2="la lal al ",       *b2[]={"la", " l", "al ",              0};//1
 char *a3="this is a string", *b3[]={"this should return falsy",     0};//0
 char *a4="thi is a string",  *b4[]={"this", "i i", " a", " string", 0};//0
 char *a5="aaaaa",            *b5[]={"aa",                           0};//0
 char *a6="foo bar foobar",   *b6[]={"foo","bar"," ","spam",         0};//1
 char *a7="ababab",           *b7[]={"a","ba","ab",                  0};//1
 char *a8="",                 *b8[]={"This return 0 even if has to return 1", 0};//0
 char *a9="ababc",            *b9[]={"a","abc", "b", 0};//1

  test(a1,b1);test(a2,b2);test(a3,b3);test(a4,b4);test(a5,b5);test(a6,b6);
  test(a7,b7);test(a8,b8);test(a9,b9);
}

f("Hello, world!",["l", "He", "o, worl", "d!"])=1
f("la lal al ",["la", " l", "al "])=1
f("this is a string",["this should return falsy"])=0
f("thi is a string",["this", "i i", " a", " string"])=0
f("aaaaa",["aa"])=0
f("foo bar foobar",["foo", "bar", " ", "spam"])=1
f("ababab",["a", "ba", "ab"])=1
f("",["This return 0 even if has to return 1"])=0
f("ababc",["a", "abc", "b"])=1

สิ่งนี้จะรวบรวมในคอมไพเลอร์ gcc C ++

#include<algorithm>

int f(char*a,char**b){int i,j,k,v,p[256];if(!a||!b||!*b)return -1;for(v=0;v<256&&b[v];++v)p[v]=v;if(v>=256)return -1;la:;for(i=0,j=0;j<v&&a[i];){for(k=0;b[p[j]][k]==a[i]&&a[i];++i,++k);j=b[p[j]][k]?(i-=k),j+1:0;}if(a[i]&&std::next_permutation(p,p+v))goto la;return i&&!a[i];}

Python ขนาด 66 ไบต์

lambda s,l:s==''or any(x==s[:len(x)]and f(s[len(x):],l)for x in l)

Ungolfed:

def f(s,l):
    if s=='': 
        return 1
    for x in l:
        if s.startswith(x) and f(s[len(x):],l):
            return 1
    return 0

เซิร์ฟเวอร์ SQL Sql, 353 ไบต์

u as(select s.n,s collate Latin1_General_BIN s,l collate Latin1_General_BIN l,
row_number()over(partition by l.n order by len(l)desc)r from s,l where s.n=l.n),
v as(select n,s,l,replace(s,l,'')c,r from u where r=1 union all
select u.n,u.s,u.l,replace(v.c,u.l,''),u.r from v,u where v.n=u.n and v.r+1=u.r)
select s,iif(min(c)='',1,0)u from v group by n,s

ทดสอบออนไลน์

รุ่นที่อ่านได้:

with s as(
  select n,s
  from(values(1,'Hello, world!'),
             (2,'la lal al '),
             (3,'this is a string'),
             (4,'thi is a string'),
             (5,'aaaaa'),
             (6,'foo bar foobar'),
             (7,'ababab'),
             (8,''))s(n,s)),
l as(
  select n,l
  from(values(1,'l'),(1,'He'),(1,'o, wor'),(1,'d!'),
             (2,'la'),(2,' l'),(2,'al '),
             (3,'this should return falsy'),
             (4,'this'),(4,'i i'),(4,' a'),(4,' string'),
             (5,'aa'),
             (6,'foo'),(6,'bar'),(6,' '),(6,'spam'),
             (7,'a'),(7,'ba'),(7,'ab'),
             (8,'The string can be constructed with nothing!'))l(n,l)),
--The solution starts from the next line.
u as(
  select s.n,
    s collate Latin1_General_BIN s,
    l collate Latin1_General_BIN l,
    row_number()over(partition by l.n order by len(l)desc)r
  from s,l
  where s.n=l.n),
v as(
  select n,s,l,replace(s,l,'')c,r from u where r=1
    union all
  select u.n,u.s,u.l,replace(v.c,u.l,''),u.r
  from v,u
  where v.n=u.n and v.r+1=u.r
)
select s,iif(min(c)='',1,0)u from v group by n,s

C, 140 ไบต์

ฉันแน่ใจว่ามีวิธีที่สั้นกว่าในการทำเช่นนี้ใน C แต่ฉันต้องการสร้างโซลูชันที่ทดสอบการรวม substrings ที่เป็นไปได้ทั้งหมดแทนที่จะใช้วิธีการค้นหา / แทนที่แบบปกติ

char p[999];c,o;d(e,g,l,f)int*e,**g,**l;{c=f&&c;for(l=g;*l;)strcpy(p+f,*l++),(o=strlen(p))<strlen(e)?d(e,g,0,o):(c|=!strcmp(e,p));return c;}

ลองออนไลน์

Ungolfed:

#include <string.h>
#include <stdio.h>

char buf[999];
int result;
int temp;

int test(char *text, char **ss, char **ptr, int length) 
{
    if (length == 0)
        result = 0;

    for(ptr = ss; *ptr; ptr++)
    {
        strcpy(buf + length, *ptr);
        temp = strlen(buf);
        if (temp < strlen(text))
        {
            // test recursivly
            test(text, ss, 0, temp);
        }
        else
        {
            if (strcmp(buf, text) == 0)
                result = 1;
        }
    }
    return result;
}

int main()
{
    char *text = "Hello,World";
    char *keywords[] = { "World", "Hello", ",", 0 };
    printf("%d", test(text, keywords, 0, 0));
}