LOGO-L> dropping a random element

[neuwirth <neuwirth@smc.univie.ac.at>]

here is another version of
dropping a random element from a list

to drop.random :l
output map [item ? :l] remove (1 + random count :l) iseq 1 
count :l
end

this funtion at frst creates the list
[1 2 3 .... n.of.elements.of.l]

removes a random number from it
and then uses map to select the elements from :l at the
remaining positions


--
Erich Neuwirth <neuwirth@smc.univie.ac.at>
Computer Supported Didactics Working Group, Univ. Vienna
Visit our SunSITE at http://sunsite.univie.ac.at



---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.