如何根据两个表达式是否引用相同的绑定名称来创建重写传递？

Question

如何查找和重写引用相同绑定名称的表达式？例如,在表达式中

let xs = ...
in ...map f xs...map g xs...

表达式map f xs和表达式都map g xs引用相同的绑定名称,即xs.是否有任何标准的编译器分析可以让我们识别这种情况并将两个map表达式重写为例如

let xs = ...
    e = unzip (map (f *** g) xs)
in ...fst e...snd e...

我一直在考虑树遍历的问题.例如给定AST:

data Ast = Map (a -> b) -> Ast -> Ast
         | Var String
         | ...

我们可以尝试编写一个树遍历来检测这种情况,但这似乎很难,因为Map引用相同的两个节点Var可能出现在树中广泛不同的地方.如果您反转AST中的所有引用,使其成为图形,这种分析似乎更容易做,但我想看看是否有任何替代方法.

Answer 1

我认为您正在寻找的是一组通常称为元组、融合和超级编译的程序转换，它们属于更一般的展开/折叠转换理论。您可以按如下方式实现您想要的。

首先通过参数“驱动”map 的定义来执行推测性评估（展开），这会产生两个新的伪程序，具体取决于 xs 的形式是 y:ys 还是 []。在伪代码中：

let y:ys = ...
in ...(f y):(map f ys)...(g y):(map g ys)...

let [] = ...
in ...[]...[]...

然后对原始程序执行共享结构（元组）和泛化（折叠）的抽象，以停止否则永久的展开：

let xs = ...
in ...(fst tuple)...(snd tuple)...
where tuple = generalisation xs
      generalisation [] = ([],[])
      generalisation (y:ys) = let tuple = generalisation ys
                              in ((f y):(fst tuple),(g y):(snd tuple))

我希望这能给你一个想法，但是程序转换本身就是一个研究领域，如果不绘制无环有向图，很难很好地解释。