关于Mathematica中字符串操作的两个问题

Question

1. 给定一个字符或字符串s,生成一个带有n(整数)重复的结果字符串s
2. 给定一个字符或字符串列表,以及它们出现的频率列表(对应),生成一个结果字符串,列表中的每个字符串都按照第二个列表中指定的所需时间重复,并将它们连接在一起.例如,给定{"a", "b", "c"}和{1,0,3},我想拥有"accc".

我当然希望有最有效的方法来做这些.否则,我自己的方式太丑陋和缓慢.

谢谢您的帮助!

Answer 1

rep[s_String, n_] := StringJoin[ConstantArray[s, n]]

然后

rep["f", 3]
(*fff*)

下一个

chars = {"a", "b", "c"};
freqs = {1, 0, 3};

StringJoin[MapThread[rep, {chars, freqs}]]

给出"accc"

Answer 2

1,Table将做你需要的.

s = "samplestring";

  StringJoin[Table[s, {3}]]

  "samplestringsamplestringsamplestring"

但是ContantArray如果你关心最后1/100秒,acl的回答使用速度会更快.

Do[StringJoin[Table[s, {30}]];, {10000}] // Timing

{0.05805, Null}

Do[StringJoin[ConstantArray[s, 30]];, {10000}] // Timing

{0.033306, Null}

Do[StringJoin[Table[s, {300}]];, {10000}] // Timing

{0.39411, Null}

Do[StringJoin[ConstantArray[s, 300]];, {10000}] // Timing

{0.163103, Null}

对于2,MapThread将处理第二个列表已知为非负整数的情况.

StringJoin @ 
 MapThread[Table[#1, {#2}] &, {{"a", "b", "c"} , {1, 0, 3}}]

"accc"

如果第二个列表包含负整数,则将它们视为零.

第二个列表中的非整数元素被视为它们是整数部分.我不确定这是不是你想要的.

StringJoin @ 
 MapThread[Table[#1, {#2}] &, {{"a", "b", "c"} , {1, 0, 3.7}}]

"accc"