waynebuaa 发表于 2009-3-20 09:47:08

关于一个列表的操作

本帖最后由 waynebuaa 于 2009-3-20 10:02 编辑

有一个List，{a,b, c, d, e,f}

我想让它变成 {a, a, a, b, b, b, c, c, c, d, d, d,e, e,f,f}

有没有比较简单的方法

smarten 发表于 2009-3-20 10:01:50

可能还是太繁了。Sort@Join]]

waynebuaa 发表于 2009-3-20 10:06:07

谢谢smarten，可惜我不能送你鲜花，也不能给你评分啊
我用到了比较繁琐的ArrayPad，没想到简单的Sort这么强大

marveloustau 发表于 2009-3-20 10:07:02

Flatten[{#, #, #}&/@{a,b,c,d,e,f}]

waynebuaa 发表于 2009-3-20 10:09:53

我其实想做的题目是寻找形如
AAABBBCCCDD11
AAABBBCCCDD77 的所有素数

可用Sort似乎很不好移植过来

waynebuaa 发表于 2009-3-20 10:28:54

4# marveloustau

:victory: long time no see

marveloustau 发表于 2009-3-20 13:27:15

不好意思似乎弄错了……似乎确实没有更好的方法

FreddyMusic 发表于 2009-3-20 18:23:33

way 你必须把规律说清楚，为何需要 e f是两位，其余三位？

smarten 发表于 2009-3-20 22:24:50

好像一共780个。我的方法比较土，t = Sort@Join]];
t1 = Fold;
t2 = Fold;
lists = Permutations[
    Range[0,
   9], {4}][];(*Select 4 numbers for a, b,c, and d. a \
cannot be zero*)
res1 = Select[
   Map[FromDigits,
    Map[] &, lists]]],
   PrimeQ];
res2 = Select[
   Map[FromDigits,
    Map[] &, lists]]],
   PrimeQ];

chyanog 发表于 2013-10-14 13:23:07

{a, b, c, d, e, f}[}]]]
页: [1]
查看完整版本: 关于一个列表的操作