挑戦

あなたが与えられている：

• 正の整数の空ではない、ソートされていないリストh（haystack）
• 正の整数n（針）

あなたの仕事は、バイナリ表現がnのバイナリ表現を含むhの順列のすべての一意の 10進連結のリストを返すことです。

例

1. h = [1、2、3]
   n = 65

   

   一致する連結は1つしかないため、予想される出力は[321]です。

2. h = [1、2、3]
   n = 7

   今回は、バイナリパターン111を含む3つの連結があります。予想される出力は[123, 231, 312]です。

3. h = [12、3]
   n = 7

   2つの順列のみが使用可能で、両方が一致しています。予想される出力は[123, 312]です。

4. h = [1、2、2]
   n = 15

   唯一のマッチング連結である122（1111010含むバイナリで1111予想出力されるように、） [122]。2つの順列は実際には122になりますが、出力することはできません[122, 122]。

明確化と規則

• 針は、整数（65）、10進数値を表す文字列（）、"65"または2進値を表す文字列（"1000001"）として使用できます。
• haystackは、ネイティブ配列/オブジェクト/整数のセット（[11,12,13]）、ネイティブ配列/オブジェクト/ 10進値を表す文字列のセット（["11","12","13"]）、または10進値の区切り文字列（"11 12 13"または"11,12,13"）として取得できます。数字の配列（など[[1,1],[1,2],[1,3]]）を使用してバリアントを選択することもできます。
• 出力は、上記のhaystackの形式のいずれかに従う必要がありますが、必ずしも同じ形式である必要はありません。
• 最高の10進連結が、言語で表現可能な最高の符号なし整数より大きいhaystacksを処理することは想定されていません。
• それとは別に、十分な時間とメモリが与えられていると仮定すると、コードは理論的にはすべての入力をサポートする必要があります。
• これはスパルタです！ code-golfなので、バイト単位の最短回答が勝ちます！

テストケース

Haystack             | Needle   | Output
---------------------+----------+-----------------------------------
[ 1, 2, 3 ]          | 65       | [ 321 ]
[ 1, 2, 3 ]          | 7        | [ 123, 231, 312 ]
[ 12, 3 ]            | 7        | [ 123, 312 ]
[ 1, 2, 2 ]          | 15       | [ 122 ]
[ 1, 2 ]             | 7        | []
[ 12, 34, 56 ]       | 21       | [ 125634, 341256, 345612, 563412 ]
[ 1, 2, 3, 4, 5 ]    | 511      | [ 53241 ]
[ 1, 3, 5, 7, 9 ]    | 593      | [ 37519, 51793, 75913, 75931 ]
[ 11, 12, 13, 14 ]   | 12141311 | [ 12141311 ]
[ 1, 2, 1, 2, 1, 2 ] | 1015     | [ 221112 ]

05AB1E、10 8バイト

バイナリで針を取り、1バイトを節約します。

Emignaのおかげで-2バイト

œJÙʒbŒIå

オンラインでお試しください！

œJÙʒbŒIå   Arguments: a, n
œJÙ        Get all unique permutations of a
   ʒ       Filter: Keep if following code returns true
    b      Convert to binary
     Π    Get all substrings
      Iå   Check if substrings contain n
           Implicit output of filtered list

Python 2、90バイト

@GáborFeketeのおかげで-3バイト

オンラインで試す

入力文字列の配列として、干し草と文字列のintを表し、バイナリで針を表す

from itertools import*
lambda H,N:{i for i in permutations(H)if N in bin(int(''.join(i)))}

Java 10、320 312 305 297 292バイト

import java.util.*;Set s=new HashSet();l->n->{Long q=0;p(l,0);for(var x:s)if(q.toString(q.decode(x+""),2).contains(n))System.out.println(x);}void p(List l,int k){int i=k,x=l.size();for(Collections C=null;i<x;p(l,k+1),C.swap(l,k,i++))C.swap(l,i,k);if(k>x-2)s.add((l+"").replaceAll("\\D",""));}

リストとバイナリ文字列として入力し、改行文字列として出力します。

説明：

ここで試してみてください。

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

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

l->n->{                       // Method (1) with List and String parameters and no return-type
  Long q=0;                   //  Number-object is required for two static method-calls below
  p(l,0);                     //  Determine all permutations of given list and put it in the Set
  for(var x:s)                //  Loop over these permutations
    if(q.toString(q.decode(x+""),2)
                              //   If the binary String of the current permutation
        .contains(n))         //   contains the binary String of the input integer
      System.out.println(x);} //    Print this permutation

void p(List l,int k){         // Method (2) with List and integer parameters and no return-type
  int i=k,x=l.size();         //  Two temp integers
  for(Collections C;          //  Collections-object is required for two static method-calls below
      i<x                     //  Loop `i` in the range [`k`, list-size)
      ;                       //    After every iteration:
       p(l,k+1),              //     Do a recursive-call to this method with `k+1`
       Collections.swap(l,k,i++))
                              //     And swap the items at indices `k` and `i` back
    Collections.swap(l,i,k);  //   Swap the items at indices `i` and `k`
  if(k>x-2)                   //  If `k` is now equal to the size of the list - 1
    s.add((l+"").replaceAll("\\D",""));}
                              //   Add this permutation to the Set

Japt、15 14 13 12 10バイト

