我想把一棵看起来像这样的树弄平:
> data Tree a = Leaf a
> | Fork a [Tree a]
> | Root [Tree a]
可能的例子:
Root [Fork 'a' [Fork 'b' [Leaf 'c'],Fork 'c' [Leaf 'b']],Fork 'b' [Fork 'a' [Leaf 'c'],Fork 'c' [Leaf 'a']],Fork 'c' [Fork 'a' [Leaf 'b'],Fork 'b' [Leaf 'a']]]
应该成为
["abc","acb","bac","bca","cab","cba"]
解释原因:
我尝试构建一种排列树。我编写了一个函数permute :: String -> Tree Char
来将一个字符串的所有可能排列可视化为一个树。但我不知道如何压扁这种树。
谢谢你的帮助。