s-99-16


PLT Scheme implements SRFI-1's 'drop', in the functional programming sense. So I named this function 'my-drop', even though 'drop' is not really part of the Scheme specification per se.

 (define (my-drop l i) 
   (define (helper l i orig) 
     (if (null? l) 
       '() 
       (if (= i 1) 
         (helper (cdr l) orig orig) 
         (cons (car l) (helper (cdr l) (- i 1) orig))))) 
   (helper l i i))