list-member-find

Name

list-member-find -- Returns the index of an element in a list

Synopsis

(list-member-find element elementlist)

Description

Returns the index of element in the list elementlist. The first element in a list has index 0.

Author

Norman Walsh, <ndw@nwalsh.com>

Source Code

(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))))))