检查一个列表是否是另一个列表的一部分

Question

我想在Mathematica中制作一个模块，如果第一个列表（L1）在第二个列表（L2）中，则假定L2的长度大于L1的长度，则返回true。 我是以这种方式完成的，问题是总是返回False，而我不知道为什么。 编辑：我已经解决了一个问题：我写了“如果”而不是“如果”。 现在我得到一个无限循环。

isSegment[L1_List, L2_List] := Module[{i, j},   For[i = 1, i + Length[L1] - 1 <= Length[L2],
       For[j = 1, j <= Length[L1],
    If[L2[[i + j - 1]] != L1[[j]], Break;];
    j++;
    ];
       If[j == Length[L1] + 1,
    Return[ True];];
       i++;    ];   Return [False];   ]

Answer 1

这可能是最干净，最快的常规方法之一：

isSegment[{L1__}, L2_List] := MatchQ[L2, {___, L1, ___}]

isSegment[{3, 4, 5}, Range@10]

 True 

有关所有Real或Integer数值的列表，您可以调整此处显示的方法以获得最大速度。

---

用户写道：

谢谢，这是一个好方法，但是我要纠正我的代码以使其没有新的代码，因为这是学校的一种练习，并且在语句中说必须使用For循环。

似乎对Break[]的语法和Return的功能感到困惑。 为了更正代码，我将Break替换为Break[]并将Return替换为Throw ＆ Catch 。

isSegment[L1_List, L2_List] :=
 Catch @ Module[{i, j},
   For[i = 1, i + Length[L1] - 1 <= Length[L2],
    For[j = 1, j <= Length[L1], 
     If[L2[[i + j - 1]] != L1[[j]], Break[];]; j++;];
    If[j == Length[L1] + 1, Throw[True];];
    i++;]; Throw[False];
   ]

Answer 2

我通常会使用以下方法解决此问题：

SegmentQ[l1_List, l2_List] := MemberQ[Partition[l2, Length @ l1, 1], l1]