Mathematica Pick一拿到3就停止列表

Question

这是我的...

Select[roll, # <= 3 &]

现在,下面的列表可能有一个3或两个三个.我希望它从左到右停在前三个.

数学家试图编码.

Answer 1

注意:我删除了我的原始帖子,这基本上就像belisarius的帖子.这是另一次尝试......

如果您确定数字3是其成员roll那么这应该有效:

TakeWhile[roll, # != 3 &]~Append~3

这相当于:

Take[roll, LengthWhile[roll, # != 3 &] +1]

如果你不能做出这个假设,那就先测试一下 MemberQ

编辑:信用到TomD建议第二个解决方案中的+1,这消除了使用的需要Append.

Answer 2

这比TakeWhile整数列表快一个数量级.

list /. {x___, 3, ___} :> {x}

要获得该列表通过 3,只是用{x, 3}右手侧.