用于列表的Ti-84 Ti-basic中的扩充方法的反转（划分单个列表）

Question

可以阅读有关扩充的内容（此处：http://tibasicdev.wikidot.com/augment

我想要一个与增强相反的程序。 我想要做的是取一个列表，比如L1，然后将它分成相等长度的子列表，并将它们存储到L1，...，Lk中以获得某些任意k。如果需要，我可以将数字23多次添加到L1，直到我可以对它进行分区。我希望每个列表都有n个元素。

示例：

取L1 = {1,2,3,4,5,6,7,8,9,10}

我想把它分成长度为n = 3的相等子列表

L1有10个元素，不是3的倍数，所以我加了两次23来得到：

L1 = {1,2,3,4,5,6,7,8,9,10,23,23}

然后我将它分成长度为3的相等子列表并获得：

L2 = {1,2,3}

L3 = {4,5,6}

L4 = {7,8,9}

L5 = {10,23,23}

然而，这是一个具体的例子，但我希望我的程序可以用于任何n，这样我就可以去N＆gt; T：prgrParttition然后运行。

Answer 1

这是这个问题最明显的答案，但它是我在需要将列表拆分成多个子列表时总是使用的。

程序会提示用户输入列表（L1）和行大小（A），然后将列表列表拆分为dim(L1)/A个列表，每个列表都包含A个元素。结果以Ans变量的形式返回矩阵。

DelVar [A]Prompt L₁,A
{int(dim(L₁)/A),A→dim([A]
For(B,1,Aˉ¹dim(L₁
For(C,1,A
L₁(AB-A+C→[A](B,C
End
End