| 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