VEX - Remove intersecting points

While working on a sand simulation, I wanted to make sure I didn't have any intersection in my source. So I wrote this VEX script that takes incoming points, check the pscale attribute, and removes whichever point has the smallest value. Keeping the large one. 

The method is a bit overly aggressive, so I think some refining is needed. If anyone have ideas for that, let me know! 

​

HIP FILE DOWNLOAD