haystackを整数の配列として、針をバイナリ文字列として受け取ります。整数文字列の配列を出力します。

á m¬f_°¤øV

• ETHproductionsのおかげで1バイト節約

それを試してみてください

説明

á m¬â f_°¤øV
              :Implicit input of array U=haystack and string V=needle
á             :Unique permutations of U
  m           :Map
   ¬          :  Join to a string
    f_        :Filter
      °       :  Postfix increment current element to cast it to an integer
       ¤      :  Convert to base-2 string
        øV    :  Does that contain V?
              :Implicit output of resulting array

ルビー、61 59バイト

->a,n{a.permutation.select{|s|"%b"%s.join=~/#{"%b"%n}/}|[]}

オンラインでお試しください！

その日のクールな機能：数字を含む文字列のバイナリ表現を出力できるとは知りませんでした。

例：

puts "%b"%"123"

-> 1111011

JavaScript（ES6）、140バイト

needleをバイナリ文字列として受け取ります。

(h,n,S=new Set,p=(a,m='')=>a.length?a.map((_,i)=>p(A=[...a],m+A.splice(i,1))):S.add(+m),_=p(h))=>[...S].filter(d=>~d.toString(2).indexOf(n))

f=
(h,n,S=new Set,p=(a,m='')=>a.length?a.map((_,i)=>p(A=[...a],m+A.splice(i,1))):S.add(+m),_=p(h))=>[...S].filter(d=>~d.toString(2).indexOf(n))

console.log( f([1, 2, 3], (65).toString(2)) )
console.log( f([12, 34, 56], (21).toString(2)) )

Brachylog、15バイト

{hpc.ḃs~ḃ~t?∧}ᵘ

オンラインでお試しください！

説明

{            }ᵘ    Find all unique outputs, given [h, n], of:
 hpc.                The Output is the concatenation of a permutation of h
    .ḃs              Take a substring of the binary representation of the Output
       ~ḃ            Convert it back to a decimal number
         ~t?∧        This decimal number must me n

Mathematica、170 156バイト

(t={};l=Length;v=IntegerDigits;j=v[#2, 2];s=FromDigits/@Flatten/@v@Permutations@#1;Table[If[l@SequenceCases[v[s[[i]],2],j]>0,t~AppendTo~s[[i]]],{i,l@s}];t)&

入力

[{12、34、56}、21]

出力

{125634、341256、345612、563412}

CJam、23 22 21 19バイト

{e!{si2b1$2b#)},\;}

これはn h、スタック上の入力を受け取り、スタック上の配列として出力を残すブロックです。

説明：

                   e# Stack:                      | 65 [1 2 3]
e!                 e# Unique Permutations:        | 65 [[1 2 3] [1 3 2] [2 1 3] [2 3 1] [3 1 2] [3 2 1]]
  {                e# Filter where block is true: | 65 [3 2 1]
   s               e#   Convert to string:        | 65 "321"
    i              e#   Convert to int:           | 65 321
     2b            e#   Convert to binary:        | 65 [1 0 1 0 0 0 0 0 1]
       1$          e#   Copy behind:              | 65 [1 0 1 0 0 0 0 0 1] 65
         2b        e#   Convert to binary:        | 65 [1 0 1 0 0 0 0 0 1] [1 0 0 0 0 0 1]
           #       e#   Find array in another:    | 65 2
            )      e#   Increment:                | 65 3
             },    e# End filter                  | 65 [321]
               \;  e# Delete back:                | [321]

R、114バイト

pryr::f(plyr::l_ply(combinat::permn(x),function(y)if(grepl(p,R.utils::intToBin(paste(y,collapse=""))))cat(y,"\n")))

多数のパッケージを使用します。pryr::f()は、p検索するバイナリパターンの文字列と、x入力として他の入力を持つベクトルを使用して、関数を自動的に作成します。combinat::permnのすべての順列を作成しますx。R.utils::intToBin数値（または数値の文字表現）を2進数に変換するための素敵で冗長なバージョンで、既に文字として便利に保存されています。したがって、これをすべての順列に適用し、バイナリ文字列pがバイナリバージョンの連結に含まれている場合は出力します。そうでない場合、出力はになるため、明示的な改行が印刷されます12 56 3456 34 1234 56 1234 12 56。

plyrさんは、l_ply定期的な出力のほかに、ヌルリストを出力surpressに使用されています。このような出力が許可されている場合：

3 2 1 
[[1]]
NULL

[[2]]
NULL

[[3]]
NULL

[[4]]
NULL

[[5]]
NULL

[[6]]
NULL

次に、lapply代わりに次を使用して数バイトを節約できます。

108バイト：

pryr::f(lapply(combinat::permn(x),function(y)if(grepl(p,R.utils::intToBin(paste(y,collapse=""))))cat(y,"\n")))

このような出力が許可されている場合：

[[1]]
NULL

[[2]]
NULL

[[3]]
NULL

[[4]]
[1] 3 2 1

[[5]]
NULL

[[6]]
NULL

それからもっと短くすることができます：

101バイト：

pryr::f(lapply(combinat::permn(x),function(y)if(grepl(p,R.utils::intToBin(paste0(y,collapse=""))))y))

禁じられている。

Perl 6、69バイト

{set @^a.permutations».join.grep(*.fmt('%b').contains($^b.base(2)))}