LOGO-L> apl:deal porting to LOGO

[fajoy@uio.satnet.net]

Can any one of you give me advice as to how to implement
efficiently a routine to "deal" the elements of a list.

This example is of a dealing of 5 elements from the list
[0 1 2 3 4 5 6 7 8 9]

   deal 5 [0 1 2 3 4 5 6 7 8 9]
[3 8 4 6 9]

This example is of a dealing of 10 elements from the list
[0 1 2 3 4 5 6 7 8 9]

   deal 10 [0 1 2 3 4 5 6 7 8 9]
[9 2 8 0 3 7 6 4 1 5]


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