(list-member-find element elementlist)
Returns the index of element in the list elementlist. The first element in a list has index 0.
Norman Walsh, <ndw@nwalsh.com>
(define (list-member-find element elementlist) ;; Returns the index of an element in a list (let loop ((elemlist elementlist) (count 0)) (if (null? elemlist) -1 (if (equal? element (car elemlist)) count (loop (cdr elemlist) (+ count 1))))))