wolfram-mathematica - 具有长度值的 Mathematica 拆分列表

Question

在 Wolfram Mathematica 8.0 中，我有一个嵌套列表，例如:

             {{1,1,1},{0,0},{1,1,1,1,1},{0},{1,1},{0}}

并想用子串长度替换那些，如下所示:

             {{3,3,3},{0,0},{5,5,5,5,5},{0},{2,2},{0}}

任何人都可以向我展示解决此问题的快速功能方法吗？

Answer 1

list = {{1, 1, 1}, {0, 0}, {1, 1, 1, 1, 1}, {0}, {1, 1}, {0}};
Map[Length[#]*# &, list]

Out[193]= {{3, 3, 3}, {0, 0}, {5, 5, 5, 5, 5}, {0}, {2, 2}, {0}}