How do I delete randomly a specified percentage of geometry objects?

(
-- Collect the object of a certain type into an array, for example
-- this one collects all geometry objects, excluding the target objects
-- which are of Geometry superClass for pre-MAXScript historical reasons
 
candidatesArray = for o in Geometry where classof o != TargetObject collect o
 
-- Because you want to remove random objects, but a specified percentage,
-- it is a good idea to make the decision which objects will be deleted
-- BEFORE actually deleting any objects.
-- You can create a second array and fill it up with the actual
-- objects to be deleted:
 
deathRowArray = #() -- init. an empty array
thePercentage = 50.0 -- define the percentage
 
-- Calculate the number of objects to delete:
numberToDelete = (thePercentage / 100.0 * candidatesArray.count) as integer
 
-- Loop until the deathRow array is filled
-- with the desired number of objects:
while deathRowArray.count < numberToDelete do
(
  newIndex = random 1 candidatesArray.count --generate new random index
  --if not already chosen, add it to the deathrow array
  if findItem deathRowArray candidatesArray[newIndex] == 0 do
    append deathRowArray candidatesArray[newIndex]
)
delete deathRowArray --finally, delete the collected objects
)