list - 用箭头替换列表中的逗号 ->

Question

如何用替换箭头替换列表第二级的逗号？

例如，这个:

{{a, girl}, {b, girl}, {c, girl}, {e, girl}, {g, girl}}

对此:

{{a->girl}, {b->girl}, {c->girl}, {e->girl}, {g->girl}}

Replace不起作用，因为它认为逗号不应该在那里。将它放在引号中不起作用， StringReplace 也不起作用。

我认为它应该是:

Replace[list, "," -> "->", {2}]

Answer 1

以下给出了所需的结果:

lop = {{a, girl}, {b, girl}, {c, girl}, {e, girl}, {g, girl}} (* list o' pairs *)

{#1 -> #2}& @@@ lop

对我来说，这是最自然的方式。
这是避免使用 lambda 函数的另一种方法:

List /@ Rule @@@ lop

更多关于使用 @@@ 的方式: In Mathematica, what does @@@ mean?

如果你不喜欢 @@@ 你可以这样做:

{First@# -> Last@#}& /@ lop

这是另一种方式，使用替换规则:

lop /. {x_,y_}->{x->y}

而且，到底是什么，这是我能想到的最不直观的方法:

Transpose@{Thread[Rule@@Transpose[lop]]}

(注意 /. 是 ReplaceAll 的简写， /@ 是 Map 的简写， @@ 是 Apply 的简写，而 4 4 是 6070914 的另一种写法)1070914 6070914 是另一种写法