Delete Duplicates (same polycount)

(
	clearselection()
	select geometry
	deselect helpers
	objsArr = selection as array
 
	objsByFaceCountArr = #()
	i = 0
	while objsArr.count != 0 do
	(
		i += 1
		tmpArr = #(objsArr[i])
 
		facesNum1 = (getPolygonCount objsArr[i])[1]
		deleteItem objsArr i
		for j = objsArr.count to 1 by -1 do
		(
			facesNum2 = (getPolygonCount objsArr[j])[1]
			if facesNum1 == facesNum2 do
			(
				append tmpArr objsArr[j]
				deleteItem objsArr j
			)			
		)
		append objsByFaceCountArr tmpArr
	)
 
	--	"group the objects"
	for arr in objsByFaceCountArr do 
	(
		group arr
	)
 
	--	"delete all but 1"
	for arr in objsByFaceCountArr do
	(
		delete (for i = 2 to arr.count collect arr[i])
	)
 
)