このチャレンジでは、リストが完全に整数と有効なリスト（再帰的定義\ o /）で構成されている場合にのみ、リストは有効と見なされます。このチャレンジでは、有効なリストと整数を指定して、整数が見つかるすべての深さのリストを返します。

例

list [1, [2, [3, [1, 2, 3], 4], 1], 1]とintegerを考えてみましょう1。次に、次のようにリストを引き出します。

Depth 0 1 2 3
Num   1
        2
          3
            1
            2
            3
          4
        1
      1

あなたはそれ1が深さで現れることに気付くでしょう0, 1, 3。したがって、出力は0, 1, 3適切な形式にする必要があります（順序は関係ありません）。

深さは0インデックスまたは1インデックスのどちらでもかまいませんが、提出の際にどちらを指定するかを指定してください。

テストケース（0インデックス付き）

リストの場合[1,[2,[3,4],5,[6,7],1],[[[[5,2],4,[5,2]]],6],3]：

1 -> [0, 1]
2 -> [1, 4]
3 -> [0, 2]
4 -> [2, 3]
5 -> [1, 4]
6 -> [1, 2]
7 -> [2]

リストの場合[[[[[1],0],1],0],1]：

0 -> 1, 3
1 -> 0, 2, 4

リストの場合[11,22,[33,44]]：

11 -> [0]
22 -> [0]
33 -> [1]
44 -> [1]

検索語がリスト内のどこにも存在しない場合、空のリストを返します。

負の値とゼロの値は、入力リストと用語で有効です。

Mathematica、25バイト

