wolfram-mathematica - 将 `GatherBy` 的转换应用到不同的列表

Question

我有 listA和 listB相同的大小。我在做GatherBy在 listA ，重新排列该列表。将相同的重排应用于 listB 的优雅方式是什么？ ?

例如

listA = {1, 2, 3};
listB = {a, b, c};
listA1 = GatherBy[{1, 2, 3}, OddQ];

listB1应该变成 {{a, c}, {b}}
更新
感谢有趣的想法，我最终做了一些类似于 belisarius 的事情。这让我想起了 Python 的“装饰-排序-取消装饰”模式

decorated = Thread[{listA, listB}];
grouped = GatherBy[decorated, OddQ[First[#]] &];
listB1 = Map[Last, grouped, {2}]

Answer 1

好吧，第一次尝试:

(警告警告......“优雅”是一个完全主观的概念)

gBoth[lslave_, lmaster_, f_] := 
                 {Part[#, All, All, 1], Part[#, All, All, 2]} &@ 
                 GatherBy[Transpose[{lslave, lmaster}], f[#[[2]]] &]

lmaster = {1, 2, 3};
lslave = {a, b, c};  

{lslave1, lmaster1} = gBoth[lslave, lmaster, OddQ]  

出去

{{{a, c}, {b}}, {{1, 3}, {2}}}  

编辑

请注意，要运行此代码，您必须具有

 Dimensions[lslave][[1;;Length[Dimensions@lmaster]]] == Dimensions@lmaster  

但两个列表更深层次的内部结构可能不同。例如:

lmaster = {{1, 2, 3}, {2, 3, 4}};
lslave = {{{a}, {b}, {c}}, {{a}, {b}, {c}}};

{lslave1, lmaster1} = gBoth[lslave, lmaster, #[[1]] < 3 &]

出去

{{{{{a}, {b}, {c}}, {{a}, {b}, {c}}}}, {{{1, 2, 3}, {2, 3, 4}}}}

哼!