LOGO-L> butitem

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

here is an attempt at creating 
butitem and butitems
the following code should make clear what it attempts tp do


to butitem :index :l
output map [item ? :l] remove :index iseq 1 count :l
end

to butitems :indexlist :l
output map [item ? :l] reduce [remove ?1 ?2] ~
  lput iseq 1 count :l :indexlist
end

the use of reduce is a little bit tricky,
but this is th best way i found
to code it without an additional helper function


--
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.