Tr/@Union[1^Position@##]&

（1インデックスの出力を返します）

説明

                         test  {1, {2, {3, {1, 2, 3}, 4}, 1}, 1}
             Position[test,1]  {{1}, {2, 2, 2, 1}, {2, 3}, {3}}
           1^Position[test,1]  {{1}, {1, 1, 1, 1}, {1, 1}, {1}}
    Union[1^Position[test,1]]  {{1}, {1, 1}, {1, 1, 1, 1}}
Tr/@Union[1^Position[test,1]]  {1, 2, 4}

Haskell、102 93 80 76バイト

いくつかのバイトを保存してくれたBruce Forteと、さらに保存してくれたLaikoniに感謝します。

4バイトを保存してくれた4castleに感謝します。

Haskellにはこの種のリストのデータ型がないため、独自に作成しました。

このソリューションは 1-indexed

import Data.List
data T=E Int|L[T]
E n%x=[0|x==n]
L s%x=nub$map(+1).(%x)=<<s

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

最初に（再帰的に）データ型を定義します T

TタイプE Int（タイプの単一要素Int）またはL[L]（タイプのリスト）のいずれかを持ちますT。

(%)2typeの引数をとる関数で、T検索対象のリストとx、検索対象のリストIntです。

(%)単一の要素E nであるものを見つけるたびに、True とn等しいかどうかをチェックしx、戻ります0。

場合(%)に適用されるL s（ここで、sタイプが持って[T]）それが実行され(%)、すべての要素にs（我々は内部を見ているので、深さが増加しているようにインクリメント結果s）、その結果を連結します。

nub 次に、リストから重複を削除します

NB。import Data.Listはのみですnub。

Python 2、68バイト

f=lambda l,k,d=-1:l>[]and f(l[0],k,d+1)|f(l[1:],k,d)or{d}-{d+(l==k)}

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

Python 2、72バイト

f=lambda l,k,d=0:set([d]*(k in l)).union(*[f(x,k,d+1)for x in l if[]<x])

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

ゼリー、11 8バイト

WẎÐĿċ€IT

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

使い方

WẎÐĿċ€IT  Main link. Left argument: A (array). Right argument: n (integer)

W         Wrap; yield [A].
  ÐĿ      Repeatedly apply the link to the left until the results are no longer
          unique. Yield the array of all unique results.
 Ẏ          Concatenate all elements at depth 1 in the array.
          The last array of the array of results is completely flat.
    ċ€    Count the occurrences of n in each intermediate result.
      I   Compute all forward differences.
       T  Truth; yield the array of all indices of non-zero differences.

実行例

左引数用

[1, [2, [3, [1, 2, 3], 4], 1], 1]

W 最初に次の配列が生成されます。

[[1, [2, [3, [1, 2, 3], 4], 1], 1]]

ẎÐĿ繰り返しの深さでのすべての要素連結する1によってアレイの深さを減少させる、1ステップごとに。これにより、次の一連の中間結果が生成されます。

[
 [[1, [2, [3, [1, 2, 3], 4], 1], 1]],
 [ 1, [2, [3, [1, 2, 3], 4], 1], 1 ],
 [ 1,  2, [3, [1, 2, 3], 4], 1,  1 ],
 [ 1,  2,  3, [1, 2, 3], 4,  1, 1  ],
 [ 1,  2,  3,  1, 2, 3,  4,  1, 1  ]
]

右引数1の場合、各中間結果の1ċ€の出現をカウントします。

[0, 2, 3, 3, 4]

I 現在、すべての前方差分を取ります。

[2, 1, 0, 1]

ゼロ以外の差異は、深さ1に少なくとも1つの他の1が追加されたステップに対応します。したがって、インデックスkでの非ゼロの差は、深さkでの1の存在を示します。すべての真理値要素のインデックスを検索し、目的の結果を生成します。T

[1, 2, 4]

R、101 95 92100バイト

f=function(L,n,d=0)unique(unlist(Map(function(x)if(n%in%unlist(x))"if"(is.list(x),f(x,n,d+1),d),L)))

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

再帰的ソリューション; バイトでは非常に非効率的ですが、Rを使用するのlistsは非常に面倒です。

基本的に、とりL、各要素のためxのL、（Aいずれかであるlistか、atomic一つの要素のベクトル）は、か否かをチェックnされ%in% x、次にか否かをチェックxですlist。そうでない場合はx==n、深度を返しdます。そうでない場合は、我々は、再帰的に呼び出すfにxインクリメントd。

これは、もちろん、返しlistた我々 、unlist及びunique（整数深さのベクトルを返す）右出力を確保します。NULLinvalidに対して（空のリスト）を返しますn。

どうやら、私が思っ%in%たlistように再帰的に検索しないのでunlist(x)、+ 8バイト必要です:(

APL（Dyalog）、39バイト*

完全なプログラム。リストを要求し、次に番号を要求します。1から始まるリストをSTDOUTに出力します。

⌊2÷⍨⍸∨⌿⍞⍷⎕FMT⎕JSON⍠'Compact'0⊢⎕

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

⎕ リストのプロンプト

⊢ 収率は、（分離し0そして⎕）

⎕JSON⍠'Compact'0 改行でインデントされたJSON文字列に変換します

⎕FMT マトリックスに変換（行ごとに改行で区切られた1行）

⍞⍷ 文字列として数値を入力し、その開始位置を示します

∨⌿ 垂直OR縮小（つまり、どの列で始まるか）

⍸ それらの始まりのインデックス

2÷⍨ 半分に（レベルは2つのスペースでインデントされます）

⌊ 切り捨て（最初のデータ列は列3であるため）

^{* Dyalog Classicでは⍸、⎕U2378と⍠としてカウントし⎕OPTます。}

PHP、117バイト

$r;function z($a,&$r,$i=0){foreach($a as $v){is_int($v)?(@in_array($i,$r[$v])?:$r[$v][]=$i):z($v,$r,$i+1);}}z($s,$r);

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

JavaScript（ES6）、79 68バイト

f=(a,n,r=new Set,d=0)=>a.map(e=>e.map?f(e,n,r,d+1):e-n||r.add(d))&&r

Setを返します。これが受け入れられない場合は&&[...r]、5バイトのコストで使用してください。

ゼリー、 17  16 バイト

⁴e®;©ȧ⁸ḟ⁴ẎµÐĿȧ®T’

リストとチェックする要素の2つのコマンドライン引数を取り、要素が存在する深さ（ある場合）を出力する完全なプログラム。結果は1から始まります。

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

どうやって？

⁴e®;©ȧḟ⁴ẎµÐĿȧ®T’ - Main link: list, L
          µÐĿ    - loop, collecting updated values of L, until a fixed point is reached:
⁴                -   4th argument (2nd program input) = the number
 e               -   exists in (the current version of) L?
  ®              -   recall value from the register (initially 0)
   ;             -   concatenate the two
    ©            -   (copy this result to the register)
       ⁴         -   4th argument (2nd program input) again
      ḟ          -   filter out (discard any instances of the number)
     ȧ           -   logical and (non-vectorising)
        Ẏ        -   tighten (flatten the filtered L by one level to create the next L)
             ®   - recall value from the register
            ȧ    - logical and (non-vectorising)
              T  - truthy indexes (1-indexed)
               ’ - decrement (account for the leading zero from the initial register)

JavaScript（ES6）、73 74バイト

f=(a,n,i=0,o={})=>a.map(e=>e.pop?f(e,n,i+1,o):e-n||o[i]++)&&Object.keys(o)

説明：

f=(a,                             //input array
   n,                             //input number to search
   i=0,                           //start at first level
   o={}                           //object to store the finds
  )=>
    a.map(                        //loop through the array
      e => e.pop ?                //is this element an array?
             f(e, n, i+1, o) :    //if so, recurse on it to the next level
             e-n || o[i]++        //otherwise, update o if element equals the number
    ) &&
    Object.keys(o)                //return o's keys

テストケース

f=(a,n,i=0,o={})=>a.map(e=>e.pop?f(e,n,i+1,o):e-n||o[i]++)&&Object.keys(o)

var a = [1,[2,[3,4],5,[6,7],1],[[[[5,2],4,[5,2]]],6],3];
console.log(f(a,1));
console.log(f(a,2));
console.log(f(a,3));
console.log(f(a,4));
console.log(f(a,5));
console.log(f(a,6));
console.log(f(a,7));

console.log('___________');
var a = [[[[[1],0],1],0],1];
console.log(f(a,0));
console.log(f(a,1));

console.log('___________');
var a = [11,22,[33,44]];
console.log(f(a,11)) // [0]
console.log(f(a,22)) // [0]
console.log(f(a,33)) // [1]
console.log(f(a,44)) // [1]
console.log(f(a,55)) // empty set

Pythonの3、123の 86 82バイト

def f(a,n,l=[],d=0):
 for e in a:l+=[d]*(e==n);0*e==[]and f(e,n,l,d+1)
 return{*l}

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

Hyper Neutrinoとovsのおかげで-37バイト

ジョナサンフレッシュのおかげで-4バイト

APL（Dyalog Classic）、31 30バイト

関数。左引数⍺は針、右引数⍵は干し草の山です。

{×≢⍵:(⍳⍺∊⍵),1+⍺∇⊃,/⍵/⍨≢¨⍴¨⍵⋄⍬}

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

オクターブ、126 122バイト

function n=r(p,t,l)n=[];if nargin<3
l=0;end
for x=p
if iscell(q=x{1})a=r(q,t,l+1);else
a=l*find(q==t);end
n=union(n,a);end

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

読みやすくするために;、可能な場合はスペースまたは'を行末に置き換えました。改変されていないコードの説明：

function n=r(p,t,l) % Declare function with list p, integer t and optional recursion depth l
n=[];
if nargin<3
    l=0;            % If l is not given (first iteration), set l to zero (or one for 1-indexing)
end
for x=p             % Loop over list
if iscell(q=x{1})   % If loop variable x is a cell, we must go down one level.
     a=r(q,t,l+1);  % So recurse to l+1.
else
    a=l*find(q==t); % Empty if q~=t (because find(false)==[], and l*[]==[]), else equal to l*1==l.
end
n=union(n,a);       % Append to list of levels, make sure we only get distinct values.
end

Java、154 + 19 = 173バイト

import java.util.*;

Set<Long>f(List l,long n){Set s=new HashSet();if(l.contains(n))s.add(0l);for(Object o:l)if(o instanceof List)for(long d:f((List)o,n))s.add(d+1);return s;}

オンラインで試す

非ゴルフ法

Set<Long> f(List l, long n) {
    Set s = new HashSet();
    if (l.contains(n))
        s.add(0l);
    for (Object o : l)
        if (o instanceof List)
            for (long d : f((List) o, n))
                s.add(d + 1);
    return s;
}