Враховуючи рядок sта масив / список l, визначте, чи sможна робити чи ні з частинами з l.

Наприклад, якщо рядок є, "Hello, world!"а список є [' world!', 'Hello,'], то програма / функція повинна повернути триєдне значення, оскільки ви можете упорядкувати список для формування рядка. Наступний список буде також повертати значення truthy: ['l', 'He', 'o, wor', 'd!']. Тільки уявіть собі 'l'заповнення там, де це потрібно в рядок. Так що так, ви можете повторити елементи списку, щоб сформувати рядок. Якщо він не може сформувати рядок, він повинен повернути хибне значення. Застосовуються стандартні методи ІО, стандартні лазівки.

Тестові приклади:

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

Брахілог , 8 байт

~c¬{∋¬∈}

Спробуйте в Інтернеті!

Це справді повільно. На тему "Привіт, світ!" Пішло близько 37 секунд. тестовий випадок на моєму ПК та вичерпаний на 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 .

Математика, 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 список, що містить що-небудь, навіть нульовий рядок ( ['']), оцінюється як істинний.

Спробуйте в Інтернеті!

Пояснення:

                             | 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']]після кожної ітерації циклу while, це ми отримаємо:

['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!|(завдяки цьому метахарактори уникнули \Q..\E, а потім виглядає, чи відповідає перший рядок цьому шаблону /^($v)*$/.

На TryItOnline зауважте, що повинен бути зворотний новий рядок.

PHP, 69 байт

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

Тестові шафи

Пітон 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). Повернення false/ true.

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

Хаскелл , 35 байт

#бере a Stringі список Strings і повертає a Bool.

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

Спробуйте в Інтернеті!

Тільки не заперечуйте тестовий випадок, який я залишив, бо він розбив мій мізерний ноутбук, навіть із -O2. Я підозрюю, що GHC не змикає цей проміжний список елементів 30517578125, він має занадто багато спільного доступу, щоб швидко зібрати сміття, і оскільки тестовий випадок помилковий, програма повинна генерувати все це ... не соромтеся спробувати, якщо зможете впорайтеся з цим.

mapM("":)(l<$s)- це список усіх способів складання length sсписку елементів, з яких або порожні рядки, або рядки l.

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'|'))

Досить прямолінійний підхід на основі регулярних виразів.

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(truthy, навіть якщо 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%, чи це занадто рішення, можливо, це не в якості ... Один список рядків - це один масив покажчиків на char; Закінчується NULL. Algo є простим, є одне algo, що лінійність спробуйте, якщо вся рядок у списку відповідає аргументу "a" рядок, є ще один algo, який перестановлює індекс списку рядків, щоб спробувати всі можливі комбінації.

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

Пітон, 66 байт

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

Безголівки:

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

Сервер Microsoft 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 існує коротший спосіб зробити це, але я хотів створити рішення, яке тестує всі можливі комбінації підрядків замість звичайного методу пошуку / заміни.

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

Спробуйте в Інтернеті

Безголівки:

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