The Modular DocBook Stylesheets | ||
---|---|---|
Prev | DSSSL Library | Next |
(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, <norm@berkshire.net>
(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))))))
Prev | Home | Next |
list-head | Up | list-put |
Copyright © 1997, 1998 Norman Walsh