A Monte Carlo simulation of the Percolation problem solved by weighted union find algorithm