Erlang 列表理解、排列

Question

我正在修改一本书中的排列示例。以下代码按预期工作。

perms([]) -> [[]];
perms(L) -> [[H|T] || H <- L, T <- perms(L--[H])].

当我替换表达式时，它变成了这样:

[ [1 | perms([2])], 
   [2 | perms([1])] ]

[ [1 | [[2 | perms([])]]], 
   [2 | [[1 | perms([])]]] ]

[ [1 | [ [2 | [[]] ] ]], 
  [2 | [ [1 | [[]] ] ]] ]

这会正确计算为 [[1,2], [2,1]]。

但是当我将基本情况从包含空列表的列表更改为空列表时:

perms([]) -> [];

它返回一个空列表。当我替换时，我得到了这个。

   [ [1 | [[2 | [] ]]], 
     [2 | [[1 | [] ]]] ] 

我用 flatten 尝试了两个表达式，但它们产生了相同且正确的结果。

[[1 | lists:flatten([[2 | lists:flatten([[]]) ]])], [2 | lists:flatten([[1 | lists:flatten([[]]) ]])]]
[[1 | lists:flatten([[2 | lists:flatten([]) ]])], [2 | lists:flatten([[1 | lists:flatten([]) ]])]].

所以我无法弄清楚两个表达式之间的区别。

Answer 1

这个函数实现了一个递归算法:

• 非空列表的排列是什么？对于列表中的每个元素，采用列表的排列减去该元素并将元素添加到每个这样的排列。
• 空列表的排列是什么？只有一个:空列表本身，所以我们返回一个包含一个元素的列表，即空列表:[[]]

通过将基本情况更改为返回 [] 而不是 [[]]，您是在说:

• 空列表的排列是什么？排列为零。

然后在递归情况下，您将进入“采用...的排列”步骤 - 但没有排列，因此没有任何元素可以添加到前面。