公告:网站程序已升级到1.8.3,修复了提问时可能报错的问题,请清除浏览器缓存
2019-11-10

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
123 浏览
比如列表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}}
有直接实现这个功能的函数吗?

用户: niturpe (251 分)

2 个回答

0 投票

这样?

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"}](*分割,并删除标识符*)

用户: 野鹤 (4.8k 分)
0 投票
lis = {1,2,a,3,c,45,12,7,d,1,3};
rsl = Split[lis,NumberQ[#1]&]

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

用户: wonderlands0 (451 分)
修改于 用户:wonderlands0
...