pengantar

Beberapa waktu yang lalu seorang pengguna SO yang hilang memposting pertanyaan di sini dan sekarang sudah dihapus tapi saya pikir itu akan menjadi tantangan yang bagus jadi begini ...

Tantangan

Tulis program atau fungsi lengkap yang membutuhkan dua string dan periksa apakah permutasi string pertama adalah sub-string dari string kedua.

Memasukkan

Dua string, string dan sub-string untuk diuji (Anda dapat memilih urutannya).

Keluaran:

Nilai kebenaran jika string berisi permutasi dari sub-string.
Nilai falsey jika string tidak mengandung permutasi dari sub-string.
Tes ini peka terhadap huruf besar-kecil.

Contoh / Uji kasus

         sub-string    string          
input    d!rl          Hello World!
output   truthy

input    Pog           Programming Puzzles & Code Golf
output   falsey

input    ghjuyt        asdfhytgju1234
output   truthy

Brachylog , 2 byte

sp

Cobalah online!

Penjelasan

Input variable = "Hello World!", Output variable = "d!rl"

(?)s        Take a substring of the Input variable
    p(.)    It is a permutation of the Output variable

JavaScript (ES6), 77 byte

(s,t)=>t&&[...t.slice(0,s.length)].sort()+''==[...s].sort()|f(s,t.slice(1))

Mengembalikan 1 atau 0.

Potongan

f=

(s,t)=>t&&[...t.slice(0,s.length)].sort()+''==[...s].sort()|f(s,t.slice(1))

console.log(f('d!rl','Hello World!'))                   //1
console.log(f('Pog','Programming Puzzles & Code Golf')) //0
console.log(f('ghjuyt','asdfhytgju1234'))               //1

Python 2, 67 66 byte

Mengambil input sebagai dua string, substring terlebih dahulu.

a=sorted
lambda s,S:a(s)in[a(S[n:n+len(s)])for n in range(len(S))]

05AB1E , 3 byte

όZ

Cobalah online!

-1 byte terima kasih kepada Emigna .

Penjelasan:

όZ 2 inputs
œ                  permutations of the first input
 å  Is each of the                                 in the second input?
  Z Take the maximum of the resulting boolean list

Java 8, 266 244 byte

import java.util.*;Set l=new HashSet();s->p->{p("",p);for(Object x:l)if(s.contains(x+""))return 1>0;return 0>1;}void p(String p,String q){int n=q.length(),i=0;if(n<1)l.add(p);else for(;i<n;)p(p+q.charAt(i),q.substring(0,i)+q.substring(++i,n));}

Penjelasan:

Coba di sini.

java.util.*;                   // Required import for Set and HashSet

Set l=new HashSet();           // Class-level Set

s->p->{                        // Method (1) with two String parameters and boolean return-type
  p("",p);                     //  Put all permutations in the class-level Set
  for(Object x:l)              //  Loop over the permutations:
    if(s.contains(x+""))       //   If the input String contains one of the permutations:
      return 1>0;//true        //    Return true
                               //  End of loop (implicit / single-line body)
  return 0>1;//false           //  Return false
}                              // End of method (1)

void p(String p,String q){     // Method (2) with two String parameters and no return-type
  int n=q.length(),i=0;        //  Two temp integers
  if(n<1)                      //  If `n` is zero:
    l.add(p);                  //   Add this permutation of the String to the Set
  else                         //  Else:
    for(;i<n;                  //   Loop over `n`
      p(p+q.charAt(i),q.substring(0,i)+q.substring(++i,n))
                               //    Recursive-call with permutation parts
    );                         //   End of loop (no body)
}                              // End of method (2)

Jelly , 5 byte

Œ!ẇ€Ṁ

Cobalah online!

-1 terima kasih kepada Emigna karena mendorong saya untuk mencoba lagi bermain golf.

Penjelasan:

Œ!ẇ€Ṁ Main link, dyadic
Œ!               the permutations of the left argument
  ẇ€  Is each of                                      in the right argument?
    Ṁ Maximum of boolean values 

Japt, 10 7 byte

á d!èV

Cobalah online

Penjelasan

á d@VèX  
         :Implicit input of (sub)string U
á        :Create an array of all possible permutations of U
  d      :Map over the array, checking if any element returns true for...
   @     :the function that checks..
     è   :the number of matches...
      X  :of current element (permutation) X...
    V    :in main string V.
         :(0 is falsey, anything else is truthy)
         :Implicit output of result

Python , 60 byte

Bentuk jawaban TFeld yang berubah - berikan kredit!

s=sorted
f=lambda u,t:s(u)==s(t[:len(u)])or t and f(u,t[1:])

Fungsi rekursif mengembalikan boolean True(truey) atau string kosong (falsy).

Cobalah online!

mengurutkan substring,, udan panjang yang sama dari bagian depan string,, t(menggunakan slice t[:len(u)]) jika mereka sama maka Truedikembalikan, jika ttidak masih benar (tidak kosong) berulang dengan dequeued t(menggunakan slice, t[1:]) . Jika tmenjadi kosong maka andtidak dieksekusi dan ini kosong tdikembalikan.

Pyth, 9 8 byte

sm}dQ.pE

