TCL在最快的时间内得到矩形列表的重叠

Question

在给定矩形列表的情况下，获得重叠的最快方法是什么，其中每个矩形可能与其他矩形重叠或不重叠。每个矩形显然有4个坐标。我的列表如下所示：

set example_list { {rect1} {rect2} ... {rect600k} }

我尝试执行此操作的方法是对rect1进行逻辑与，并添加599.9k个矩形，然后对rect2与其余矩形进行逻辑与。我将如何用最快的代码解决这个问题。