[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Aug 17 10:27:15 1993 
Subject:Re: delete_nth 
From:johnw (John Williams) 
Volume-ID:930817.04 

Ok, here's my plain and simple version:

 define delete_nth(n, list) -> list;
     lvars n, list;
     returnif(n == 0);
     repeat n times
         dest(list) -> list
     endrepeat;
     ->;
     repeat n - 1 times
         conspair(list) -> list
     endrepeat
 enddefine;

I've not used "fast_" and "fi_" procedures for clarity. 

John.