怎样在关键字处分割列表？

Question

比如列表lis={1, 2, a, 3, c, 45, 12, 7, d, 1, 3}中的关键字为a, c, d
怎样将其分割得到{{1, 2, a}, {3, c}, {45, 12, 7, d}, {1, 3}}
有直接实现这个功能的函数吗？

Answer 1

这样？

list1 = {1, 2, a, 3, c, 45, 12, 7, d, 1, 3};
symbol = Names["Global`*"];(*已经定义了的符号名称列表*)

list2 = list1 /. {s_ /; MemberQ[symbol, ToString[s]] :> 
    Sequence[s, "xxxx"]}(*在符号后面增加标识符*)
DeleteCases[SplitBy[list2, # === "xxxx" &], {"xxxx"}](*分割，并删除标识符*)

Answer 2

lis = {1,2,a,3,c,45,12,7,d,1,3};
rsl = Split[lis,NumberQ[#1]&]

这里用到的是Split的定义里的第二个用法。