Разделение списка на основе других значений списка в Mathematica
В Mathematica у меня есть список координат точек
size = 50;
points = Table[{RandomInteger[{0, size}], RandomInteger[{0, size}]}, {i, 1, n}];
и список индексов кластера, к которым эти точки принадлежат
clusterIndices = {1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1};
Как проще всего разбить точки на два отдельных списка на основе значений clusterIndices?
РЕДАКТИРОВАТЬ: Решение, которое я придумал:
pointIndices =
Map[#[[2]] &,
GatherBy[MapIndexed[{#1, #2[[1]]} &, clusterIndices], First],
{2}];
pointsByCluster = Map[Part[points, #] &, pointIndices];
Есть ли лучший способ сделать это?