具有长度值的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}}