-1 byte terima kasih kepada @Erik_the_Outgolfer

Mengambil dua string yang dikutip, yang kedua adalah substring.

Cobalah!

Mathematica, 55 50 byte

-5 byte dari user202729

StringFreeQ[#2,""<>#&/@Permutations@Characters@#]&

Kembali Falsejika permutasi input pertama ada di string kedua. Kembali Truejika permutasi input pertama tidak dalam string kedua.

Penjelasan:

                                    Characters@#   - split first string into array of characters
                       Permutations@               - make all permutations
               ""<>#&/@                            - join each array of characters together to form a single string
StringFreeQ[#2,                                 ]& - Check if any of these string is in the second input string

CJam , 13 12 byte

le!lf{\#)}:+

Cobalah online!

Saya merasa CJam benar-benar terbatas dibandingkan dengan bahasa golf lainnya, tapi mungkin hanya saya saja yang buruk ...

Saya sedang berpikir untuk pindah ke yang lain. 05AB1E sepertinya menyenangkan.

Memperbaiki bug kecil berkat Erik the Outgolfer
Cut satu gigitan karena angka yang bukan nol adalah benar

Penjelasan:

l                 Read substring
 e!               Generate all permutations
   l              Read string
    f{            For each permutation
      \#            Check if it is in the string (returns -1 if not found)
        )           Add one
         }        End for
          :+      Sum the whole found/not found array

Java 9 JShell , 160 byte

p->q->IntStream.range(0,q.length()-p.length()+1).anyMatch(
    i->Arrays.equals(
        q.substring(i,i+p.length()).chars().sorted().toArray(),
        p.chars().sorted().toArray()))

(baris baru disisipkan untuk dibaca)

Cobalah online!

Catatan: JShell menyertakan sejumlah impor secara default. Sebagai solusi Java 8 atau Java 9, perlu mengimpor:

import java.util.*;import java.util.stream.*;

Untuk tambahan 45 byte, atau total 205 byte. TIO link di atas adalah untuk program Java 9 karena TIO saat ini tidak memiliki JShell (dan tidak jelas bagi saya bagaimana JShell akan bekerja pada TIO).

C #, 320 byte

using System.Linq;s=>u=>p(u.ToArray(),0,u.Length-1).Any(p=>s.Contains(p));w=(c,a,b)=>{if (a!=b)(var t=c[a];c[a]=c[b];c[b]=t;)};System.Collections.Generic.IEnumerable<string>p(char[]l,int k,int m){if(k==m)yield return new string(l);else for(int i=k;i<=m;){w(l,k,i);foreach(var c in p(l,k+1,m))yield return c;w(l,k,i++);}}

Saya yakin menghitung permutasi bisa jauh lebih pendek tapi saya tidak bisa melihat bagaimana saat ini.

Versi yang diformat / Lengkap:

void test()
{
    Func<string, Func<string, bool>> f = s => u =>
        p(u.ToArray(), 0, u.Length - 1).Any(p => s.Contains(p));

    Console.WriteLine(f("Hello World!")("d!rl"));
    Console.WriteLine(f("Programming Puzzles & Code Golf")("Pog"));
    Console.WriteLine(f("asdfhytgju1234")("ghjuyt"));
}

System.Collections.Generic.IEnumerable<string>p(char[] l, int k, int m)
{
    Action<char[], int, int> w = (c, a, b) =>
    {
        if (a != b)
        {
            var t = c[a];
            c[a] = c[b];
            c[b] = t;
        }
    };

    if (k == m)
        yield return new string(l);

    else
        for (int i = k; i <= m;)
        {
            w(l, k, i);

            foreach (var c in p(l, k + 1, m))
                yield return c;

            w(l, k, i++);
        }
}

Ruby , 69 byte

->a,b{r=nil;a.chars.each_cons(b.size){|q|r||=q.sort==b.chars.sort};r}

Cobalah online!

Perl 6 , 48 byte

{$^a.contains(any $^b.comb.permutations».join)}

Mengembalikan persimpangan atau-setiap kehadiran permutasi sebagai substring. Misalnya, dengan argumen "Hello World!"dan "d!l", mengembalikan:

any(False, False, False, False, True, False)

... yang "runtuh" ​​ke Truedalam konteks boolean. Artinya, persimpangan adalah nilai kebenaran.

PHP> = 7.1, 91 Bytes

for([,$x,$y]=$argv;~$p=substr($y,$i++,strlen($x));)$t|=($c=count_chars)($x)==$c($p);echo$t;

Testcases

Haskell, 54 byte

import Data.List
s#t=any(`isInfixOf`s)$permutations t

Menggunakan kekuatan Data.List untuk keduanya isInfixOfdan juga permutations.

R , 103 byte

function(w,x,y=u(w),z=u(x)){for(i in 1:n(w)){F=F|!sum(setdiff(y[1:n(x)+i-1],z))};F}
u=utf8ToInt
n=nchar

Cobalah online!

Kembali TRUEuntuk kebenaran dan NAkepalsuan.

APL (Dyalog) , 18 byte

{∨/(∧/⍺∊⊢)¨⍵,/⍨⍴⍺}

Cobalah online!

MATL, 10 byte

Y@Z{w&Xfma

Cobalah di MATL Online