ABCDEF六个字母排序

PQ小学生

针对这个排序，每一个排序中字母不能重复出现 我知道一共有720中排法
在POwerquery中 我也只会用List.RemoveItems()函数每次新增列 去掉已用的字母 再次扩展开原来的{ABCDEF}列表 重复五次
肯定有更加简单的办法  希望大湿们分享一下 谢谢

飞天篮球猪

用List.TransformMany,再加以下方法：
你可以用递归，6个就递归6次跳出。
或者迭代,迭代6次，每次从A-F里remove出现过的字母。再去已经产生的字母组合。
比如说，A， 那就用A和List.RemoveItems({"A".."F"},"A")的值去两两结合
完事后，比如AB,那就用AB和List.RemoveItems({"A".."F"},{"A","B"})的值去两两结合....

你先琢磨琢磨。。。

PQ小学生

飞天篮球猪 发表于 2019-1-18 14:46
用List.TransformMany,再加以下方法：
你可以用递归，6个就递归6次跳出。
或者迭代,迭代6次，每次从A-F里 ...

我是这个想法做的 但是觉得繁琐  所以就抛出来这个讨论

飞天篮球猪

PQ小学生 发表于 2019-1-18 14:48
我是这个想法做的 但是觉得繁琐  所以就抛出来这个讨论

你用递归和迭代就不麻烦了

飞天篮球猪

你看看是不是这样的结果：

1. = List.Accumulate({1..6},{""},(s,c)=> List.TransformMany(s,each List.RemoveItems({"A".."F"},Text.ToList(_)),(x,y)=>x&y))

复制代码

飞天篮球猪

PQ小学生 发表于 2019-1-18 14:48
我是这个想法做的 但是觉得繁琐  所以就抛出来这个讨论

递归可以这样写，跟迭代差不多

1. = let fx=(t,n)=>if n=0 then {""}
   
2.                else List.TransformMany(@fx(t,n-1),each List.RemoveItems(Text.ToList(t),Text.ToList(_)),(x,y)=>x&y)
   
3.    in fx("ABCDEF",6)

复制代码

飞天篮球猪

如果是全排列，只要去掉List.RemoveItems就可以。

windgod489

笛卡尔数列,递归，迭代都可以。