0

在 Maple 15 中，我有一个像这样的嵌套列表（只有 2 级嵌套）：

[[a,b],[c],[d,e,f]]

我想从那个（元素的数量..）创建 6 个列表，如下所示：

[[x,a,b],[c],[d,e,f]]
[[a,x,b],[c],[d,e,f]]
[[a,b],[x,c],[d,e,f]]
[[a,b],[c],[x,d,e,f]]
[[a,b],[c],[d,x,e,f]]
[[a,b],[c],[d,e,x,f]]

我试过了，但我有超级复杂的循环，它不起作用..还有什么更聪明的主意吗？

4

2 回答 2

0

我在 Maple 7 上编写此代码，但它应该适用于几乎任何版本的 Maple。我觉得先把原来的嵌套列表剥离成两个简单的列表比较容易做：

input:=[[a,b],[c],[d,e,f]];
flatlist:=[seq(op(input[n]),n=1..nops(input))]; % flat list of all elements
noels:=[seq(nops(input[n]),n=1..nops(input))]; % numbers of elements in sub-lists

将额外的元素插入新的平面列表更容易：

newlists:=[seq([seq(flatlist[i],i=1..n-1),x,seq(flatlist[i],i=n..nops(flatlist))],n=1..nops(flatlist))];
newnoels:=[seq(seq([seq(noels[i],i=1..n-1),noels[n]+1,seq(noels[i],i=n+1..nops(noels))],m=1..noels[n]),n=1..nops(noels))];

生成的平面列表必须转换回嵌套列表。这可以通过编写一个简单的函数来完成：

mergelists:=proc(flatlist,noels)
  local i,j,n,result;
  i:=0; result:=NULL;
  for n from 1 to nops(noels) do
    result:=result,[seq(flatlist[i+j],j=1..noels[n])];
    i:=i+noels[n];
  od;
  return [result];
end:

使用此功能，现在可以轻松地将准备好的数据转换为所需的格式：

output:=[seq(mergelists(newlists[n],newnoels[n]),n=1..nops(newlists))];

我承认这可能不是最优雅的解决方案。不幸的是，我现在没有想到更简单的事情。

于 2011-10-27T13:40:48.510 回答
0

尝试一对嵌套seq调用。

L:=[[a,b],[c],[d,e,f]]:

[seq(seq(subs(r=op([x,r]),L),r in K),K in L)];
于 2011-11-21T06:44:07.710 回答